вызова grid.arrange в списке ggplots

Question

Этот вопрос связан с этим один здесь:

Related post

Мой нынешний вопрос: В моем коде я создать список ggplots в списке по телефону lapply , В первую очередь я использую 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

Это не обязательно, чтобы обернуть список в c(), как do.call(grid.arrange, year.plots) и do.call(grid.arrange, c(year.plots)) работу.

Однако, если вы хотите, чтобы включить дополнительные аргументы, вам нужно будет обернуть их вместе со списком в c() части, как это:

do.call(grid.arrange, c(year.plots, ncol=2)) 

Answer 2

Хорошо я глупо, я нашел ошибку в своем коде через 40 минут.

do.call(grid.arrange, c(year.plots,plist,nrow=3)) 

Answer 3

С gridExtra V> = 2.0.0, теперь вы можете сделать,

grid.arrange(grobs = year.plots)