powered by
cities
cities$have <- factor((cities$REGION=="ON")|(cities$REGION=="WEST")) plot(POP1996~POP1992, data=cities, col=as.integer(cities$have))
Run the code above in your browser using DataLab