Comment organiser une liste variable de tracés à l'aide de 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.

Je voudrais organiser les parcelles en utilisant grid.arrange()in gridExtra.

Comment procéder si le nombre de parcelles plistest variable?

Cela marche: grid.arrange(plist[[1]],plist[[2]],plist[[3]],plist[[4]],plist[[5]])

mais j'ai besoin d'une solution plus générale. pensées?

Que dis-tu de ça:

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

Vous pouvez utiliser grid.arrange()et arrangeGrob()avec des listes aussi longtemps que vous spécifiez la liste en utilisant l' grobs =argument de chaque fonction. Par exemple, dans l'exemple que vous avez donné:

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

Par souci d'exhaustivité (et comme cette ancienne question déjà répondue a été relancée, récemment ), je voudrais ajouter une solution en utilisant le cowplotpackage:

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

Je sais que la question indique spécifiquement l'utilisation du package gridExtra , mais la wrap_plotsfonction du package patchwork est un excellent moyen de gérer la liste de longueur variable:

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)

Une chose utile à ce sujet est que vous n'avez pas besoin de spécifier le nombre de colonnes requises et que vous viserez à maintenir les nombres de colonnes et de lignes égaux. Par exemple:

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

En savoir plus sur le package patchwork ici

Pour adapter tous les tracés sur une seule page, vous pouvez calculer le nombre de colonnes et de lignes comme ceci:

x = length(plots)

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

Comme la plupart des fonctions de traçage multiples ont ncol et nrow comme arguments, vous pouvez simplement les insérer ici. J'aime ggarrange de ggpubr.

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

Cela favorise plus de lignes que de colonnes, donc inversez si vous voulez le contraire. C'est-à-dire que pour 6 parcelles, cela donnera 3 lignes et 2 colonnes et non l'inverse.