Como faço para organizar uma lista variável de gráficos usando grid.arrange?

library(ggplot2)
df <- data.frame(x=1:10, y=rnorm(10))
p1 <- ggplot(df, aes(x,y)) + geom_point()
plist <- list(p1,p1,p1,p1,p1)
# In my real example,a plot function will fit a ggplot to a list of datasets 
#and return a list of ggplots like the example above.

Eu gostaria de organizar as parcelas usando grid.arrange()em gridExtra.

Como eu faria isso se o número de parcelas plistfosse variável?

Isso funciona: grid.arrange(plist[[1]],plist[[2]],plist[[3]],plist[[4]],plist[[5]])

mas preciso de uma solução mais geral. pensamentos?

Que tal agora:

library(gridExtra)
n <- length(plist)
nCol <- floor(sqrt(n))
do.call("grid.arrange", c(plist, ncol=nCol))

Você pode usar grid.arrange()e arrangeGrob()com listas, desde que especifique a lista usando o grobs =argumento em cada função. Por exemplo, no exemplo que você deu:

library(ggplot2)
library(gridExtra)
df <- data.frame(x=1:10, y=rnorm(10))
p1 <- ggplot(df, aes(x,y)) + geom_point()
plist <- list(p1,p1,p1,p1,p1)

grid.arrange(grobs = plist, ncol = 2) ## display plot
ggsave(file = OutFileName, arrangeGrob(grobs = plist, ncol = 2))  ## save plot

Para ser mais completo (e como esta velha questão já respondida foi reavivada, recentemente ), gostaria de adicionar uma solução usando o cowplotpacote:

cowplot::plot_grid(plotlist = plist, ncol = 2)

Eu sei que a questão afirma especificamente usando o pacote gridExtra , mas a wrap_plotsfunção do pacote patchwork é uma ótima maneira de lidar com listas de comprimento variável:

library(ggplot2)
# devtools::install_github("thomasp85/patchwork")
library(patchwork)

df <- data.frame(x=1:10, y=rnorm(10))
p1 <- ggplot(df, aes(x,y)) + geom_point()
plist <- list(p1,p1,p1,p1,p1)

wrap_plots(plist)

Uma coisa útil sobre isso é que você não precisa especificar quantas colunas são necessárias e terá como objetivo manter o número de colunas e linhas iguais. Por exemplo:

plist <- list(p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1)
wrap_plots(plist) # produces a 4 col x 4 row plot

Descubra mais sobre o pacote patchwork aqui

Para ajustar todos os gráficos em uma página, você pode calcular o número de colunas e linhas como este:

x = length(plots)

cols = round(sqrt(x),0)
rows = ceiling(x/cols)

Como a maioria das funções de plotagem múltiplas tem ncol e nrow como argumentos, você pode simplesmente colocá-los lá. Eu gosto do ggarrange do ggpubr.

ggarrange(plotlist = plots, ncol=cols, nrow = rows)

Isso favorece mais linhas do que colunas, portanto, inverta se quiser o oposto. Ou seja, para 6 plotagens, obterá 3 linhas e 2 colunas e não o contrário.