library(ggplot2)p1 <- qplot(x=wt,y=mpg,geom="point",main="Scatterplot of wt vs.
mpg", data=mtcars)p2 <- qplot(x=wt,y=disp,geom="point",main="Scatterplot of wt vs
disp", data=mtcars)p3 <- qplot(wt,data=mtcars)lay_out(list(p1,1:2,1:4), list(p2,3:4,1:2), list(p3,3:4,3:4))