如何按分组计算总计？hflights分组求和报错修正方法

嘿，我看到你在使用dplyr对hflights数据分组汇总时遇到了这个报错，咱们来一步步搞定它～

先看你出错的代码片段：

hflights_df %>% group_by("Year", "Month") %>% sum(ActualElapsedTime, na.rm=T)

错误原因分析 #

• 分组时的引号问题：你在group_by里传入了带引号的"Year"和"Month"，这会让dplyr把它们当成普通字符串，而不是数据框里的列名，导致后续的聚合操作找不到正确的分组上下文。
• 聚合函数的用法错误：在dplyr的管道流中，不能直接调用sum()，需要用summarise()（或summarize()，两者功能完全一致）来包裹聚合函数，这样才能针对每个分组计算对应指标。

修正后的完整代码 #

library(hflights)
library(dplyr)  # 明确加载dplyr，避免依赖隐式加载的问题

head(hflights)
hflights_df <- tbl_df(hflights)
hflights_df$ActualElapsedTime <- as.numeric(hflights_df$ActualElapsedTime)

# 修正后的分组汇总逻辑
hflights_df %>% 
  group_by(Year, Month) %>%  # 去掉引号，直接引用数据框的列名
  summarise(total_elapsed_time = sum(ActualElapsedTime, na.rm = TRUE))  # 用summarise创建汇总列

扩展：同时计算多个汇总指标 #

如果需要在分组后同时计算多个统计值（比如每个月的航班数量），可以在summarise里添加多个计算项：

hflights_df %>% 
  group_by(Year, Month) %>% 
  summarise(
    total_elapsed_time = sum(ActualElapsedTime, na.rm = TRUE),
    monthly_flight_count = n(),  # 统计每个分组的航班总数
    avg_elapsed_time = mean(ActualElapsedTime, na.rm = TRUE)  # 计算平均耗时
  )

内容的提问来源于stack exchange，提问作者user2946746