if (FALSE) {
#POINTS
data(velov)
vv <- spLayer(velov, stroke=F, popup=velov$NAME)
#POLYGONS
data(campsites)
gcol <- rev(heat.colors(5))
gcut <- cut(mapdep$N.CAMPSITES, breaks=c(-1, 20, 40, 60, 80, 1000))
cs <- spLayer(campsites, fill.col=as.numeric(gcut))
bm1 <- basemap("mapquest.map")
writeMap(bm1, cs, vv)
}
Run the code above in your browser using DataLab