ggplot直方图中如何设置均值标签的y轴位置？

核心思路 #

要把均值标签放在y轴0的位置，直接给geom_label()的y参数传0即可，但考虑到标签会被坐标轴遮挡，建议稍微上调一点（比如y=0.005，对应0.5%的位置）。之前绘图卡顿的原因，大概率是你没给geom_label()指定单独的均值数据框，导致它为整个数据集的每一行都生成标签，图形元素暴增引发卡顿。

完整代码示例 #

library(data.table)
library(ggplot2)

# 模拟数据集
set.seed(123)
dt <- data.table(revenue = rnorm(10000, mean = 5000, sd = 1500))

# 计算均值
mean_rev <- mean(dt$revenue)

# 绘制直方图（y轴为百分比）+ 均值竖线+标签
ggplot(dt, aes(x = revenue)) +
  geom_histogram(aes(y = after_stat(count / sum(count))), 
                 bins = 30, fill = "lightblue", color = "black") +
  geom_vline(xintercept = mean_rev, color = "red", linewidth = 1) +
  # 关键：用单独的数据框传值，只生成一个标签
  geom_label(data = data.table(x = mean_rev, y = 0.005), 
             aes(x = x, y = y, label = paste("均值:", round(mean_rev, 2))),
             color = "red", size = 4) +
  scale_y_continuous(labels = scales::percent_format()) +
  labs(x = "收入", y = "占比", title = "收入分布直方图")

关键说明 #

• y=0是y轴的绝对底部位置，如果你想让标签完全贴在坐标轴上就用这个值；用y=0.005是让标签稍微上浮一点，避免被坐标轴线条挡住，更美观。
• 必须给geom_label()的data参数传入只包含均值的单行数据框（比如上面的data.table(x = mean_rev, y = 0.005)），这样只会生成一个标签，彻底解决卡顿问题。

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