grid.arrangeを使用してプロットの変数リストを配置するにはどうすればよいですか？

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. 

grid.arrange()をgridExtraに使用してプロットを配置したいと考えています。

plistのプロット数が可変であれば、どうすればよいですか？ grid.arrange(plist[[1]],plist[[2]],plist[[3]],plist[[4]],plist[[5]])

が、私はより一般的な解決策が必要になります。

これは動作します。思考？

これについてどのように

Answer 1

：

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

Answer 2

あなたは限り、あなたはそれぞれの機能にgrobs =引数を使用してリストを指定してリストをgrid.arrange()とarrangeGrob()を使用することができます。例えば。完全を期すために

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

を（そしてこの古いとして、すでに質問has been revived, recentlyに答え）私はcowplotパッケージを使用してソリューションを追加したい：例では、あなたが与えた

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