ggplot分面直方图添加对应性别均值竖线报错求助

修正后的完整代码 #

# 计算不同性别对应的得分均值
demo_joined %>%
  filter(!is.na(overall_score)) %>%
  group_by(gender) %>%
  summarize(mean_score = mean(overall_score)) -> means

# 绘制带对应均值竖线的分面直方图
demo_joined %>%
  filter(!is.na(overall_score)) %>%
  ggplot() +
  geom_histogram(aes(x = overall_score)) +
  facet_grid(. ~ gender) +
  geom_vline(data = means, aes(xintercept = mean_score))

问题原因与解释 #

报错的核心是没有将xintercept放入aes()映射中：

• 直接写xintercept = mean_score时，ggplot会将其视为全局环境变量，而非从means数据框中读取，同时触发警告忽略data参数，导致找不到mean_score对象。
• 将xintercept = mean_score放进aes()后，ggplot会自动关联means数据框中的gender列，与分面的gender匹配，为每个分面显示对应性别的均值竖线，不会出现所有均值线重复显示的问题。

可选：自定义均值线样式 #

如果需要区分均值线，可在aes()外添加样式参数：

geom_vline(data = means, aes(xintercept = mean_score), color = "darkred", linetype = "dashed", size = 1)

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