参考サイト
http://d.hatena.ne.jp/dichika/20110116/1295183973
##グラフを書く
library(ggplot2)
g1 <- ggplot(mtcars, aes(x = mpg, y = wt))+geom_point()
g2 <- ggplot(mtcars, aes(x = mpg, y = wt))+geom_line()
library(grid) #図を区切るために必要なライブラリ
grid.newpage() #空白の図を作る
pushViewport(viewport(layout=grid.layout(2, 3))) #図を区切る※(行,列)の順番で2行3列
print(g1 , vp=viewport(layout.pos.row=1, layout.pos.col=1:2)) #1行目の1~2列目にグラフを配置
print(g2 , vp=viewport(layout.pos.row=1, layout.pos.col=3)) #1行目の3列目にグラフを配置
この記事へのコメント