bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
map <- plot_osm_basemap (bbox=bbox, bg="gray20")
map <- add_osm_objects (map, london$dat_BNR, col="gray40")
map <- add_axes (map)
print (map)
# Map items are added sequentially, so adding axes prior to objects will
# produce a different result.
map <- plot_osm_basemap (bbox=bbox, bg="gray20")
map <- add_axes (map)
map <- add_osm_objects (map, london$dat_BNR, col="gray40")
print (map)Run the code above in your browser using DataLab