如何在 r 中按组计算总和（附示例）

通常，您可能想要计算 R 中每个组的总和。您可以使用三种方法来执行此操作：

方法一：使用R基。

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

方法 2：使用 dplyr() 包。

 library (dplyr)

df %>%
  group_by (col_to_group_by) %>%
  summarize (Freq = sum (col_to_aggregate))

方法3：使用data.table包。

 library (data.table)

dt[ ,list(sum= sum (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 sum of points scored by team
aggregate(df$pts, list(df$team), FUN= sum )

  Group.1 x
1 to 13
2 b 37
3 v 14

方法2：使用dplyr按组计算总和

以下代码展示了如何使用dplyr包的group_by()和summarise()函数来计算以下数据框中各队得分的总和：

 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 sum of points scored by team
df %>%
group_by (team) %>%
summarize (Freq = sum (pts))

# A tibble: 3 x 2
  team Freq
  <chr> <dbl>
1 to 13
2 b 37
3 v 14

方法三：使用data.table按组求和

下面的代码展示了如何使用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 sum of points scored by team
df[,list(sum= sum (pts)), by=team]

   team sum
1:a 13
2:b37
3:c14

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

注意：如果您有一个非常大的数据集，则 data.table 方法将是此处列出的三种方法中运行速度最快的。

其他资源

如何计算R中每组的平均值
如何在R中按组计算分位数