x <- 1:5 y <- 1:5 g <- factor(1:5) types <- c("barchart", "bwplot", "densityplot", "dotplot", "histogram", "qqmath", "stripplot", "qq", "xyplot", "levelplot", "contourplot", "cloud", "wireframe", "splom", "parallel") angle <- seq(0, 2*pi, length=21)[-21] xx <- cos(angle) yy <- sin(angle) gg <- factor(rep(1:2, each=10)) aaa <- seq(0, pi, length=10) xxx <- rep(aaa, 10) yyy <- rep(aaa, each=10) zzz <- sin(xxx) + sin(yyy) doplot <- function(name, ...) { do.call(name, list(..., scales=list(draw=FALSE), xlab=NULL, ylab=NULL, strip=function(which.panel, ...) { grid.rect(gp=gpar(fill="grey90")); grid.text(name) })) } plot <- vector("list", 15) plot[[1]] <- doplot("barchart", y ~ g | 1) plot[[2]] <- doplot("bwplot", yy ~ gg | 1, par.settings=list(box.umbrella=list(lwd=0.5))) plot[[3]] <- doplot("densityplot", ~ yy | 1) plot[[4]] <- doplot("dotplot", y ~ g | 1) plot[[5]] <- doplot("histogram", ~ yy | 1) plot[[6]] <- doplot("qqmath", ~ yy | 1) plot[[7]] <- doplot("stripplot", yy ~ gg | 1) plot[[8]] <- doplot("qq", gg ~ yy | 1) plot[[9]] <- doplot("xyplot", xx ~ yy | 1) plot[[10]] <- doplot("levelplot", zzz ~ xxx + yyy | 1, colorkey=FALSE) plot[[11]] <- doplot("contourplot", zzz ~ xxx + yyy | 1, labels=FALSE, cuts=8) plot[[12]] <- doplot("cloud", zzz ~ xxx + yyy | 1, zlab=NULL, zoom=0.9, par.settings=list(box.3d=list(lwd=0.01))) plot[[13]] <- doplot("wireframe", zzz ~ xxx + yyy | 1, zlab=NULL, zoom=0.9, drape=TRUE, par.settings=list(box.3d=list(lwd=0.01)), colorkey=FALSE) plot[[14]] <- doplot("splom", ~ data.frame(x=xx[1:10], y=yy[1:10]) | 1, pscales=0) plot[[15]] <- doplot("parallel", ~ data.frame(x=xx[1:10], y=yy[1:10]) | 1) grid.newpage() pushViewport(viewport(layout=grid.layout(4, 4))) for (i in 1:15) { pushViewport(viewport(layout.pos.col=((i - 1) %% 4) + 1, layout.pos.row=((i - 1) %/% 4) + 1)) print(plot[[i]], newpage=FALSE, panel.width=list(1.025, "inches"), panel.height=list(1.025, "inches")) popViewport() } popViewport()