r - 如何查找列中的所有组合并计算数据中的出现次数

Question

我试图在第 1 列的值数据中找到所有实际组合。

然后我想按第 2 列计算所有这些出现的次数。

感觉 R 应该能够相当快地做到这一点。我尝试阅读 combn 和 expand.grid，但没有成功。主要问题是我找不到任何关于如何在列中生成组合的指南。

我的数据如下:

Animal (n=57) | Person ID (n=1000)
Dog     | 0001
Cat     | 0004
Bird    | 0001
Snake   | 0002 
Spider  | 0002
Cat     | 0003
Dog     | 0004

预期输出是:

AnimalComb | CountbyID

Cat         | 1
DogBird     | 1
SnakeSpider | 1
CatDog      | 1

EDIT 删除了猫的错误条目

Answer 1

如果我没理解错的话，你需要group_by PersonID 并paste 所有unique Animal 并计算它们的组合出现的次数，这可以通过计算组中的行数 (n()) 并将其除以不同的值 (n_distinct)。

library(dplyr)

df %>%
  group_by(PersonID) %>%
  summarise(AnimalComb = paste(unique(Animal), collapse = ""), 
            CountbyID = n() / n_distinct(Animal)) 

#  PersonID AnimalComb  CountbyID
#     <int> <chr>           <dbl>
#1        1 DogBird             1
#2        2 SnakeSpider         1
#3        3 Cat                 1
#4        4 CatDog              1