ggplot堆叠条形图如何实现分段内文本标签垂直居中

• 原代码的标签定位存在两个核心偏差：一是手动将标签y值设置为分段累计高度的顶部位置，二是搭配vjust=0的顶部对齐参数，最终导致标签只能贴在每个分段的上边缘，无法实现垂直居中；同时手动计算y值的逻辑和百分比堆叠条形的归一化坐标体系不匹配，容易出现位置错位。

核心调整逻辑 #

不需要手动计算每个分段的中点坐标，直接使用ggplot2内置的填充堆叠位置调整函数，即可自动实现标签和条形分段的精准对齐、垂直居中，完全替代手动计算y值的冗余逻辑。

关键修改点 #

• 移除geom_text中手动计算y值的冗余代码，删除原来y= 15*((..count..)/sum(..count..))的写法
• 将geom_text的位置参数设置为position = position_fill(vjust = 0.5)，该函数会和geom_bar(position='fill')的坐标体系完全对齐，自动识别每个堆叠分段的上下边界，计算垂直中点位置，让标签落在分段正中间
• 修正标签的百分比计算逻辑，删除原来计算时多余的乘15的错误偏移量，直接基于计数比例计算需要展示的百分比数值

调整后的完整可运行代码 #

ggplot(data, aes(A, fill=reorder(Y, desc(Y)))) + 
  # 百分比堆叠条形本体，保留原有绘图逻辑
  geom_bar(position='fill') + 
  # 文本标签：自动对齐堆叠分段中心实现垂直居中
  geom_text(aes(label = scales::percent((..count..)/sum(..count..))), 
            stat = "count",
            position = position_fill(vjust = 0.5)) + 
  labs(x="A", y="Stacked Percentage", fill="Y") + 
  facet_wrap(~B, nrow=1) +
  scale_y_continuous(labels = scales::percent)

适配场景的微调建议 #

• 如果遇到占比小于5%的极窄分段，宽度不足以容纳完整标签，可以在geom_text中通过size = 3适当调小标签字号，避免文字溢出分段边界
• 如果需要提升标签可读性，可以将geom_text替换为geom_label，给文本添加浅色背景框，减少背景颜色对文字阅读的干扰
• 调整后所有标签会自动保持和分段中心的水平、垂直双向对齐，不需要额外手动校准坐标

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