如何在ggplot柱状图中自定义柱旁字母标注

原代码核心问题 #

• 缺失柱状图绘制的核心图层geom_col/geom_bar，仅用逻辑错误的geom_rect（ymin和ymax设置导致无有效图形）
• 差异字母标注调用原始未排序数据data，与排序后的x轴顺序不匹配
• 主题设置重复且逻辑冲突

修正后的完整代码 #

horiz <- 9.38
quux <- data %>%
  select(Genotype, Specie, Pn, pn1) %>%
  arrange(desc(Pn)) %>%
  mutate(Genotype = factor(Genotype, levels = Genotype))

ggplot(quux, aes(Genotype, y = Pn, fill = Specie)) +
  # 绘制分组柱状图，position_dodge控制分组间距
  geom_col(position = position_dodge(width = 0.75), width = 0.7) +
  # 添加组间差异字母标注，与柱状图分组对齐
  geom_text(aes(label = pn1, y = Pn + 0.2), 
            position = position_dodge(width = 0.75), 
            size = 4) +
  # 添加水平参考线
  geom_hline(yintercept = horiz, linetype = "dashed", color = "black") +
  # 调整y轴刻度，expand避免标注超出绘图区
  scale_y_continuous(breaks = seq(6.95, 12.41, 0.9), expand = expansion(mult = c(0, 0.1))) +
  # 主题优化：x轴标签旋转，隐藏冗余刻度
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1),
        axis.ticks.x = element_blank()) +
  # 水平线旁的Genotype标签（按需保留/移除）
  geom_text(aes(label = Genotype, y = horiz), angle = 90, hjust = 1.1, size = 3.5)

关键修正说明 #

1. 新增柱状图图层：用geom_col替代无效的geom_rect，通过position_dodge实现分组展示，确保柱子与标注位置对应
2. 统一数据源：差异字母标注使用排序后的quux数据，避免标签与柱子顺序错位
3. 对齐分组参数：geom_col和geom_text的position_dodge宽度保持一致，保证每个柱子上方的标注精准对应
4. 优化坐标轴：通过scale_y_continuous的expand参数预留顶部空间，防止标注被截断

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