pdf("graphics/rplot-wine-scatter.pdf")
load("wine.Rdata")
iType <- as.integer(wine$Type)
colours <- unlist(lapply(iType, function(x){palette()[x+1]}))
plot(wine$Phenols, wine$Flavanoids, col=colours, pch=iType)
dev.off()