Wie ordne ich eine variable Liste von Plots mit grid.arrange an?

Question

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. 

Ich möchte die Plots mit grid.arrange() in gridExtra arrangieren.

Wie würde ich das tun, wenn die Anzahl der Plots in plist variabel ist?

Dies funktioniert: grid.arrange(plist[[1]],plist[[2]],plist[[3]],plist[[4]],plist[[5]])

aber ich brauche eine allgemeinere Lösung. Gedanken?

Answer 1

Wie wäre es damit:

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

Answer 2

Sie grid.arrange() und arrangeGrob() mit Listen verwenden können, solange Sie die Liste mit der grobs = Argument in jeder Funktion angeben. Z.B. im Beispiel geben Sie:

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 

Answer 3

Aus Gründen der Vollständigkeit (und wie diese alten, bereits beantworteten Frage has been revived, recently) Ich möchte eine Lösung mit dem cowplot Paket hinzuzufügen:

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