Setup for the OSM Map is below
ul <- as.vector(cbind(bbox(all_pcts_osm_sp) [2,2], bbox(all_pcts_osm_sp)
[1,1]))
lr <- as.vector(cbind(bbox(all_pcts_osm_sp) [2,1], bbox(all_pcts_osm_sp)
[1,2]))
map_types <- c("osm", "maptoolkit-topo", "waze", "mapquest",
"mapquest-aerial",
"bing", "stamen-toner", "stamen-terrain", "stamen-watercolor",
"osm-german",
"osm-wanderreitkarte", "mapbox", "esri", "esri-topo", "nps",
"apple-iphoto",
"skobbler", "opencyclemap", "osm-transport", "osm-public-transport",
"osm-bbike", "osm-bbike-german")
MyMap <- openmap(ul,lr, zoom = NULL, minNumTiles = 16L, type =
map_types[1] ,mergeTiles = TRUE)
# now plot the layer and the backdrop
par(mar = c(0,0,0,0))
plot(MyMap)
plot(spTransform(all_pcts_osm_sp, osm()), add = FALSE, lwd=.5,
border='blue')
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
