library (dplyr)
library (forcats)
library (ggplot2)
library (osmdata)
#> Data (c) OpenStreetMap contributors, ODbL 1.0. https://www.openstreetmap.org/copyright
library (dodgr)

streets_raw <- opq ("culburra beach, NSW, Australia") %>%
    add_osm_feature (key = "highway") %>%
    osmdata_sf () %>%
    osm_poly2line ()

xmin <- 150.74

streets_raw <- weight_streetnet (streets_raw$osm_lines) %>%
    filter (component == 1) %>%
    filter (from_lon > xmin & to_lon > xmin) %>%
    dodgr_to_sf ()
#> Loading required namespace: sf

streets <- streets_raw %>% 
  select(edge_id, highway) %>% 
  mutate(highway = fct_recode(highway, 
                              residential = "service",
                              residential = "unclassified",
                              path = "track",
                              path = "cycleway"
                              )) 

ggplot(streets, aes(col = highway)) +
  geom_sf(data = filter(streets, highway == 'path'), alpha = 0.4, show.legend = F) +
  geom_sf(data = filter(streets, highway == 'residential'), alpha = 0.5, show.legend = F) +
  geom_sf(data = filter(streets, highway == 'secondary'), alpha = 0.9, show.legend = F) +
  scale_colour_manual(values =  c("path" = "#70838B", 
                                  "residential" = "#0A5D81", 
                                  "secondary" = "#0A5D81")) +
  labs(caption = "Culburra Beach",
       y = "") +
  #expand_limits(y = c(-34.8980, -34.9482)) + 
  theme_minimal() +
  theme(
    plot.background = element_rect(fill = "#E4D9C6", color = NA),
    panel.background = element_rect(fill = "#E4D9C6",  color = NA),
    panel.grid = element_blank(), 
    axis.text = element_text(colour = "#C7B18A", family = "Ubuntu Mono"),
    axis.ticks = element_blank(), 
    panel.border = element_blank(), 
    plot.caption = element_text(family = "Ubuntu Mono", size = 85, vjust = -0.2, color = '#C7B18A'), 
    plot.margin = margin(22,10,22,10, "mm"))