R语言进行分组计数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位大神，R中如何按组进行计数啊，新的group从1开始计数。

group	dat	希望产生新列
group1	A	1
group1	B	2
group1	C	3
group1	D	4
group2	E	1
group2	F	2
group2	G	3
group2	H	4
group2	I	5
group2	J	6
group3	K	1
group3	L	2
group3	M	3
group3	N	4

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：R语言 Group upd P2F PDA 如何

把group当成因子来计数

jinkelazzz 发表于 2016-11-8 16:45
把group当成因子来计数

方便附上一些代码吗？多谢~

jinkelazzz 发表于 2016-11-8 16:45
把group当成因子来计数

我实现了，但是需要因子个数次循环，不知是否有更好的想法，感激不尽~

复制代码

1. > aa
   
2.     group dat
   
3. 1  group1   A
   
4. 2  group1   B
   
5. 3  group1   C
   
6. 4  group1   D
   
7. 5  group2   E
   
8. 6  group2   F
   
9. 7  group2   G
   
10. 8  group2   H
    
11. 9  group2   I
    
12. 10 group2   J
    
13. 11 group3   K
    
14. 12 group3   L
    
15. 13 group3   M
    
16. 14 group3   N
    
17. > aa$c<-c(1:table(aa$group)[1],1:table(aa$group)[2],1:table(aa$group)[3])
    
18. > aa
    
19.     group dat c
    
20. 1  group1   A 1
    
21. 2  group1   B 2
    
22. 3  group1   C 3
    
23. 4  group1   D 4
    
24. 5  group2   E 1
    
25. 6  group2   F 2
    
26. 7  group2   G 3
    
27. 8  group2   H 4
    
28. 9  group2   I 5
    
29. 10 group2   J 6
    
30. 11 group3   K 1
    
31. 12 group3   L 2
    
32. 13 group3   M 3
    
33. 14 group3   N 4

复制代码

为什么符号$不能显示

不懂不装懂 发表于 2016-11-8 18:33
为什么符号$不能显示

1. > data
   
2.     group dat
   
3. 1  group1   A
   
4. 2  group1   B
   
5. 3  group1   C
   
6. 4  group1   D
   
7. 5  group2   E
   
8. 6  group2   F
   
9. 7  group2   G
   
10. 8  group2   H
    
11. 9  group2   I
    
12. 10 group2   J
    
13. 11 group3   K
    
14. 12 group3   L
    
15. 13 group3   M
    
16. 14 group3   N
    
17. > R1 <- dim(table(factor(data$group)))
    
18. > d <- c(0)
    
19. > for(i in 1:R1){
    
20. +   d <- c(d,c(1:table(factor(data$group))[i]))
    
21. + }
    
22. > d <- d[-1]
    
23. > data$N <- data.frame(d)
    
24. > data
    
25.     group dat d
    
26. 1  group1   A 1
    
27. 2  group1   B 2
    
28. 3  group1   C 3
    
29. 4  group1   D 4
    
30. 5  group2   E 1
    
31. 6  group2   F 2
    
32. 7  group2   G 3
    
33. 8  group2   H 4
    
34. 9  group2   I 5
    
35. 10 group2   J 6
    
36. 11 group3   K 1
    
37. 12 group3   L 2
    
38. 13 group3   M 3
    
39. 14 group3   N 4

复制代码

如有有多个的话我是这样循环实现的，但是需要用到因子个数次循环，数据量较大时循环会比较慢，不知各位是否有更好的方法？

1. library(dplyr)
   
2. mydata %>% tbl_df() %>% group_by(group) %>% mutate(new_col =  row_number())

复制代码

cheetahfly 发表于 2016-11-9 08:09

厉害，就是这个feel

cheetahfly 发表于 2016-11-9 08:09

厉害，就是这个feel