library(maptools)
data('state.vbm',package='TeachingDemos')
plot(state.vbm,axes=FALSE)
tmp <- state.x77[,'HS Grad']
tmp2 <- cut(tmp, seq(min(tmp),max(tmp), length.out=11),
include.lowest=TRUE)
plot(state.vbm,col=cm.colors(10)[tmp2],axes=FALSE)
Run the code above in your browser using DataLab