在R的ggplot2中为分组条形图添加年度年龄均值垂直线

首先，我们先梳理下你当前代码的几个问题：

• 语法错误：图层叠加时的括号使用不当，比如SepAgePlot+(geom_vline(...)+theme_classic()多了一层冗余括号，应该直接用+连接图层；
• 手动输入均值效率低且易出错：应该通过数据计算每个年份的加权年龄均值（因为每个年龄对应不同的Count，需要用Count作为权重计算真实均值）；
• 坐标轴对应问题：你的x轴是factor(Year)，而年龄均值是Age的数值，两者不在同一坐标轴维度，需要调整图表逻辑或者通过因子位置映射来匹配。

下面分两种场景给出解决方案：

场景1：保持原图表结构（x轴为年份，不同颜色代表年龄） #

如果你想保留x轴为年份的条形图，我们可以为每个年份的x轴位置添加垂直线，并标注对应的年龄均值：

library(ggplot2)

# 读取你的数据（替换为实际文件名）
AgeDat <- read.csv("your_data.csv")

# 计算每个年份的加权年龄均值
year_means <- aggregate(. ~ Year, data = AgeDat, FUN = function(x) {
  # 加权平均：(年龄*计数)总和 / 计数总和
  sum(x[["Age"]] * x[["Count"]]) / sum(x[["Count"]])
})
# 重命名均值列
names(year_means)[2] <- "weighted_mean_age"
# 为每个年份映射x轴因子的位置（1对应1964，2对应1965，以此类推）
year_means$x_pos <- as.numeric(factor(year_means$Year))

# 绘制图表
SepAgePlot <- ggplot(AgeDat, aes(x = factor(Year), y = Count, fill = factor(Age))) +
  # 绘制分组条形图
  geom_bar(stat = "identity", position = "dodge") +
  # 添加每个年份的垂直线（红色虚线）
  geom_vline(data = year_means, aes(xintercept = x_pos), color = "red", linetype = "dashed", linewidth = 0.8) +
  # 在垂直线上方标注年龄均值
  geom_text(data = year_means, aes(x = x_pos, y = max(AgeDat$Count) * 1.05, 
                                  label = paste("Mean Age:", round(weighted_mean_age, 1))),
            color = "red", fontface = "bold") +
  # 使用经典主题
  theme_classic() +
  # 设置标签
  labs(x = "Year", y = "Count", title = "Age Distribution by Year", fill = "Age")

# 显示图表
print(SepAgePlot)

场景2：更直观的年龄均值展示（x轴为年龄，不同颜色代表年份） #

如果你的核心需求是突出每个年份的年龄均值，更合理的方式是把x轴设为年龄，按年份分组展示条形，然后为每个年份添加对应均值的垂直线：

library(ggplot2)
library(dplyr)

# 读取数据
AgeDat <- read.csv("your_data.csv")

# 用dplyr计算加权均值（代码更简洁）
year_means <- AgeDat %>%
  group_by(Year) %>%
  summarise(weighted_mean_age = sum(Age * Count) / sum(Count))

# 绘制图表
ggplot(AgeDat, aes(x = Age, y = Count, fill = factor(Year))) +
  # 按年份分组的条形图
  geom_bar(stat = "identity", position = "dodge", width = 0.8) +
  # 为每个年份添加对应颜色的均值垂直线
  geom_vline(data = year_means, aes(xintercept = weighted_mean_age, color = factor(Year)),
             linetype = "dashed", linewidth = 0.8) +
  # 添加均值文本标注
  geom_text(data = year_means, aes(x = weighted_mean_age, y = max(AgeDat$Count) * 1.02,
                                  label = paste("Mean:", round(weighted_mean_age, 1)),
                                  color = factor(Year)),
            fontface = "bold") +
  theme_classic() +
  labs(x = "Age", y = "Count", title = "Count by Age and Year", 
       fill = "Year", color = "Year Mean Age")

关键说明： #

• 加权均值计算：因为每个年龄对应的Count不同，必须用sum(Age*Count)/sum(Count)来计算真实的平均年龄，而不是简单的mean(Age)；
• 图层叠加：ggplot2的图层需要用+依次连接，不要额外嵌套括号；
• 坐标轴映射：当x轴是因子类型时，需要用as.numeric(factor(Year))获取每个因子对应的x轴位置，才能正确添加垂直线。

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