r - R: レイアウトを png として保存

Question

4 つのグラフ (タイプ: ggplot2) があり、それらを png として保存しようとしています。ただし、以下のコードを実行すると、ch4 のみが保存されます。

png(filename = fname, width = 900, height = 600, units = 'px')
layout(matrix(c(1,2,3,4), 2, 2, byrow = TRUE))
ch1
ch2
ch3
ch4
dev.off()

私が間違っていることを知っていただければ幸いです。

Answer 1

grid.arrangeの代わりに使用layout:

library(ggplot2)
library(gridExtra)
ch1 <- qplot(1,2)
ch2 <- qplot(1,2)
ch3 <- qplot(1,2)
ch4 <- qplot(1,2)

png(filename = "fname.png", width = 900, height = 600, units = 'px')
grid.arrange(ch1,ch2,ch3,ch4, ncol = 2)
dev.off()

layout関数をベースベースプロットに使用できます。ファイル拡張子は内部で指定する必要があることに注意してください""。

png(filename = "fname.png", width = 900, height = 600, units = 'px')
layout(matrix(c(1,2,3,4), 2, 2, byrow = TRUE))
plot(1,2)
plot(1,2)
plot(1,2)
plot(1,2)
dev.off()

Answer 2

ggplot2 グラフはgrid.arrange()、gridExtraパッケージから使用して単一のページにレイアウトできます。

df <- data.frame(x=1:3, y=c(1, 4, 9))
p <- ggplot(df, aes(x, y))
p1 <- p + geom_point(colour="red")
p2 <- p + geom_point(colour="blue")
p3 <- p + geom_point(colour="green")
p4 <- p + geom_point(colour="purple")

library(gridExtra)
png(filename="test.png", width=600, height=600)
grid.arrange(p1, p2, p3, p4)
dev.off()