fl_wider %>% ggplot(aes(fill = white_pct)) + geom_sf(color = NA) + scale_fill_viridis_c(option = "magma")