r - dplyr 中的 summarise_at 的额外统计信息

Question

有没有办法向 summarize_at 调用添加额外的统计信息？例如

iris %>% group_by(Species) %>% summarise_at(vars(), funs(mean, sd))

将计算 4 列的平均值和标准差(总共 8 列)。假设我还想知道每组中有多少行。即，类似

# Below is not valid syntax 
iris %>% 
  group_by(Species) %>% 
  summarise_at(vars(), funs(mean, sd)) + summarise(n())

鉴于上述方法不起作用，组装是

iris %>% group_by(Species) %>% summarise_at(vars(), funs(mean, sd, length))

它实际上生成了计数列的 4 个副本。

也许这超出了 summarize_at 和 friend 们可以方便处理的范围？

Answer 1

这个怎么样:

iris %>% 
    group_by(Species) %>% 
    mutate(Count = n()) %>%
    group_by(Species, Count) %>%
    summarize_at(vars(), funs(mean, sd))