如何在ggplot2 facet_wrap多图中仅保留指定子图的标题条

要实现保留子图a的顶部标题条（strip）、移除b/c的strip且所有子图尺寸一致，有三种实用方案：

方案1：直接通过facet标签与主题设置（最简洁） #

利用labeller隐藏b/c的strip文字，再通过theme将对应strip背景设为透明，同时保留strip的高度以保证子图尺寸一致：

library(ggplot2)
library(dplyr)

# 构造示例数据
df <- tibble(
  group = rep(c("a", "b", "c"), each = 100),
  x = rnorm(300),
  y = rnorm(300)
)

ggplot(df, aes(x, y)) +
  geom_point() +
  facet_wrap(~group) +
  # 仅显示a的标签，b/c设为空
  labeller = labeller(group = \(x) ifelse(x == "a", x, "")),
  theme(
    # 为不同group设置strip背景：a保留默认灰色，b/c透明
    strip.background = element_rect(
      fill = case_when(
        unique(df$group) == "a" ~ "grey80",
        TRUE ~ "transparent"
      )
    ),
    # 确保所有strip高度一致，b/c文字透明隐藏
    strip.text = element_text(
      color = case_when(
        unique(df$group) == "a" ~ "black",
        TRUE ~ "transparent"
      )
    )
  )

方案2：用patchwork拆分组合（最直观易维护） #

将三个子图分开绘制，仅给a图保留strip，再通过patchwork组合，默认会对齐所有子图的绘图区域，确保尺寸完全一致：

library(patchwork)

# 绘制带strip的子图a
p_a <- ggplot(df %>% filter(group == "a"), aes(x, y)) +
  geom_point() +
  facet_wrap(~group)

# 绘制无strip的子图b/c
p_b <- ggplot(df %>% filter(group == "b"), aes(x, y)) +
  geom_point() +
  theme(strip.text = element_blank(), strip.background = element_blank())

p_c <- ggplot(df %>% filter(group == "c"), aes(x, y)) +
  geom_point() +
  theme(strip.text = element_blank(), strip.background = element_blank())

# 按3列组合，添加共用标题（可选）
p_a + p_b + p_c +
  plot_layout(ncol = 3) +
  plot_annotation(title = "共用标题")

方案3：用gtable底层修改（精细控制） #

提取ggplot的gtable对象，直接修改指定strip的背景与文字属性，适合需要深度定制的场景：

library(gtable)
library(grid)

# 先绘制常规facet图
p <- ggplot(df, aes(x, y)) +
  geom_point() +
  facet_wrap(~group)

# 转换为gtable对象
gt <- ggplotGrob(p)

# 定位所有strip的位置
strip_indices <- grep("strip", gt$layout$name)

# 仅保留第一个strip（对应group a），其余设为透明
for (idx in strip_indices[-1]) {
  # 隐藏strip背景
  gt$grobs[[idx]]$grobs[[1]]$children[[1]]$gp$fill <- "transparent"
  # 隐藏strip文字
  gt$grobs[[idx]]$grobs[[1]]$children[[2]]$children[[1]]$gp$col <- "transparent"
}

# 绘制修改后的图
grid.draw(gt)

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