循环取子集怎么写？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如下数据

t1	t2	t3	t4
1	甲	A	a
1	甲	A	b
1	甲	A	c
2	甲	A	a
2	甲	A	b
2	甲	A	c
3	甲	A	a
3	甲	A	b
3	甲	A	c
1	乙	A	a
1	乙	A	b
1	乙	A	c
2	乙	A	a
2	乙	A	b
2	乙	A	c
3	乙	A	a
3	乙	A	b
3	乙	A	c
1	丙	A	a
1	丙	A	b
1	丙	A	c
2	丙	A	a
2	丙	A	b
2	丙	A	c
3	丙	A	a
3	丙	A	b
3	丙	A	c
1	甲	B	a
1	甲	B	b
1	甲	B	c
2	甲	B	a
2	甲	B	b
2	甲	B	c
3	甲	B	a
3	甲	B	b
3	甲	B	c
1	乙	B	a
1	乙	B	b
1	乙	B	c
2	乙	B	a
2	乙	B	b
2	乙	B	c
3	乙	B	a
3	乙	B	b
3	乙	B	c
1	丙	B	a
1	丙	B	b
1	丙	B	c
2	丙	B	a
2	丙	B	b
2	丙	B	c
3	丙	B	a
3	丙	B	b
3	丙	B	c
1	甲	C	a
1	甲	C	b
1	甲	C	c
2	甲	C	a
2	甲	C	b
2	甲	C	c
3	甲	C	a
3	甲	C	b
3	甲	C	c
1	乙	C	a
1	乙	C	b
1	乙	C	c
2	乙	C	a
2	乙	C	b
2	乙	C	c
3	乙	C	a
3	乙	C	b
3	乙	C	c
1	丙	C	a
1	丙	C	b
1	丙	C	c
2	丙	C	a
2	丙	C	b
2	丙	C	c
3	丙	C	a
3	丙	C	b

第一步
选取1水平的，甲Aa，乙Aa，丙Aa，子集进行一番操作，得到结果 q1
第二步， 甲Ab，乙Ab，丙Ab，子集得到q2，
第二步， 甲Ac，乙Ac，丙Ac，得到q3，

然后
2水平的，
         甲Aa，乙Aa，丙Aa，子集进行一番操作，得到结果 p1，p2，p3

3水平的同理 ，得到结果w1，w2，w3，

最后所有结果粘在一起，如何写循环？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：如何写 在一起

顶上去

R里面尽力少用循环， 最好用*pply 这些函数，或者 用 这个 map 都会好很多 速度上。

1. library(tidyverse)
   
2. 
   
3. mtcars %>%
   
4.     group_by(am) %>%  # 相当于 1，2，3 你的数据里的
   
5.     nest() %>%  # 按照 1，2，3 分割了数据
   
6.     mutate(data_m = map(data,
   
7.                         ~ group_by(.x, vs) %>%
   
8.                             summarise(mpg_max = max(mpg)))) %>%  # 对单个数据集 data 操作 变成了 data_m
   
9.     select(-data) %>%  # 删除原来的 data 集
   
10.     unnest(data_m)  # 把 操作完的数据集展开 放在一起

复制代码

#----------------------------------------------------
# 数据集比较规则，可以直接取得子集
# 设原数据集为data
# 按如下方式，可以取得4列内容的任意组合：

a=unique(data[,1])
b=unique(data[,2])
c=unique(data[,3])
d=unique(data[,4])


for(a in a)
for(b in b)
for(c in c)
for(d in d)
   {
       newdata=data[data[,1]==a & data[,2]==b & data[,3]==c & data[,4]==d ,]
       write.csv(newdata,paste(a,b,c,d,".csv"))       #此处可以根据需要选择输出
   }

BG4IMP 发表于 2018-6-17 09:30
#----------------------------------------------------
# 数据集比较规则，可以直接取得子集
# 设原数据 ...

还没看明白，我研究研究，谢谢

watone 发表于 2018-6-16 16:02
R里面尽力少用循环， 最好用*pply 这些函数，或者 用 这个 map 都会好很多 速度上。

还没看明白，我研究研究，谢谢