leaflet-heatmap.R

pal_state_pop <- colorNumeric("viridis", us_contiguous$estimate)

label_state <- function(state, pop){
  str_glue("{state} with population of {pop}")
}

us_contiguous %>% 
  leaflet() %>% 
  addPolygons(weight = 1,
              color = "white",
              fillColor = ~pal_state_pop(estimate),
              fillOpacity = 1,
              popup = ~label_state(NAME, estimate)) %>% 
  addLegend(pal = pal_state_pop,
            values = ~estimate,
            opacity = 1)