如何在ggplot2中为多因子数据的X轴标签行添加标题？

核心思路 #

我们可以通过自定义坐标轴标签或添加独立文本注释层的方式，给每行-/+符号上方对应因子标题，彻底替代手动修改PPT的繁琐操作。

实现方案与代码 #

方案一：整合标题到X轴标签（紧凑布局） #

直接将因子标题嵌入X轴标签的顶部，让标题与-/+状态形成层级关系：

library(ggplot2)

df <- data.frame(drug_a = rep(c("untreated", "untreated", "treated", "treated"), 4),
                 drug_b = rep(c("untreated", "treated", "untreated", "treated"), 4),
                 group = rep(c("a", "b", "c", "d"), 4),
                 condition_a = c(rep(c("w"), 8), rep(c("x"), 8)),
                 condition_b = c(rep(c("y"), 4), rep(c("z"), 4), rep(c("y"), 4), rep(c("z"), 4)),
                 reading = c(1:16))

# 定义包含标题的多层标签：第一行Drug A，第二行Drug B，最后两行是状态
plusminus.labels <- c("Drug A\nDrug B\n-\n-", "Drug A\nDrug B\n-\n+", 
                      "Drug A\nDrug B\n+\n-", "Drug A\nDrug B\n+\n+")
names(plusminus.labels) <- c("a", "b", "c", "d")

ggplot(df, aes(x=group, y=reading)) +
  geom_bar(position = "dodge", stat = "identity")+
  facet_grid(condition_a~condition_b) +
  scale_x_discrete(labels = plusminus.labels) +
  # 调整标签对齐与字号，确保层级清晰
  theme(axis.text.x = element_text(size=10, hjust=0.5, vjust=0))

方案二：独立注释层（灵活布局） #

如果需要更灵活的标题位置控制，用annotate()在X轴上方单独添加标题文本：

ggplot(df, aes(x=group, y=reading)) +
  geom_bar(position = "dodge", stat = "identity")+
  facet_grid(condition_a~condition_b) +
  scale_x_discrete(labels = c("-\n-", "-\n+", "+\n-", "+\n+")) +
  # 添加Drug A标题（对应第一行-/+）
  annotate("text", x = 1:4, y = max(df$reading)+1.2, label = "Drug A", size=4, fontface="bold") +
  # 添加Drug B标题（对应第二行-/+）
  annotate("text", x = 1:4, y = max(df$reading)+0.6, label = "Drug B", size=4, fontface="bold") +
  # 扩展Y轴范围，避免标题被截断
  ylim(0, max(df$reading)+2) +
  theme(axis.text.x = element_text(size=10, hjust=0.5))

关键细节 #

• 方案一适合需要紧凑布局的场景，标题与状态绑定；
• 方案二可自由调整标题的位置、样式（如加粗），适配不同图表尺寸；
• 可根据实际因子数量、图表大小修改标题文本、字号、位置参数（如y值）。

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