R Markdown

My Nice Plot

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