Jeff Co Population

Population By Block (2010)

mapview(jeffco2, zcol = "value", legend = TRUE)

Median Household Income (2016)

mapview(il, zcol = "estimate", legend = TRUE)

leaflet(data = leafmap) %>% addTiles() %>%
  addPolygons(fillColor = ~pal(unemployed_rate), 
              fillOpacity = 0.8, 
              color = "#BDBDC3", 
              weight = 1,
              popup = popup_dat)

## Warning in RColorBrewer::brewer.pal(max(3, n), palette): n too large, allowed maximum for palette YlOrRd is 9
## Returning the palette you asked for with that many colors