循环取子集怎么写？

5752

2032

收藏 2018-06-12

如下数据

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，

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

扫码加我拉你入群

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

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

全部回复

5752

2018-6-14 20:08:49

顶上去

扫码加我拉你入群

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

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

watone

2018-6-16 16:02:28

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

复制代码

扫码加我拉你入群

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

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

BG4IMP

2018-6-17 09:30:06

#----------------------------------------------------
# 数据集比较规则，可以直接取得子集
# 设原数据集为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")) #此处可以根据需要选择输出
}

扫码加我拉你入群

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

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

5752

2018-6-19 09:47:00

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

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

扫码加我拉你入群

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

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

5752

2018-6-19 09:47:21

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

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

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群