The gridExtra package has concise syntax for this
library(gridExtra) plot1 <- plot(eff, grid=FALSE) plot2 <- plot(eff2, grid=FALSE) grid.arrange(plot1, plot2, ncol=2)