r - 在 ggplots 列表上调用 grid.arrange

Question

这个问题在这里链接到这个问题:

Related post

我现在的问题是:在我的代码中，我通过调用 lapply 在列表中生成了一个 ggplots 列表。我首先使用 lapply 是因为我执行了大量类似的 ggplots，手动生成每个 ggplots 太麻烦了。我如何概括我的代码？

p <- qplot(rnorm(30))

plist <- lapply(c(1:10),FUN=function(x){

  qplot(rnorm(30))

})

#works
year.plots <- list(p,p)
do.call(grid.arrange, c(year.plots))

#works
plist[[1]]

#works
grid.arrange(p,plist[[1]])

#does not work
year.plots <- list(p,plist[[1]])
do.call(grid.arrange, c(year.plots))

#How to generalize with the following idea?
year.plots <- list(p,plist[[1]],plist[[2]],...)
do.call(grid.arrange, c(year.plots))

Answer 1

有了 gridExtra v>=2.0.0，你现在可以做，

grid.arrange(grobs = year.plots)