mydata <- data.frame(x=1:5, y=rnorm(5), ## ask Vitalie g=letters[rep(1:2, c(2,3))]) plot(mydata) plot(mydata, pch=16, cex=2, col='blue') require(lattice) splom(mydata) ## scatterplot matrix splom(mydata, data=mydata, pch=16, cex=2, col='blue') ## scatterplot matrix xyplot(y ~ x + g, data=mydata, pch=16, cex=2, col='blue') xyplot(y ~ x + g, outer=TRUE, data=mydata, pch=16, cex=2, col='blue') xyplot(y ~ x | g, outer=TRUE, data=mydata, pch=16, cex=2, col='blue') ## C-c C-n