如何制作包含多个组的 N 的 tapply 样式结构？

Question

可能非常简单，但我现在卡住了：下面的代码基本上是 returns 由 Var2 分组的 Var1 均值列表（Group1 的均值：5，Group2 的均值：7，Group3 的均值：4） Mean_group[GroupX] 可以引用我如何创建一个类似的结构来显示每个组中有多少个案例，这样我就可以像这样访问每个组的 N： N_of_each_group <- 属于每组的个案数 N_of_each_group[GroupX]?

data <- data_frame(group = c("A", "B", "C", "A", "B", "B", "B"),values = c(1,2,5,4,6,3,4))
Mean_group <- tapply(as.numeric(values, group, mean, na.rm=TRUE)

它适用于 Shiny 应用程序，N_of_each_group 应该添加到始终与给定用户所属的组匹配的文本中。因此，如果组 1 中有 10 人，组 2 中有 15 人，则组 1 中的用户 A 应该会看到一条文字“您的组中有 10 人”，而组 2 中的用户 B 会看到文字“有您的小组中有 15 人。

Answer 1

Dplyr 在这方面表现出色：

library(dplyr)

data %>% group_by(group) %>% summarise(mean_group=mean(values, na.rm=TRUE), n_group=n())

# A tibble: 3 x 3
  group mean_group n_group
  <chr>      <dbl>   <int>
1 A           2.5        2
2 B           3.75       4
3 C           5          1

如何制作包含多个组的 N 的 tapply 样式结构？

How to make a tapply style structure containing the N of multiple groups?

r

tapply

shiny