if( require(maptools) ) {
data('state.vbm',package='TeachingDemos')
plot(state.vbm)
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])
}
Run the code above in your browser using DataLab