使用geom_text为ggplot2柱状图添加数据标签时的问题

问题原因分析 #

1. 标签全部相同：大概率是直接用原始diamonds数据集绘图时，没按color分组计算均值——要么误用到全局均值（比如mean(diamonds$price)），要么geom_text的数据没和柱状图的分组计算对齐。
2. round函数参数不生效：通常是没把分组后的均值传入round，反而用了原始数据的单个价格值；或是在stat_summary里的写法错误，导致round没作用到均值上。

两种可行解决方案 #

方案一：先预处理数据（更直观）

先按颜色分组算出平均价格，再绘图，标签直接用处理好的数值：

library(ggplot2)
library(dplyr)

# 计算各颜色钻石的平均价格，同时保留3位小数
diamonds_avg <- diamonds |> 
  group_by(color) |> 
  summarize(avg_price = mean(price),
            avg_price_round = round(avg_price, digits = 3))

# 绘制柱状图+数据标签
ggplot(diamonds_avg, aes(x = color, y = avg_price)) +
  geom_col(fill = "steelblue") +
  geom_text(aes(label = avg_price_round), vjust = -0.3) + # 标签置于柱子上方
  labs(x = "钻石颜色", y = "平均价格", title = "各颜色钻石平均价格对比") +
  theme_bw()

方案二：用stat_summary直接在绘图时计算（无需提前处理数据）

利用stat_summary同时完成均值计算、绘图和标签设置：

library(ggplot2)

ggplot(diamonds, aes(x = color, y = price)) +
  # 绘制均值柱状图
  stat_summary(fun = mean, geom = "col", fill = "coral") +
  # 添加均值标签，并用round保留3位小数
  stat_summary(fun = mean, geom = "text",
               aes(label = round(..y.., digits = 3)),
               vjust = -0.3) +
  labs(x = "钻石颜色", y = "平均价格", title = "各颜色钻石平均价格对比") +
  theme_minimal()

关键说明 #

• 方案一中用group_by+summarize分组计算，确保每个颜色对应唯一的平均价格，标签自然不会重复；提前计算好avg_price_round，直接调用就能保证小数位数正确。
• 方案二中的..y..是stat_summary内置变量，代表计算后的均值（即柱子高度值），把它传入round就能正确对均值保留小数位，同时stat_summary会自动按x轴的color分组计算，每个标签对应各自的均值。

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