mapchallenge_day17_nocomputer.R

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

font_add_google("Lato", "Lato")

dat <- get_acs(
  geography = "county",
  variables = "DP02_0153P",
  geometry = TRUE
) %>%
  mutate(no_computer = 100 - estimate) %>%
  filter(str_sub(GEOID, 1, 2) != "72") %>%
  shift_geometry()

ggplot(dat, aes(fill = no_computer)) + 
  geom_sf(color = NA) + 
  theme_void(base_family = "Lato") + 
  scale_fill_viridis_c(labels = scales::label_percent(scale = 1),
                       option = "inferno") + 
  labs(title = "Percent of county population without a computer at home\n",
       caption = "2016-2020 ACS | tidycensus R package | @kyle_e_walker\n",
       fill = "") + 
  theme(plot.title = element_text(hjust = 0.5),
        plot.subtitle = element_text(hjust = 0.5),
        legend.position = "top", 
        legend.direction = "horizontal",
        legend.key.width = unit(0.5, "in"),
        legend.key.height = unit(0.1, "in"))