Skip to content

Instantly share code, notes, and snippets.

@walkerke

walkerke/annotation_map_tile.R

Created January 14, 2022 17:59
Show Gist options
  • Save walkerke/7aa63894c1cbd98eb3d22e2494fd4360 to your computer and use it in GitHub Desktop.
Save walkerke/7aa63894c1cbd98eb3d22e2494fd4360 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
annotation_map_tile.R
library(tidycensus)
library(ggspatial)
income <- get_acs(
geography = "tract",
variables = "B19013_001",
state = "TX",
county = "Tarrant",
geometry = TRUE
)
ggplot(income, aes(fill = estimate)) +
annotation_map_tile(type = "stamenbw", zoom = 10) +
geom_sf(alpha = 0.6) +
theme_void() +
scale_fill_viridis_c()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment