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.

私が使用してプロット手配したいと思いgrid.arrange()でをgridExtra。

のプロット数plistが可変の場合、どうすればよいですか？

これは機能します： grid.arrange(plist[[1]],plist[[2]],plist[[3]],plist[[4]],plist[[5]])

しかし、もっと一般的な解決策が必要です。考え？

これはどう：

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

あなたは使用することができますgrid.arrange()し、arrangeGrob()あなたが使用してリストを指定限り、リストをgrobs =各関数で引数を。たとえば、あなたが与えた例では：

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

完全を期すために（そして、この古い、すでに回答された質問が復活しました、最近）cowplotパッケージを使用してソリューションを追加したいと思います：

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

私は質問がgridExtra パッケージの使用を具体的に述べていることを知っていwrap_plotsますが、パッチワークパッケージの関数は可変長リストを処理するための優れた方法です。

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)

これについての便利な点は、必要な列の数を指定する必要がなく、列と行の数を同じに保つことを目的とすることです。例えば：

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

パッチワークパッケージの詳細については、こちらをご覧ください

すべてのプロットを1ページに収めるために、次のように列と行の数を計算できます。

x = length(plots)

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

ほとんどの複数のプロット関数は引数としてncolとnrowを持っているので、これらをそこに置くことができます。私はggpubrのggarrangeが好きです。

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

これは列よりも多くの行を優先するので、反対にする場合は逆にします。つまり、6つのプロットの場合、3行と2列の逆ではありません。