在两列变量中，在其中一列为某一特定值时候与之相连的另一列变量的不同元素的个数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

序号       字母
1             a
2             a
1             a
2             c
1             b
2             e
2             g
3             f
3             h
2             g
3             g

问序号是2的时候含有多少种字母

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：操作建议

library(dplyr)
df %>%
  count(序号, 字母) %>%
  count(序号)

cheetahfly 发表于 2019-8-10 20:15
library(dplyr)
df %>%
  count(序号, 字母) %>%

谢谢大佬的解答，为啥我还是无法求出来，是不是我却什么包，

提供个改进版本的，供参考

1. tab <- read.table(textConnection("
   
2. 1             a
   
3. 2             a
   
4. 1             a
   
5. 2             c
   
6. 1             b
   
7. 2             e
   
8. 2             g
   
9. 3             f
   
10. 3             h
    
11. 2             g
    
12. 3             g"))
    
13. library(dplyr)
    
14. library(stringr)
    
15. #不同元素个数，记录不重复元素
    
16. tab%>%group_by(V1)%>%
    
17.   summarise(n=length(unique(V2)),
    
18.             item=paste(unique(V2),collapse = ','))
    
19. 
    
20. #fun1输入字符串x，返回x中每个元素重复次数的字符串
    
21. fun1 = function(x) (x%>%str_split(',')%>%unlist%>%table%>%as_tibble%>%
    
22.                       rename(tol=n,let=".")%>%
    
23.                       group_by(let)%>%
    
24.                       summarise(items=paste(c(let,tol),collapse = ':'))%>%
    
25.                       summarise(item=paste(items,collapse =', '))%>%c)[[1]]
    
26. 
    
27. 
    
28. #不同元素个数，记录每个元素重复次数
    
29. tab%>%group_by(V1)%>%
    
30.   summarise(n=length(unique(V2)),
    
31.             item=fun1(V2))

复制代码