# Create a bouding box
bbox <- neighb@bbox
# Add a margin between the extent of our data the edge of the basemap
sf_bbox <- c(left = bbox[1, 1] - .01, bottom = bbox[2, 1] - .005,
             right = bbox[1, 2] + .01, top = bbox[2, 2] + .005)
# General basemap
basemap <- get_stamenmap(
  bbox = sf_bbox,
  zoom = 13,
  maptype = "toner-lite")

bmMap <- ggmap(basemap) + mapTheme() +
  labs(title="San Francisco basemap")
bmMap
ggsave("plot3_basemap.png", bmMap, width = 6, height = 6, device = "png")