如何在ggplot2的geom_col()柱状图上方添加分类总和数据标签？

我来帮你搞定这个标签显示的问题！你的代码之所以没达到预期效果，主要是两个地方没处理对：一是柱子本身可能没正确计算总和，二是标签的位置和取值逻辑不对。下面给你两种可行的解决方案：

方案一：直接用stat_summary处理（无需提前汇总数据） #

这种方法适合不想手动整理数据的情况，让ggplot自动帮你计算总和：

library(ggplot2)

gg <- ggplot(vgsales, aes(x = Genre, y = Global_Sales, fill = Genre)) +
  # 绘制每个Genre的销售总和柱子
  stat_summary(fun = sum, geom = "col") +
  # 添加总和标签，调整位置到柱子上方
  stat_summary(
    fun = sum,
    geom = "text",
    aes(label = round(after_stat(y), 2)), # 保留两位小数更整洁
    vjust = -0.5, # 向上偏移，避免和柱子重叠
    color = "black"
  ) +
  # 可选：旋转x轴标签，防止分类名太长重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))
print(gg)

方案二：提前汇总数据（更直观可控） #

如果你希望数据逻辑更清晰，可以先用dplyr把每个Genre的销售总和算出来，再绘图：

library(ggplot2)
library(dplyr)

# 第一步：汇总每个Genre的全球销售总和
sales_summary <- vgsales %>%
  group_by(Genre) %>%
  summarise(Total_Sales = sum(Global_Sales, na.rm = TRUE)) %>%
  ungroup()

# 第二步：用汇总后的数据绘图
gg <- ggplot(sales_summary, aes(x = Genre, y = Total_Sales, fill = Genre)) +
  geom_col() +
  # 添加总和标签，设置在柱子上方
  geom_text(aes(label = round(Total_Sales, 2)), vjust = -0.5, color = "black") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))
print(gg)

为什么你的原代码没生效？ #

1. 柱子计算错误：geom_col默认是stat="identity"，如果你的vgsales数据里每个Genre对应多行记录，它会把每行的销售值都画成独立柱子，而不是总和。所以需要用stat_summary(fun=sum)或者提前汇总数据来得到总和柱子。
2. 标签位置和取值错误：你原代码里的geom_text虽然加了stat="sum"，但y=Global_Sales还是原始的单条数据值，没有引用计算后的总和。而且没设置vjust参数，标签会卡在柱子里甚至位置错乱，用vjust=-0.5可以把标签向上挪到柱子上方。

内容的提问来源于stack exchange，提问作者A.G.