如何将ggplot2横向柱状图的百分比文本置于条形中央？

核心问题是coord_flip()会互换坐标轴，你需要调整geom_text()中的位置映射，让文本对齐到条形中央：

解决方案示例 #

假设你的原始代码类似这样（文本在条形左侧）：

library(ggplot2)
library(scales)

# 示例数据
data <- data.frame(category = c("A", "B", "C", "D"),
                   value = c(25, 35, 20, 20))

# 横向柱状图（文本位置错误）
p_flip_wrong <- ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity", fill = "#2E86AB") +
  coord_flip() +
  geom_text(aes(label = percent(value/100)), x = 0) # x=0导致文本在左侧

print(p_flip_wrong)

要修正文本位置，只需把geom_text()中的位置映射改为条形长度的一半。由于coord_flip()互换了坐标轴，原y轴（数值）变为翻转后的x轴，所以调整x参数为value/2：

# 修正后的横向柱状图
p_flip_correct <- ggplot(data, aes(x = category, y = value)) +
  geom_bar(stat = "identity", fill = "#2E86AB") +
  coord_flip() +
  geom_text(aes(label = percent(value/100), x = value/2), color = "white") # x设为条形长度的一半

print(p_flip_correct)

自动计算百分比的场景 #

如果是通过stat="count"自动计算百分比，需要搭配group=1，同时将位置设为x=..prop../2：

ggplot(mtcars, aes(x = factor(cyl))) +
  geom_bar(aes(y = ..prop.., group = 1), stat = "count", fill = "#2E86AB") +
  coord_flip() +
  geom_text(aes(label = percent(..prop..), x = ..prop../2, group = 1), 
            stat = "count", color = "white")

关键说明 #

• coord_flip()后，原图表的x轴（类别）变为新图表的y轴，原y轴（数值）变为新图表的x轴
• 让文本位于条形中央，需将文本的x坐标（翻转后的数值轴）设为对应条形长度的一半
• 若需要文本与条形形成视觉对比，可在geom_text()中添加color参数

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