Making Choropleth Maps with {leaflet}

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
  )