如何结合purrr与cowplot绘制图形网格？

嗨，刚好我之前也遇到过类似的需求，不用纠结蛮力方法的局限性，用do.call()或者purrr的invoke()就能轻松搞定元素数量不确定的情况！下面给你一步步演示：

1. 先模拟你的场景（生成带ggplot列表列的数据框） #

首先我们用tidyverse和cowplot构造一个示例数据，还原你用purrr创建列表列的场景：

library(tidyverse)
library(cowplot)

# 按气缸数分组，生成每个组的散点图并存在列表列中
plot_df <- mtcars %>%
  group_by(cyl) %>%
  nest() %>%
  mutate(plots = map(data, ~ggplot(.x, aes(x = mpg, y = disp)) + geom_point() + ggtitle(paste("Cylinders:", unique(.x$cyl))))) %>%
  select(-data)

2. 核心：动态合并所有图形 #

这里的关键是利用do.call()函数，它可以把列表中的每个元素作为单独的参数传递给plot_grid()，不管你的列表列里有多少个图形，都能自动识别：

# 合并所有图形成一个大图
combined_plot <- do.call(plot_grid, plot_df$plots)

# 查看合并后的图形
print(combined_plot)

如果你更习惯用purrr的语法，也可以用purrr::invoke()，效果是一样的：

# purrr风格的写法
combined_plot <- invoke(plot_grid, plot_df$plots)

3. 自定义布局（可选） #

要是你想调整列数、添加标签等额外参数，直接把这些参数放进一个列表里，和图形列表合并后传给do.call()就行：

# 设置2列布局，并给每个图形添加字母标签
combined_plot <- do.call(plot_grid, c(plot_df$plots, list(ncol = 2, labels = LETTERS[1:length(plot_df$plots)])))

print(combined_plot)

这个方法的优势在于完全不需要预先知道列表列里有多少个图形，不管是3个还是10个，都能自动完成合并，完美替代蛮力方法~

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