计算组中不同变量的数量答案

【问题标题】：count the number of distinct variables in a group计算组中不同变量的数量
【发布时间】：2017-03-17 19:25:01
【问题描述】：

我有一个这样的数据框：

df <- data.frame(
  ID = c('123','124','125','126'),
  Group = c('A', 'A', 'B', 'B'),
  V1 = c(1,2,1,0),
  V2 = c(0,0,1,0),
  V3 = c(1,1,0,3))

    ID Group V1 V2 V3
1 123     A  1  0  1
2 124     A  2  0  1
3 125     B  1  1  0
4 126     B  0  0  3

我想返回一个表来指示变量是否在组中表示：

Group V1 V2 V3
A     1  0  1
B     1  1  1

为了计算每组中不同变量的数量。

【问题讨论】：

标签： r tidyverse

【解决方案1】：

我们可以通过base R 做到这一点

aggregate(.~Group, df[-1], function(x) as.integer(sum(x)>0))
#  Group V1 V2 V3
#1     A  1  0  1
#2     B  1  1  1

或者使用来自base R的rowsum

+(rowsum(df[-(1:2)], df$Group)>0)
#   V1 V2 V3
#A  1  0  1
#B  1  1  1

或者用by 来自base R

+(do.call(rbind, by(df[3:5], df['Group'], FUN = colSums))>0)
#   V1 V2 V3
#A  1  0  1
#B  1  1  1

【讨论】：

【解决方案2】：

你试过了吗

unique(group_by(mtcars,cyl)$cyl).  

Output:[1] 6 4 8

【讨论】：