Making Choropleth Maps with {leaflet}

This lesson is called Making Choropleth Maps with {leaflet}, part of the Mapping with R course. This lesson is called Making Choropleth Maps with {leaflet}, part of the Mapping with R course.

Transcript

Click on the transcript to go to that point in the video. Please note that transcripts are auto generated and may contain minor inaccuracies.

View code shown in video

library(leaflet)
library(tidyverse)
library(tidycensus)
library(janitor)
library(tigris)
library(scales)
library(sf)

speak_language_other_than_english_wgs84_with_labels <-
  read_sf(
    "https://raw.githubusercontent.com/rfortherestofus/mapping-with-r-v2/refs/heads/main/data/speak_language_other_than_english_wgs84_with_labels.geojson"
  )

speak_language_other_than_english_wgs84_with_labels

my_palette <-
  colorNumeric(
    palette = "viridis",
    domain = speak_language_other_than_english_wgs84_with_labels$pct
  )

leaflet() |>
  setView(-93.65, 42.0285, zoom = 2) |>
  addProviderTiles("CartoDB.Positron") |>
  addPolygons(
    data = speak_language_other_than_english_wgs84_with_labels,
    weight = 0.75,
    fillColor = ~ my_palette(pct),
    fillOpacity = 0.8,
    color = "white",
    popup = ~text_label
  ) |>
  addLegend(
    position = "topright",
    pal = my_palette,
    values = speak_language_other_than_english_wgs84_with_labels$pct,
    labFormat = labelFormat(
      transform = function(x) sort(x * 100, decreasing = TRUE),
      suffix = "%"
    ),
    opacity = 0.8
  )

Your Turn

Using the code to make your map on refugee populations from the last lesson, turn your map into a choropleth, with different shading for countries with higher refugee populations.