如何用patchwork创建类似facet_grid的带分面条带的绘图网格？

你提到用ggcoxfunctional这类返回独立ggplot对象的函数做网格搜索，需要排成类似facet_grid的布局但各图轴范围独立，现在用wrap_plots排列后缺少分面条带，下面两种方法可以把标题替换为类分面的条带样式：

方法1：用ggtext自定义标题为分面条带样式 #

通过ggtext包给标题添加背景色，模拟分面条带的视觉效果，同时保留每个图的独立轴范围，代码简单易维护。

代码示例： #

library(tidyverse)
library(patchwork)
library(ggtext)

# 替换为你的ggcoxfunctional调用逻辑即可
get_plot = function(a, b) {
  strip_text = paste0(a, " | ", b)
  ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
    geom_point() +
    # 用ggtext设置带背景的类分面标题
    ggtitle(strip_text) +
    theme(
      plot.title = element_markdown(
        hjust = 0.5,
        padding = margin(5, 5, 5, 5),
        background = "#e0e0e0",
        color = "black",
        size = 10
      ),
      # 让条带紧贴绘图区，去掉默认标题外边距
      plot.title.position = "plot"
    )
}

# 生成网格场景与对应绘图
x = expand_grid(
  dist_fun = c("rnorm", "rexp"),
  assumption = c("linear", "square")
) %>%
  rowwise() %>%
  mutate(plot = list(get_plot(dist_fun, assumption)))

# 排列绘图
wrap_plots(x$plot, ncol = 2)

方法2：用patchwork+gtable添加全局分面条带 #

如果需要完全模拟facet_grid的行/列分组标签布局（标签统一放在侧边/顶部），可以用gtable手动给排列后的图添加全局条带。

代码示例： #

library(tidyverse)
library(patchwork)
library(gtable)
library(grid)

# 替换为你的ggcoxfunctional调用逻辑即可
get_plot = function() {
  ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
    geom_point()
}

# 生成网格场景与绘图
x = expand_grid(
  dist_fun = c("rnorm", "rexp"),
  assumption = c("linear", "square")
) %>%
  mutate(plot = list(get_plot()))

# 先排列绘图，预留条带位置
p = wrap_plots(x$plot, ncol = 2)

# 提取绘图的gtable对象进行修改
gt = ggplotGrob(p)

# 添加列分组条带（对应assumption字段）
col_strips = lapply(unique(x$assumption), function(label) {
  textGrob(label, gp = gpar(fontsize = 10, fontface = "bold"))
})
gt = gtable_add_rows(gt, unit(1, "line"), 0)
gt = gtable_add_grob(gt, col_strips, t = 1, l = c(4, 8), r = c(4, 8))

# 添加行分组条带（对应dist_fun字段）
row_strips = lapply(unique(x$dist_fun), function(label) {
  textGrob(label, rot = 90, gp = gpar(fontsize = 10, fontface = "bold"))
})
gt = gtable_add_cols(gt, unit(1, "line"), 0)
gt = gtable_add_grob(gt, row_strips, t = c(4, 8), l = 1, r = 1)

# 绘制最终布局
grid.draw(gt)

注意事项 #

• 方法1适合每个子图需要独立条带的场景，视觉效果和分面高度一致。
• 方法2适合需要全局行/列分组标签的场景，完全复刻facet_grid的条带布局。
• 把示例中的ggplot(iris, ...)替换为你的ggcoxfunctional调用代码即可直接复用。

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