如何为ggplot2中geom_col的每个条形添加对应均值的水平线？

要给每个分组的条形添加对应均值的水平线，你需要先计算每个Species的Sepal.Length均值，再用geom_segment（而非geom_hline）来绘制对应每个条形宽度的水平线——因为geom_hline默认是贯穿整个绘图区域的全局线，无法精准对应单个分组。

方法一：提前计算均值数据 #

先通过dplyr汇总每个物种的均值，再用geom_segment绘制水平线：

library(ggplot2)
library(dplyr)

data(iris)

# 计算每个物种的花萼长度均值
mean_summary <- iris %>%
  group_by(Species) %>%
  summarize(mean_sepal = mean(Sepal.Length))

# 绘制带均值线的条形图
iris %>%
  ggplot(aes(x = Species, y = Sepal.Length, fill = Species)) +
  geom_col(width = 0.5) +
  # 为每个分组添加均值水平线
  geom_segment(
    data = mean_summary,
    aes(
      x = as.numeric(Species) - 0.25,  # 条形左边界（width=0.5，所以左右各偏移0.25）
      xend = as.numeric(Species) + 0.25,  # 条形右边界
      y = mean_sepal,
      yend = mean_sepal
    ),
    color = "black",
    linetype = "dashed",
    size = 1
  ) +
  theme_classic()

方法二：用stat_summary自动计算（无需提前汇总） #

利用stat_summary可以直接在绘图时计算均值并绘制线段，省去手动汇总步骤：

library(ggplot2)
library(dplyr)

data(iris)

iris %>%
  ggplot(aes(x = Species, y = Sepal.Length, fill = Species)) +
  geom_col(width = 0.5) +
  stat_summary(
    fun = mean,
    geom = "segment",
    aes(
      x = as.numeric(Species) - 0.25,
      xend = as.numeric(Species) + 0.25,
      y = after_stat(y),
      yend = after_stat(y)
    ),
    color = "black",
    linetype = "dashed",
    size = 1
  ) +
  theme_classic()

说明 #

• as.numeric(Species)将因子类型的x轴转换为数值位置（1、2、3分别对应三个物种），配合条形宽度0.5，通过加减0.25来匹配每个条形的左右边界，确保水平线刚好覆盖对应条形。
• 你可以调整color、linetype、size参数来修改均值线的样式。

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