如何避免ggplot堆叠柱状图中标签与误差棒重叠？

针对你遇到的堆叠柱状图标签与误差棒重叠、标签可读性差的问题，可通过数据过滤、调整元素位置、优化轴范围三步解决，最终实现标签置于条形侧边且隐藏0值标签的效果：

步骤1：数据预处理 #

首先过滤掉count为0的行，避免显示无效标签：

library(ggplot2)
library(dplyr)

# 原始数据
site <- rep(c("C","R","L"),each=5)
name <- rep(c(1:5), times=3)
carb <- c(26,7,3,0,0,23,13,7,2,0,21,10,6,6,2)
se <- c(0.2,1,1,0,0,0.7,2,2,1,0,0.4,1,2,3,2)
sepos <- c(26,33,36,36,36,23,36,43,45,45,21,31,37,43,45)
count <- c(538,36,17,0,0,237,25,12,1,0,321,34,29,18,1)

example <- data.frame(site, name, carb, se, sepos, count)

# 过滤count=0的行
example_filtered <- example %>% filter(count != 0)

步骤2：优化绘图代码 #

调整误差棒位置、标签位置及轴范围，彻底解决重叠问题：

ggplot(example, aes(fill=name, y=carb, x=site)) +
  # 堆叠柱状图
  geom_bar(position="stack", stat="identity", color="darkgray") +
  # 误差棒：移除dodge参数，匹配堆叠后的高度位置
  geom_errorbar(aes(ymin=sepos-se, ymax=sepos+se), width=.2, color = "black") +
  # 样本量标签：移至条形右侧，左对齐，匹配堆叠块颜色
  geom_text(data = example_filtered, 
            aes(x = as.numeric(site) + 0.2, y=sepos, label=count, color=name), 
            hjust=0, size=3.5) +
  # 隐藏颜色图例（已有填充图例）
  guides(color = "none") +
  labs(y = "Example", x = NULL) +
  theme_minimal() +
  # 扩展x轴右侧空间，防止标签截断
  scale_x_discrete(expand = expansion(add = c(0, 0.5)))

关键调整说明 #

• 移除误差棒的position="dodge"：你的sepos已经是堆叠后的累计高度，dodge会导致误差棒错位，直接绘制即可对应到每个堆叠块的顶部。
• 标签位置偏移：将x转换为数值后添加固定偏移量（0.2），把标签移到条形右侧，配合hjust=0左对齐，彻底避免与误差棒重叠。
• 匹配标签与堆叠块颜色：通过aes(color=name)让标签颜色对应堆叠块，提升可读性，同时隐藏多余的颜色图例。
• 扩展轴范围：用scale_x_discrete(expand=...)给右侧留出足够空间，防止标签被图表边界截断。

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