如何在已使用分面的ggplot绘图中为标题添加带黑框的白框？

针对你已经使用分面、无法依赖分面生成标题框的场景，有两种可靠的实现方式：

方法一：直接通过主题设置标题样式（推荐） #

利用ggplot2的主题系统，直接为plot.title配置带边框的背景，无需额外修改绘图结构：

library(ggplot2)
library(gridExtra)
library(purrr)

mtcars %>% 
  split(.$am) %>% 
  map(~ggplot(., aes(x = mpg, y = cyl)) +
        geom_point() +
        facet_grid(rows = vars(vs), cols = vars(carb)) +
        ggtitle(as.character(.$am)) +
        theme(
          plot.title = element_text(
            box.fill = "white",    # 标题背景色
            box.color = "black",   # 边框颜色
            box.linewidth = 1,     # 边框粗细
            padding = unit(c(5, 10, 5, 10), "pt"), # 文字与边框的内边距
            margin = margin(b = 10, unit = "pt"),   # 标题与下方绘图区的间距
            hjust = 0.5,           # 标题居中
            size = 12
          )
        )) %>% 
  grid.arrange(grobs = ., ncol = 2)

关键说明 #

• 此方法直接复用ggplot原生标题系统，无需额外调整布局，适配所有已使用分面的场景。
• padding参数避免文字紧贴边框，margin参数防止标题与分面标题重叠。
• 将.$am转为字符型，避免因子类型的am导致标题显示异常。

方法二：自定义图形对象添加背景（灵活度更高） #

如果需要更精细的控制（比如边框圆角、自定义位置），可以手动添加矩形背景和标题：

library(ggplot2)
library(gridExtra)
library(grid)

mtcars %>% 
  split(.$am) %>% 
  map(~{
    title_text <- as.character(.$am)
    ggplot(., aes(x = mpg, y = cyl)) +
      geom_point() +
      facet_grid(rows = vars(vs), cols = vars(carb)) +
      # 添加带黑边框的白色矩形背景
      annotation_custom(
        grob = rectGrob(gp = gpar(fill = "white", col = "black", lwd = 1)),
        xmin = -Inf, xmax = Inf,
        ymin = Inf, ymax = Inf + unit(25, "pt")
      ) +
      # 添加标题文字
      annotate("text", x = mean(range(.$mpg)), y = Inf + unit(12, "pt"), 
               label = title_text, size = 4, hjust = 0.5) +
      # 允许显示绘图区外元素，避免标题被裁剪
      coord_cartesian(clip = "off") +
      # 调整顶部边距，留出标题空间
      theme(plot.margin = margin(t = 30, r = 10, b = 10, l = 10, unit = "pt"))
  }) %>% 
  grid.arrange(grobs = ., ncol = 2)

关键说明 #

• 通过rectGrob生成自定义矩形，annotate添加标题文字，完全自主控制元素位置和样式。
• coord_cartesian(clip = "off")是必须的，否则顶部的矩形和标题会被绘图区裁剪。

内容的提问来源于stack exchange，提问作者J. Doe