library(grid)
grid.arrange(rectGrob(), rectGrob())
library(ggplot2)
pl <- lapply(1:11, function(.x) qplot(1:10,rnorm(10), main=paste("plot",.x)))
ml <- marrangeGrob(pl, nrow=2, ncol=2)
## interactive use; open new devices
ml
## non-interactive use, multipage pdf
ggsave("multipage.pdf", ml)
Run the code above in your browser using DataCamp Workspace