ggplotで作成した複数のグラフを１つの画像にまとめて出力します。
色々と複数の図をまとめるパッケージがあるみたいですが、今回はgridExtraパッケージを使います。興味のある方は参考ページを見てください。
まず、各グラフを作成します。作成の仕方はRのデータ可視化パッケージggplotの基本を参考にして下さい。
#パッケージの読み込み
library(ggplot2)
library(gridExtra)
#各グラフの作成
df <- diamonds #データはdiamondsを使います。
p1 <-
ggplot(df,aes(x=carat,y=price))+
geom_point()
p2 <-
ggplot(df,aes(x=cut,y=price))+
geom_boxplot()
p3 <-
ggplot(df,aes(x=price))+
geom_histogram()
p4 <-
ggplot(df,aes(x=price, y = ..density..,fill=cut))+
geom_histogram(position = "fill",alpha=0.3,color="black")
次に、まとめるグラフのレイアウトを指定します。
grid.arrange()関数のlayout_matrix引数にマトリクス形式で指定します。
layout <- rbind(c(1,1,1),c(2,3,4))
上記のように指定すると、以下のような出力になります。
1,2,3,4がそれぞれp1,p2,p3,p4が占める領域を表しています。
>layout
[,1] [,2] [,3]
[1,] 1 1 1
[2,] 2 3 4
グラフを確認すると、
gridExtra::grid.arrange(p1,p2,p3,p4,layout_matrix=layout)
のように指定したレイアウト通りの図が出力されます。
ちなみに、png形式で出力するには、
png("multiplot.png", height=450, width=800, res=72)
gridExtra::grid.arrange(p1,p2,p3,p4,layout_matrix=layout)
dev.off()
とします。
参考サイト
ggplot2 ライブラリで作った複数のグラフを1枚にまとめるには、gridExtra ライブラリが使える
ggplot2で複数のプロットをまとめて表示する方法あれこれ