如何通过编程从不确定数量的ggplot对象列表构建patchwork拼图？

方法一：使用patchwork内置的wrap_plots()函数 #

这是最简便的方案，wrap_plots()专门支持传入ggplot对象列表，自动完成拼接，还能通过参数控制布局：

library(patchwork)
# 假设p_list是你的ggplot对象列表
final.plot <- wrap_plots(p_list)
# 可选：指定行列数，比如设置3列布局
final.plot <- wrap_plots(p_list, ncol = 3)

方法二：用purrr::reduce()实现动态运算符拼接 #

如果想沿用|或+的拼接逻辑，可以用reduce函数逐个合并列表中的元素：

library(patchwork)
library(purrr)
# 用|实现横向拼接
final.plot <- reduce(p_list, `|`)
# 或者用+实现纵向拼接
final.plot <- reduce(p_list, `+`)

原循环代码的问题 #

你之前的循环出错是因为初始值设为NULL，而patchwork的|运算符要求两边都是ggplot对象或patchwork拼接对象，NULL无法参与该运算，导致逻辑错误。

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