Harald Kliems: #30DayMapChallenge: 5-minute map

Harald Kliems

Usually I don’t have the time to participate in the #30DayMapChallenge, but today I felt like putting together a map for challenge 13: 5-minute map. My interpretation of the prompt: How far can you walk within a 5 minutes from each of Madison Metro’s ~2100 bus stops?

Show code

library(tmap)
library(sf)
library(mapboxapi)
library(tmaptools)

# load bus stops from Madison Open Data portal
# https://data-cityofmadison.opendata.arcgis.com/datasets/cityofmadison::metro-transit-bus-stops/explore
stops <- st_read("www/data/Metro_Transit_Bus_Stops.geojson")

Reading layer `Metro_Transit_Bus_Stops' from data source 
  `C:\Users\user1\Documents\website\_posts\2022-11-13-30daymapchallenge-5-minute-map\www\data\Metro_Transit_Bus_Stops.geojson' 
  using driver `GeoJSON'
Simple feature collection with 2103 features and 25 fields
Geometry type: POINT
Dimension:     XY
Bounding box:  xmin: -89.56386 ymin: 42.98772 xmax: -89.24482 ymax: 43.17654
Geodetic CRS:  WGS 84

Show code

# create isochrones. API key required
# walk_5min <- mb_isochrone(stops,
#                           profile = "walking",
#                           time = 5)
walk_5min <- readRDS("www/data/Metro_Transit_Bus_Stops.RDS")

Show code

# create bounding box around stop isochrones
metro_bb <- bb(walk_5min)

#download basemap
basemap <- read_osm(metro_bb, zoom = 12, type = "stamen-watercolor")

tmap_mode("plot")
tmap_options(check.and.fix = TRUE)
tm_shape(basemap)+
  tm_rgb(alpha = .8) +
tm_shape(walk_5min) +
  tm_polygons(alpha = .3) +
  tm_shape(stops)+
  tm_dots(alpha = .5) +
  tm_layout(title = "5-minute walksheds around\nMadison Metro stops", 
            title.position = c("LEFT", "TOP")) +
  tm_credits("Basemap: OpenStreetMap Contributors, Stamen, Data: City of Madison, Visualization: Harald Kliems",
             position = c("right", "BOTTOM"),
             size = 200, align = "right", )

Show code

            # title.bg.color = "lightgrey",
            # title.bg.alpha = .8, title.position = c("LEFT", "TOP"))

Reuse

Text and figures are licensed under Creative Commons Attribution CC BY-SA 4.0. The figures that have been reused from other sources don't fall under this license and can be recognized by a note in their caption: "Figure from ...".

Citation

For attribution, please cite this work as

Kliems (2022, Nov. 13). Harald Kliems: #30DayMapChallenge: 5-minute map. Retrieved from https://haraldkliems.netlify.app/posts/2022-11-13-30daymapchallenge-5-minute-map/

BibTeX citation

@misc{kliems2022#30daymapchallenge:,
  author = {Kliems, Harald},
  title = {Harald Kliems: #30DayMapChallenge: 5-minute map},
  url = {https://haraldkliems.netlify.app/posts/2022-11-13-30daymapchallenge-5-minute-map/},
  year = {2022}
}