data(flea.beetles)
## Not run: pairs(flea.beetles[,-1],
# lower.panel = function(x, y){ points(x, y,
# pch = unclass(flea.beetles[,1]),
# col = unclass(flea.beetles[,1]))},
# main = "Pairwise scatter plots for Lubischew's Flea Beetle data")
# ## End(Not run)
Run the code above in your browser using DataLab