我有一个包含两个变量的数据框,如下所示:
df <- data.frame(group=c(1,1,1,2,2,3,3,4),
type=c("a","b","a", "b", "c", "c","b","a"))
> df
group type
1 1 a
2 1 b
3 1 a
4 2 b
5 2 c
6 3 c
7 3 b
8 4 a
我想生成一个表格,显示每个组在数据框中的类型组合作为一个变量,例如
group alltypes
1 1 a, b
2 2 b, c
3 3 b, c
4 4 a
输出总是以相同的顺序列出类型(例如,组 2 和组 3 得到相同的结果),并且不会重复(例如,组 1 不是“a, b, a”)。
我尝试使用 dplyr 和 summarize 执行此操作,但我无法弄清楚如何让它满足这两个条件 - 我尝试的代码是:
> df %>%
+ group_by(group) %>%
+ summarise(
+ alltypes = paste(type, collapse=", ")
+ )
# A tibble: 4 × 2
group alltypes
<dbl> <chr>
1 1 a, b, a
2 2 b, c
3 3 c, b
4 4 a
我还尝试将类型转换为一组单独的计数,但不确定这是否真的有用:
> df %>%
+ group_by(group, type) %>%
+ tally %>%
+ spread(type, n, fill=0)
Source: local data frame [4 x 4]
Groups: group [4]
group a b c
* <dbl> <dbl> <dbl> <dbl>
1 1 2 1 0
2 2 0 1 1
3 3 0 1 1
4 4 1 0 0
任何建议将不胜感激。