如何在ggplot2的发散条形图上标注唯一重复键值

你的核心问题出在geom_text的写法上：你把所有col1的值拼接成一个字符串，还固定了x=5的位置，导致所有文本堆在同一个地方，自然会重叠。要实现每个分组文本对应正条形底部居中对齐，按以下步骤修改：

修正思路 #

• 确保每个分组（col1的唯一值）只显示一次文本，避免重复绘制
• 让文本的x坐标与对应分组的条形位置对齐，y坐标设为接近0的正值（正条形底部区域）
• 保持与主图一致的分组排序（reorder(col1, col2)）

修正后的代码 #

# 提取col1的唯一值，确保每个分组只生成一次文本
label_df <- unique(df[, "col1", drop = FALSE])

ggplot(df, aes(x = reorder(col1, col2), y = col2)) +
  geom_bar(stat = "identity", show.legend = FALSE) +
  # 给每个分组添加底部居中的文本
  geom_text(data = label_df, 
            aes(x = reorder(col1, col2), y = 0.8, label = col1),
            family = "Futura", color = "black", size = 5, hjust = 0.5) +
  xlab("Group") +
  ylab("Value") +
  theme(axis.text.x = element_blank(), axis.ticks.x = element_blank())

关键改动说明 #

• 用unique()提取col1唯一值，避免同一分组重复绘制文本
• geom_text的x映射和主图保持一致，确保文本和对应条形位置精准匹配
• y=0.8可根据你的数据范围调整，只要落在正条形的底部区域即可
• hjust=0.5强制文本相对于条形居中对齐

如果文本仍有轻微重叠，可适当调小size参数，或添加vjust参数微调垂直位置。

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