2022-02-14_bcpss_pedestrian-activity-map.R

library(overedge)

program_number <- 237
buffer_dist <- 402.336
bbox_dist <- buffer_dist * 2
neatline_dist <- buffer_dist * 1.75
basemap_scale <- 0.75
asp <- "8:10.5"
mapbox_crs <- 3857

location <-
  get_location(
    type = bcpss::bcps_programs_SY2021,
    id = program_number,
    id_col = "program_number"
  )

label <- janitor::make_clean_names(location$program_name_short)

location_bbox_adj_3857 <-
  st_bbox_adj(
    x = location,
    dist = bbox_dist,
    asp = asp,
    crs = mapbox_crs
  )

basemap <-
  ggplot2::ggplot() +
  snapbox::layer_mapbox(
    area = location_bbox_adj_3857,
    map_style = "mapbox://styles/elipousson/ckzmwhvjd000h14mn6zw19y4j",
    mapbox_api_access_token = Sys.getenv("MAPBOX_ACCESS_TOKEN"),
    scale_ratio = basemap_scale
  )
  
basemap +
  layer_location_data(
    data = location,
    geom = "icon",
    icon = "school",
    source = "mapbox/maki",
    size = 6,
    crs = mapbox_crs
  ) +
  layer_location_data(
    data = st_buffer_ext(location, dist = buffer_dist),
    crs = mapbox_crs,
    linetype = "dashed",
    color = "black",
    fill = NA
  ) +
  layer_neatline(
    data = location,
    dist = neatline_dist,
    asp = asp,
    expand = TRUE,
    crs = mapbox_crs
  )

ggplot2::ggsave(
  filename = glue::glue("{label}_pedestrian_activity_basemap.pdf"),
  width = 8.5,
  height = 11
)