## Not run:
# library(UScensus2000)
#
# lat <- c(43.834526782236814,30.334953881988564)
# lon <- c(-131.0888671875 ,-107.8857421875)
# southwest <- openmap(c(lat[1],lon[1]),c(lat[2],lon[2]),5,'bing')
# data(california.tract)
# california.tract <- spTransform(california.tract,osm())
#
# plot(southwest,removeMargin=TRUE)
# spatialChoropleth(california.tract,'med.age',
# legend.title = 'Median Age',alpha=1)
# ## End(Not run)
Run the code above in your browser using DataLab