如何在分组条形图中为每个x变量级别添加单个差值标签

你的问题核心在于原始数据是长格式（每行对应一个观测），直接用geom_text会重复输出差值文本，且未对齐分组条形。以下是可行的解决步骤：

步骤1：预处理数据，汇总频次与对应差值 #

先通过分组统计，得到每个color-group组合的频次以及对应的唯一差值，避免文本重复：

library(dplyr)
# 汇总数据：统计每个color-group组合的频次，提取对应的difference
test_sum <- test %>%
  group_by(color, group, difference) %>%
  summarise(count = n(), .groups = "drop")

步骤2：绘制带差值文本的分组条形图 #

使用汇总后的数据，用geom_col代替geom_bar（因为已经有统计好的频次），并通过position_dodge让文本与分组条形对齐：

library(ggplot2)
ggplot(data = test_sum, aes(x = color, y = count, fill = group)) +
  geom_col(position = position_dodge(width = 0.9)) + # 分组条形，设置宽度对齐文本
  geom_text(aes(label = difference),
            position = position_dodge(width = 0.9), # 文本与条形对齐
            vjust = -0.5, # 调整文本在条形上方的位置
            size = 4) + # 可选：调整文本大小
  ylim(0, max(test_sum$count) + 1) # 扩展y轴范围，防止文本被截断

原代码失败的原因 #

• 原始数据每行对应一个观测，geom_text会为每行输出一次差值，导致同一个条形上方出现重复文本；
• 未设置position_dodge，文本无法与分组后的条形对齐；
• stat='identity'在geom_text中使用错误，这里不需要用统计变换，直接使用汇总后的count即可。

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