cols <- adjust_colours (cols=heat.colors (10), adj=-0.2, plot=TRUE)
# 'adjust_colours' also offers an easy way to adjust the default colour
# schemes provided by 'osm_structures'. The following lines darken the
# highway colour of the 'light' colour scheme by 20\%
structures <- osm_structures (structures=c('building', 'highway', 'park'),
col_scheme='light')
structures$cols [2] <- adjust_colours (structures$cols [2], adj=-0.2)
# Plot these structures:
bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
dat_B <- extract_osm_objects (value='building', bbox=bbox)
dat_H <- extract_osm_objects (value='highway', bbox=bbox)
dat_P <- extract_osm_objects (value='park', bbox=bbox)
# These data are also included in the 'london' data of 'osmplotr'
osm_data <- list (dat_B=london$dat_BNR, dat_H=london$dat_HP, dat_P=london$dat_P)
dat <- make_osm_map (structures=structures, osm_data=osm_data, bbox=bbox)
print (dat$map)Run the code above in your browser using DataLab