合体ggplot

gtableパッケージのcbindとrbindを使うとパネルのサイズが揃います。

library(ggplot2)
p1 <- ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point()
p2 <- ggplot(iris, aes(Sepal.Length*1000, Sepal.Width*1000)) + geom_point() +
  theme(axis.text.x = element_text(angle=90))

library(gtable)
## Loading required package: grid
grid.draw(cbind(ggplotGrob(p1), ggplotGrob(p2), size="last"))

plot of chunk unnamed-chunk-1