mapchallenge_day5_ukraine.R

library(tidycensus)
library(tigris)
library(tidyverse)
library(showtext)
options(tigris_use_cache = TRUE)

font_add_google("Roboto", "Roboto")
showtext_auto()

ukrainian <- get_acs(
  geography = "county",
  variables = "B04006_092",
  summary_var = "B04006_001",
  geometry = TRUE
) %>%
  mutate(percent = 100 * (estimate / summary_est)) %>%
  shift_geometry()

ggplot(ukrainian, aes(fill = percent)) + 
  geom_sf() + 
  scale_fill_viridis_b(option = "cividis", breaks = c(0, 0.5, 1, 1.5, 2, 3),
                       label = scales::label_percent(scale = 1)) + 
  theme_void(base_size = 14, base_family = "Roboto") + 
  labs(title = "Percent of county population with Ukrainian ancestry",
       subtitle = "2016-2020 American Community Survey",
       caption = "@kyle_e_walker | tidycensus R package | Estimates subject to margin of error",
       fill = "Percent") + 
  theme(plot.margin = margin(0, 0.5, 0, 0.5, unit = "cm"))