quick_pop_map.R

library(tidycensus)
library(tidyverse)
census_api_key(Sys.getenv('CENSUS_API_KEY'))
vars <- load_variables(2017, "acs5", cache = TRUE)
il <- get_acs(geography = "county",
              variables = "B00001_001", 
              state = "IL", geometry = TRUE)
ggplot(il) + 
  geom_sf(aes(fill=estimate/1000), size=0.4, color='black') +
  scale_fill_viridis_c() +
  labs(title='Illinois Population By County',
       subtitle = '2017 American Community Survey Estimate',
       fill = 'Residents, 1000s') +
  coord_sf(crs =sf::st_crs(26972), datum=NA) +
  theme_void()