如何根据某一列值的个数选择特定行构成新矩阵

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位朋友，有这样一个矩阵，想把X1的值（如A、C、D等）有5个的，取他们的第3行（即，分别为3,14,19），而把有6个的（如B、E、G）分别取他们的第4行（即，分别为9,25,36），并把取得的所有行存为一个新的矩阵，如何实现，请大家帮帮忙

	X1	X2	X3
1	A	1	0.5
2	A	2	0.6
3	A	3	0.7
4	A	4	0.8
5	A	5	0.9
6	B	1	0.3
7	B	2	0.4
8	B	3	0.5
9	B	4	0.4
10	B	5	0.3
11	B	6	0.7
12	C	1	0.7
13	C	2	0.8
14	C	3	0.9
15	C	4	0.3
16	C	5	0.4
17	D	1	0.7
18	D	2	0.8
19	D	3	0.7
20	D	4	0.8
21	D	5	0.9
22	E	1	0.3
23	E	2	0.4
24	E	3	0.7
25	E	4	0.8
26	E	5	0.9
27	E	6	0.3
28	F	1	0.4
29	F	2	0.7
30	F	3	0.7
31	F	4	0.8
32	F	5	0.9
33	G	1	0.3
34	G	2	0.4
35	G	3	0.5
36	G	4	0.4
37	G	5	0.3
38	G	6	0.3

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：如何实现 G20 f50 A50 G30 朋友 如何

1.按照abcd分成几个矩阵;
2.判断每个矩阵的行数是否等于5、6;
3.根据判断结果取值;

就是对A,...,G，取倒数第三行，在R中就是：

1. x1<-c(rep("A",5),rep("B",6),rep("C",5),rep("D",5),rep("E",6),
   
2.    rep("F",5),rep("G",6))
   
3. x2<-c(1:5,1:6,1:5,1:5,1:6,1:5,1:6)
   
4. x3<-sample(seq(0.1,0.9,0.1),38,rep=T)###随便产生，你自己改回你的数据
   
5. data<-cbind(x1,x2,x3)
   
6. data<-as.data.frame(data)
   
7. 
   
8. tt<-tapply(1:nrow(data),data$x1,tail,n=3)
   
9. ind<-sapply(tt,head,n=1)
   
10. ans<-data[ind,]
    
11. > ans
    
12.    x1 x2  x3
    
13. 3   A  3 0.3
    
14. 9   B  4 0.7
    
15. 14  C  3 0.8
    
16. 19  D  3 0.7
    
17. 25  E  4 0.6
    
18. 30  F  3 0.3
    
19. 36  G  4 0.2
    
20. >

复制代码

danica33 发表于 2014-3-29 15:34
就是对A,...,G，取倒数第三行，在R中就是：

非常感谢，比我设想的要简单的多