如何从嵌套列表提取多个ggplot并绘制类似facet_grid的多面板图？

步骤1：提取所有ggplot对象 #

从try嵌套列表中，提取每个子列表里的Plot元素，得到仅包含ggplot对象的列表：

# 基础R实现
plots_list <- lapply(try, function(sub_list) sub_list$Plot)

# 或用purrr包简化（需先加载purrr）
library(purrr)
plots_list <- map(try, "Plot")

步骤2：给图表添加对应列标题（可选） #

为了区分每个图表对应的iris特征列，给每个ggplot对象添加列名作为标题：

plots_list <- Map(function(plot, col_title) {
  plot + 
    ggtitle(col_title) + 
    theme(plot.title = element_text(hjust = 0.5, size = 10))
}, plots_list, names(try))

步骤3：生成多面板布局 #

推荐两种常用实现方式：

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

patchwork是专为ggplot2设计的拼接工具，语法灵活直观：

library(patchwork)

# 拼接为2行2列的布局
combined_plot <- wrap_plots(plots_list, ncol = 2, nrow = 2)

# 显示组合图表
print(combined_plot)

也可手动指定布局逻辑：

combined_plot <- plots_list[[1]] + plots_list[[2]] + 
                 plots_list[[3]] + plots_list[[4]] +
                 plot_layout(ncol = 2)

方法二：使用gridExtra包 #

若习惯用传统grid工具，可采用本方法：

library(gridExtra)

# 2行2列布局拼接
grid.arrange(grobs = plots_list, ncol = 2, nrow = 2)

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