bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
map <- plot_osm_basemap (bbox=bbox, bg="gray20")
# The 'london' data used below were downloaded as:
dat_BNR <- extract_osm_objects (bbox=bbox, key='building',
value='!residential')
dat_HP <- extract_osm_objects (bbox=bbox, key='highway',
value='primary')
dat_T <- extract_osm_objects (bbox=bbox, key='tree')
map <- add_osm_objects (map, obj=london$dat_BNR, col="gray40", border="yellow")
map <- add_osm_objects (map, obj=london$dat_HP, col="gray80",
size=1, shape=2)
map <- add_osm_objects (map, london$dat_T, col="green", size=2, shape=1)
print (map)
# Polygons with different coloured borders
map <- plot_osm_basemap (bbox=bbox, bg="gray20")
map <- add_osm_objects (map, obj=london$dat_HP, col="gray80")
map <- add_osm_objects (map, london$dat_T, col="green")
map <- add_osm_objects (map, obj=london$dat_BNR, col="gray40", border="yellow",
size=0.5)
print (map)Run the code above in your browser using DataLab