能否将已有的ggplot对象用于facet_grid？若不能，如何实现类facet_grid的网格布局？

首先得明确一点：ggplot2的facet_grid没法直接用来排列你已经生成好的独立ggplot对象。因为facet_grid的核心逻辑是基于单一数据源，通过分组规则自动拆分数据生成子图，并且所有子图共享坐标轴、主题等元素；而你这里的exdata$plots里的每个图都是完全独立的ggplot对象，它们可能有自己的坐标轴范围、主题设置，facet_grid没有办法直接把这些现成的图“嵌入”到它的分面体系里。

不过要实现你想要的——按cut横向排列、dummy纵向排列的网格布局，有两个非常好用的工具包可以搞定：patchwork（推荐，语法和ggplot2高度兼容）和gridExtra。下面分别介绍具体操作：

方法一：用patchwork包（推荐） #

patchwork是专门用来拼接ggplot对象的工具，语法简洁直观，能轻松实现复杂的布局。

步骤1：安装并加载包 #

install.packages("patchwork")
library(patchwork)
library(dplyr)
library(tidyr) # 用于数据格式转换

步骤2：按需求排列绘图对象 #

方式1：自动化拼接（推荐，适合批量处理）

先把数据框按dummy和cut排序，确保每个图的位置对应正确，然后用wrap_plots指定行列数：

# 先排序，保证dummy从上到下是1-3，cut从左到右是Fair到Ideal
exdata_sorted <- exdata %>% arrange(dummy, cut)

# 用wrap_plots排列：ncol=5（对应5个cut水平），nrow=3（对应3个dummy水平）
wrap_plots(exdata_sorted$plots, ncol = 5, nrow = 3)

方式2：手动按行拼接（更灵活，适合自定义行/列的组合）

如果你想对每一行的布局做调整，可以先把同一dummy的图拼成一行，再把行纵向拼接：

# 按dummy分组，每组内的图按cut顺序拼成一行
plot_rows <- exdata %>%
  arrange(cut) %>%
  group_by(dummy) %>%
  summarise(row_plot = reduce(plots, `+`)) %>% # 每组内的图横向拼接
  pull(row_plot)

# 把所有行纵向拼接（用/符号）
reduce(plot_rows, `/`)

补充：添加类似facet的标签 #

如果想要像facet_grid那样显示行/列的标题（比如每个列对应cut，每个行对应dummy），可以先给每个图添加标题，再统一调整主题：

# 给每个图添加cut作为主标题，dummy作为副标题
exdata_labeled <- exdata %>%
  mutate(plots = map2(plots, cut, ~ .x + ggtitle(.y) + theme(plot.title = element_text(hjust = 0.5, size = 12)))) %>%
  mutate(plots = map2(plots, dummy, ~ .x + labs(subtitle = paste("dummy =", .y)) + theme(plot.subtitle = element_text(hjust = 0.5, size = 10))))

# 再用wrap_plots排列
wrap_plots(exdata_labeled %>% arrange(dummy, cut) %>% pull(plots), ncol = 5, nrow = 3)

方法二：用gridExtra包 #

gridExtra是另一个常用的拼接绘图对象的工具，适合习惯grid系统的用户：

步骤1：安装并加载包 #

install.packages("gridExtra")
library(gridExtra)

步骤2：排列绘图对象 #

# 排序后提取绘图列表
plots_list <- exdata %>% arrange(dummy, cut) %>% pull(plots)

# 用grid.arrange指定行列数
grid.arrange(grobs = plots_list, ncol = 5, nrow = 3)

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