如何计算 r 中的组平均值（附示例）

通常您可能想要计算 R 中的组平均值。您可以使用三种方法来执行此操作：

方法一：使用R基。

 aggregate(df$col_to_aggregate, list(df$col_to_group_by), FUN= mean )

方法 2：使用 dplyr() 包。

 library (dplyr)

df %>%
  group_by (col_to_group_by) %>%
  summarise_at (vars(col_to_aggregate), list(name = mean ))

方法3：使用data.table包。

 library (data.table)

dt[ ,list(mean= mean (col_to_aggregate)), by=col_to_group_by]

以下示例展示了如何在实践中使用每种方法。

方法 1：使用 R 基数计算每组的平均值

以下代码展示了如何使用R数据库Aggregate()函数计算以下数据框中每支球队的平均得分：

 #create data frame
df <- data.frame(team=c('a', 'a', 'b', 'b', 'b', 'c', 'c'),
                 pts=c(5, 8, 14, 18, 5, 7, 7),
                 rebs=c(8, 8, 9, 3, 8, 7, 4))

#view data frame
df

  team pts rebs
1 to 5 8
2 to 8 8
3 b 14 9
4 b 18 3
5 b 5 8
6 c 7 7
7 c 7 4

#find mean points scored by team
aggregate(df$pts, list(df$team), FUN= mean )

  Group.1 x
1 to 6.50000
2 b 12.33333
3 to 7.00000

方法 2：使用 dplyr 计算每组的平均值

以下代码展示了如何使用dplyr包中的group_by ()和summarise_at()函数来计算以下数据框中每个团队的平均得分：

 library (dplyr)

#create data frame
df <- data.frame(team=c('a', 'a', 'b', 'b', 'b', 'c', 'c'),
                 pts=c(5, 8, 14, 18, 5, 7, 7),
                 rebs=c(8, 8, 9, 3, 8, 7, 4))

#find mean points scored by team
df %>%
group_by (team) %>%
summarise_at (vars(pts), list(name = mean ))

# A tibble: 3 x 2
  team name
  <fct> <dbl>
1 to 6.5
2 b 12.3
3 v 7

方法3：使用data.table按组计算平均值

以下代码显示了如何计算以下数据框中每支球队的平均得分：

 library (data.table)

#create data frame
df <- data.frame(team=c('a', 'a', 'b', 'b', 'b', 'c', 'c'),
                 pts=c(5, 8, 14, 18, 5, 7, 7),
                 rebs=c(8, 8, 9, 3, 8, 7, 4))

#convert data frame to data table 
setDT(df)

#find mean points scored by team
df[,list(mean= mean (pts)), by=team]

   team mean
1: to 6.50000
2:b12.33333
3: c 7.00000

请注意，所有三种方法都返回相同的结果。

相关： R 中均值函数的完整指南

其他资源

如何在R中按组计算总和
如何在R中按组计算分位数