好吧，这不是关于使用哪个函数的问题。要使用patchwork获得类似facet_grid的外观，需要您编写一个自定义函数，在将ggplot对象传递给wrap_plots之前对其进行操作。为此，我首先添加了一个包含补丁中数字位置的列。然后，使用自定义函数，您可以删除轴，并根据位置添加条带：
注意事项：虽然我喜欢这样的patchwork练习，但恕我直言，更简单的方法是从你的函数或包含数据和图的列表中返回数据，然后使用rbind/bind_rows + facet_grid，就像评论中已经建议的那样。

library(tidyverse)
library(patchwork)
get_plot <- function(a, b) {
  list(ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
    geom_point())
}
x <- expand_grid(
  dist_fun = c("rnorm", "rexp"),
  assumption = c("linear", "square")
) %>%
  mutate(plot = get_plot(dist_fun, assumption))
x |>
  mutate(pos = row_number()) |>
  pmap(
    \(...) {
      args <- list(...)
      col <- 1 + (args$pos + 1) %% 2
      row <- 1 + (args$pos - 1) %/% 2
      remove_x <- if (row == 1) {
        theme(
          axis.text.x = element_blank(),
          axis.ticks.x = element_blank(),
          axis.ticks.length.x = unit(0, "pt")
        )
      }
      remove_y <- if (col == 2) {
        theme(
          axis.text.y = element_blank(),
          axis.ticks.y = element_blank(),
          axis.ticks.length.y = unit(0, "pt")
        )
      }
      facet_y <- if (row == 1) {
        # Wrap in quotes to get e.g.
        # "linear" ~ . instead of linear ~ .
        paste0("\"", args$assumption, "\"")
      } else {
        "."
      }
      facet_x <- if (col == 2) {
        paste0("\"", args$dist_fun, "\"")
      } else {
        "."
      }
      layer_facet <- facet_grid(reformulate(facet_y, facet_x))
      args$plot +
        remove_x +
        remove_y +
        layer_facet
    }
  ) |>
  wrap_plots(ncol = 2) &
  theme(
    axis.title = element_blank()
  )

字符串
x1c 0d1x的数据

正如其他人所说，最简单的方法是使用x对象，去掉数据，在基本的图结构中添加面。例如，下面的函数：

facetize <- function(x) {
  base_plot <- x$plot[[1]]
  x_nm <- names(x)
  base_plot$data <- x %>%
    mutate(plot_data = map(plot, `[[`, 'data')) %>%
    select(-plot) %>%
    unnest(plot_data)
  base_plot + 
    facet_grid(rows = vars(!!str2lang(x_nm[1])), 
               cols = vars(!!str2lang(x_nm[2])),
               scales = 'free')
}

字符串
允许：

facetize(x)

型

的数据