[R] Fwd: Text in Spatial Polygrams

[Jim Burke]

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]]