-8

次のコードに頭を悩ませています。

私はこの例に従っています：

grid.arrangeを使用して任意の数のggplotを配置するにはどうすればよいですか?

プロットを収集し、それらを 3x9 グリッドに配置し、各グリッドに適切なラベルを付けたいと思いました...

しかし、うまくいきません。生成された pdf はまだ 1 ページあたり 1 プロットであるため、27 ページが生成されます。

「grid.arrange」を使用しようとしていますが、関数「plotFunctionWrittenByOtherPeople」は他の人によって書かれており、プロットへのハンドルが返されません...そしてかなり複雑です。

プロットをうまく配置するには？

誰かこれに光を当ててください。

どうもありがとう！

pdf("mytry1.pdf", width = 11, height = 8.5)
par(mfrow=c(3, 9))
for (a in seq(100, 900, by=100))
    for (b in c(1, 3, 6))
    {
         plotFunctionWrittenByOtherPeople(a, b)     
    }
dev.off()
4

1 に答える 1

13

ggplot2 で作成した一連のプロットのグリッド レイアウトを作成したいと考えています。残念ながら、par(mfrow=)ggplot2 では動作しない基本的なグラフィック関数です。grid.arrangegridExtra パッケージで使用します。

library(ggplot2)
library(gridExtra)

# Completely fake plotting function.
makePlot = function(a, b) {
    dat = data.frame(x=rnorm(a), y=rnorm(a))
    p = ggplot(dat, aes(x=x, y=y)) + 
        geom_point(size=b, alpha=1/b) +
        opts(title=paste("a = ", a, ", b = ", b, sep="")) +
        opts(plot.title=theme_text(size=12))
    return(p)
}

plot_list = list() # Create an empty list to hold plots.

for (b in c(1, 3, 6)) {                   # I switched a and b loops
    for (a in seq(100, 900, by=100)) {    # to make the final layout neater.
        p = makePlot(a, b)
        plot_list = c(plot_list, list(p)) # Add new plot to list.
    }
}

pdf("mytry1.pdf", width = 14, height = 6)
do.call(grid.arrange, c(plot_list, list(nrow=3, ncol=9, main="Grid of Plots")))
dev.off()

ここに画像の説明を入力

編集：これをもっと簡潔にすることはできますか？

plot_listをよりコンパクトに作成して pdf に出力できます。mlply、ggsaveおよびを提案してくれた@baptisteに感謝しarrangeGrobます。

library(plyr)
plot_list = mlply(expand.grid(a=seq(100, 900, by=100), b=c(1, 3, 6)), makePlot)

ggsave(filename="grid_1.pdf", height=6, width=14, 
       plot=do.call(arrangeGrob, c(plot_list, nrow=3, main="Grid of Plots")))
于 2012-07-20T02:14:04.793 に答える