Skip to content

Instantly share code, notes, and snippets.

@elipousson
Created June 14, 2024 19:02
Show Gist options
  • Save elipousson/a204edb885c70849e9595267b1a9a9c3 to your computer and use it in GitHub Desktop.
Save elipousson/a204edb885c70849e9595267b1a9a9c3 to your computer and use it in GitHub Desktop.
library(arcgislayers)
library(ggplot2)
county_vac <- arc_read(
"https://services.arcgis.com/njFNhDsUCentVYJW/arcgis/rest/services/MD_COVID19_VaccinationByCounty/FeatureServer/0"
)
county_vac |>
ggplot() +
geom_sf(
aes(fill = PercentAtLeastOneVaccine)
) +
scale_fill_continuous(labels = scales::label_percent()) +
theme_void() +
labs(
"COVID-19 Vaccination rates by county"
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment