如何用ggplot2为绘图X轴添加分组区段标签？

你需要在翻转坐标后的图表中给分类轴添加区段标题，以下是两种纯ggplot原生风格的实现方式：

方案一：用annotate()精准添加区段标题 #

通过计算分类轴的位置，直接在指定位置插入文本标题，灵活可控：

library(ggplot2)

# 数据
df =  data.frame(
  x = factor(c("A", "B", "C", "B", "A", "C")), 
  y = c(10, 15, 8, 12, 9, 10)  
)

# 基础绘图
p <- ggplot(df, aes(x, y)) + 
  geom_point() + 
  coord_flip()

# 添加区段标题并调整轴范围
p + 
  # 起始位置（C下方）添加header 1
  annotate("text", x = min(df$y) - 1.5, y = 0.5, label = "header 1", hjust = 0) +
  # C与B之间添加header 2
  annotate("text", x = min(df$y) - 1.5, y = 1.5, label = "header 2", hjust = 0) +
  # B与A之间添加header 3
  annotate("text", x = min(df$y) - 1.5, y = 2.5, label = "header 3", hjust = 0) +
  # 扩展x轴左侧空间，容纳标题
  xlim(min(df$y)-3, max(df$y))

这里的y参数对应翻转后y轴的位置（factor的索引从1开始，间隙位置取整数+0.5），x参数控制标题在数值轴上的水平位置，可根据需求调整。

方案二：整合区段标题到轴标签中 #

如果希望标题直接嵌入轴系统，可自定义scale_y_discrete的标签，用换行和空格实现对齐：

p + 
  scale_y_discrete(
    labels = c(
      "A" = "header 3\n      A",
      "B" = "header 2\n      B",
      "C" = "header 1\n      C"
    )
  )

这种方式完全利用ggplot的轴定制逻辑，无需额外元素，风格更统一。

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