Leaflet Homework

Cartography/Leaflet Homework

Create a map similar to this map from the Washington Post (open the link in an incognito window to avoid the paywall if you need) for Richmond using the educational attainment data linked below and census tracts that you will download with the tigris package

library( sf )

# Download the tigris package if necessary
if( !require( tigris) ) {
  install.packages("tigris")
  library( tigris)
}

education_url <- "https://github.com/dyerlab/ENVS-Lectures/raw/master/data/edu_attainment-shp.zip"

tracts <- tracts("VA", "Richmond city") %>%
  st_transform(4326)

Map Requirements

• Dot density map of education attainment when zoomed out, with dot color based on attainment level

• Choropleth map of education attainment level by census tracts when zoomed in

  • pivot_wider() and tally() were helpful for me to combine the point data and the tracts polygons

• Legend

• Scale bar

• At least one feature with a pop-up or label

---

If you get stuck transforming the education attainment data from points to polygons you can download this csv. It is a tally of the number of points per tract by education attainment. It is up to you what metric to use to color the polygons.