如何在ggplot2填充条形图外移动并对齐单个标签？

核心思路 #

先提前计算各分类的占比和标签位置，避免ggplot自动统计带来的偏差；再通过ggrepel的位置偏移参数把「No answer」标签推到图外，同时统一所有标签的样式。

修改后的完整代码 #

library(ggplot2)
library(dplyr)
library(ggrepel)

# 提前计算各分类的占比和标签中心位置
data_summary <- data %>%
  filter(q0005 %in% c("Yes", "No", "No answer")) %>%
  count(q0005) %>%
  mutate(prop = n / sum(n),
         y_pos = cumsum(prop) - prop/2)  # 计算每个条形块的垂直中心位置

axis_labels <- c("0%", "10", "20", "30", "40", "50", "60", "70", "80", "90", "100")
order_age <- c("65 and up", "35 - 64", "18 - 34")

ggplot(data, aes(x = "All adult men", fill = q0005))+
  geom_hline(yintercept = 0.5, color = "black") +
  geom_bar(position = "fill") +
  geom_hline(yintercept = seq(0, 1, by = 1), color = "black") +
  
  # 正常显示Yes和No的标签
  geom_text(data = filter(data_summary, q0005 != "No answer"),
            aes(y = y_pos, label = q0005),
            size = 4) +
  # 用ggrepel将No answer标签推至图外，coord_flip后x方向对应原y轴，向左偏移出图
  geom_text_repel(data = filter(data_summary, q0005 == "No answer"),
                  aes(y = y_pos, label = q0005),
                  size = 4,  # 和其他标签统一字体大小
                  nudge_x = -0.3,  # 控制偏移距离，可根据图表调整
                  direction = "y",  # 保持标签与条形中心在垂直方向对齐
                  force = 1,  # 增加推力确保标签移出图外
                  segment.color = NA) +  # 可选：去掉标签与条形的连接线段
  
  scale_fill_manual(values = c("Yes" = "#ec703b", "No answer" = "#d1d1d1", "No" = "#8cd9df")) +
  scale_y_continuous(breaks = seq(0, 1, by = 0.1), labels = axis_labels, position = "right") +
  theme(
    axis.title = element_blank(),
    axis.line.x = element_blank(),
    axis.ticks = element_blank(),
    axis.text.y = element_text(),
    panel.grid.major.y = element_blank(),
    panel.grid.minor.x = element_blank(),
    panel.grid.major.x = element_line(color = "#d1d1d1")
  ) +
  coord_flip()

关键修改点说明 #

• 提前计算位置：用dplyr统计各分类的数量和占比，手动计算标签的垂直中心位置，避免stat="count"在position_fill模式下的位置计算误差。
• 统一标签样式：为geom_text和geom_text_repel设置相同的size参数，保证所有标签字体一致。
• 精准控制偏移：利用nudge_x（因coord_flip方向反转，x对应原图表的垂直类别轴）将「No answer」标签向左推出图外，direction="y"确保标签和对应条形块在垂直方向对齐。

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