如何用R的ggplot2为分组柱状图添加分类总计数值标签？

你遇到的问题根源在于：geom_text默认会逐行读取数据集里的salestotal值并标注，而你的原始数据中每个FrameOrMountain分类下有多条销售记录，因此才会出现大量堆叠的行级数值，而非分类总计。

下面提供两种简单有效的解决方案：

方案1：先预处理数据，计算分类销售总和 #

先使用dplyr包对原始数据按分类汇总，得到每个类别的销售总计，再基于汇总后的数据绘图：

# 若未安装dplyr，先执行 install.packages("dplyr")
library(dplyr)
library(ggplot2)

# 按分类汇总销售总和
df_summary <- df_mountainorframemodelsales %>%
  group_by(FrameOrMountain) %>%
  summarise(total_sales = sum(salestotal))

# 绘制带总计标签的柱状图
ggplot(df_summary, aes(x = FrameOrMountain, y = total_sales, fill = FrameOrMountain)) +
  geom_bar(stat = "identity") +
  # 在柱子顶部添加总计标签，vjust=-0.3让标签略高于柱子
  geom_text(aes(label = total_sales), vjust = -0.3) +
  ggtitle("Frame and Mountain Bikes Total Sales") +
  # 调整y轴范围，防止标签超出图表边界
  ylim(0, max(df_summary$total_sales) * 1.1)

方案2：直接在geom_text中使用统计函数计算总和 #

无需预处理数据，利用ggplot2的stat="summary"参数直接在绘图时计算分类总和：

library(ggplot2)

ggplot(df_mountainorframemodelsales, aes(x = FrameOrMountain, y = salestotal, fill = FrameOrMountain)) +
  geom_bar(stat = "identity") +
  # 通过stat="summary"和fun=sum计算每组总和，用after_stat(y)获取计算结果
  geom_text(stat = "summary", fun = sum, aes(label = after_stat(y)), vjust = -0.3) +
  ggtitle("Frame and Mountain Bikes Total Sales") +
  # 扩展y轴上限，避免标签被截断
  ylim(0, sum(df_mountainorframemodelsales$salestotal) * 1.1)

两种方案都能实现需求：方案1更直观，适合后续需要复用汇总数据的场景；方案2无需额外生成数据集，代码更简洁。

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