如何计算数据框中除指定列外各列的均值并添加全局汇总行？

嘿，我来帮你搞定这个需求！你想要计算所有国家各年份的血压均值，再添加一行"World"汇总行来做趋势图，其实用dplyr和tidyr就能轻松解决，哪怕之前用gather遇到问题也没关系，下面给你两种可行的方法：

方法一：直接计算列均值并添加汇总行（无需转格式） #

这种方法不用把数据转成长格式，直接对年份列批量计算均值，再合并到原数据框，简单高效：

library(dplyr)

# 计算各年份的全球均值，生成"World"行
world_summary <- sbp %>%
  summarise(
    Country = "World",
    # 批量处理所有以X开头的年份列，计算均值（忽略缺失值）
    across(starts_with("X"), mean, na.rm = TRUE)
  )

# 将汇总行添加到原数据框末尾
sbp_with_world <- bind_rows(sbp, world_summary)

# 查看最终结果
sbp_with_world

运行后你会看到数据框最后一行就是"World"，对应各年份的全球均值，完全符合你的需求！

方法二：转成长格式计算（解决你之前的gather问题） #

如果你更习惯用长格式处理数据（现在tidyr里更推荐用pivot_longer替代旧的gather），可以按这个步骤来：

library(tidyr)
library(dplyr)

# 把宽格式转成长格式，方便按年份分组计算
sbp_long <- sbp %>%
  pivot_longer(
    cols = starts_with("X"),  # 选择所有年份列
    names_to = "Year",        # 年份列的列名
    values_to = "SBP"         # 血压值的列名
  ) %>%
  mutate(Year = as.numeric(sub("X", "", Year)))  # 把年份转成数值型，方便绘图

# 计算每个年份的全球均值，生成"World"分组数据
world_long <- sbp_long %>%
  group_by(Year) %>%
  summarise(SBP = mean(SBP, na.rm = TRUE)) %>%
  mutate(Country = "World")

# 合并原数据和全球均值数据
sbp_long_with_world <- bind_rows(sbp_long, world_long)

# （可选）如果需要转回宽格式，执行下面这行
sbp_wide_with_world <- sbp_long_with_world %>%
  pivot_wider(names_from = Year, values_from = SBP, names_prefix = "X")

如果要画趋势图，长格式数据更适合用ggplot2：

library(ggplot2)

ggplot(sbp_long_with_world, aes(x = Year, y = SBP, color = Country)) +
  geom_line(linewidth = 1) +
  labs(title = "SBP Trend: Countries vs Global Mean", x = "Year", y = "SBP") +
  theme_minimal()

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