如何将facet_wrap绘图的标题格式设置为匹配分面条样式？

我尝试将facet_wrap绘图的标题格式设置为与分面条（facet strips）样式匹配。在下方绘图中，我添加了标题“len”，但它的格式与右侧分面条（如0.5、1、2）的样式不符。如何让标题具备分面条的样式（如灰色矩形框、黑色边框、文本在绘图宽度上居中等）？

示例代码 #

library(tidyverse)

ToothGrowth |>
  ggplot(aes(x = dose, y = len)) +
  geom_boxplot(aes(fill = supp)) +
  labs(title = 'len',
       y = NULL) +
  theme_bw() +
  facet_wrap(~dose, ncol = 1, strip.position = "right")

绘图示例 #

这里提供两种可行方法来让标题匹配分面条的样式：

方法一：直接自定义标题样式 #

通过调整theme里的标题相关参数，模仿分面条的灰色背景、黑色边框和居中对齐效果：

library(tidyverse)

ToothGrowth |>
  ggplot(aes(x = dose, y = len)) +
  geom_boxplot(aes(fill = supp)) +
  labs(title = 'len',
       y = NULL) +
  theme_bw() +
  facet_wrap(~dose, ncol = 1, strip.position = "right") +
  theme(
    plot.title = element_text(
      hjust = 0.5,  # 文本居中
      margin = margin(b = 5),  # 调整标题与绘图区域的间距
      size = rel(1)  # 匹配分面条的文字大小
    ),
    plot.title.position = "plot",  # 标题宽度适配绘图区域
    plot.title.box = element_rect(
      fill = "grey85",  # 分面条默认的浅灰色背景
      color = "black",  # 黑色边框
      size = 0.5  # 边框粗细和分面条保持一致
    )
  )

方法二：借助gtable实现完全匹配 #

如果需要完全继承主题中分面条的所有样式设置（比如后续修改主题时标题也同步变化），可以用gtable修改绘图结构：

library(tidyverse)
library(gtable)

# 先绘制不带标题的基础图
p <- ToothGrowth |>
  ggplot(aes(x = dose, y = len)) +
  geom_boxplot(aes(fill = supp)) +
  labs(y = NULL) +
  theme_bw() +
  facet_wrap(~dose, ncol = 1, strip.position = "right")

# 提取分面条的样式参数
strip_bg_style <- p$theme$strip.background
strip_text_style <- p$theme$strip.text

# 创建和分面条样式一致的标题元素
title_text <- textGrob(
  label = "len",
  gp = gpar(
    fontsize = strip_text_style$size,
    fontface = strip_text_style$face
  )
)
title_bg <- rectGrob(
  gp = gpar(
    fill = strip_bg_style$fill,
    col = strip_bg_style$color,
    lwd = strip_bg_style$size
  )
)
title_grob <- grobTree(title_bg, title_text)

# 修改绘图布局，添加标题
gt <- ggplotGrob(p)
# 在顶部新增一行放置标题
gt <- gtable_add_rows(gt, heights = unit(2, "lines"), pos = 0)
# 将标题元素添加到新行，横跨绘图区域
gt <- gtable_add_grob(gt, title_grob, t = 1, l = 1, r = ncol(gt)-1, name = "custom_title")

# 绘制最终图形
grid.draw(gt)

方法一操作简单，适合快速实现样式匹配；方法二更灵活，能和主题的分面条样式完全同步。

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