data(wines)
## Not run: pairs(wines[,-1],
# lower.panel = function(x, y){ points(x, y,
# pch = unclass(wines[,1]),
# col = as.numeric(wines[,1]))},
# main = "Pairwise scatter plots for Marais wine data")
# ## rather congested scatter plots!## End(Not run)
Run the code above in your browser using DataLab