r - 如何用gg list和patchwork简化代码

Question

p是一个包含 15 个 ggplot 元素的列表，是否有更好的代码来获得如下结果。

library(patchwork)

p[[1]] + p[[2]] + p[[3]] + p[[4]] + p[[5]] +
  p[[6]] + p[[7]] + p[[8]] + p[[9]] + p[[10]] +
  p[[11]] + p[[12]] + p[[13]] + p[[14]] + p[[15]] +
  plot_layout(ncol = 5)

---

第一步累积效果很好

 p %>% accumulate (`+`)

但是布局代码会出现错误...二进制运算符的非数字参数

 p %>% accumulate (`+`)  + 
  plot_layout(ncol = 5)

Answer 1

使用 purrr::accumulate 和+作为函数