Calculate average turnout of swing vs. non-swing states

swing_2020_turnout.R

library(tidyverse)
library(readxl)
library(janitor)

download.file(
  url =
    "https://www2.census.gov/programs-surveys/cps/tables/p20/585/table04a.xlsx",
  destfile = "turnout2020.xlsx",
  mode = "wb"
)

turnout2020 <- read_excel("turnout2020.xlsx", skip = 5) %>%
  clean_names() %>%
  rename(state = x1) %>%
  filter(state != "UNITED STATES") %>%
  mutate(state = tolower(state)) %>%
  left_join(
    ., data.frame(state = state.name, abb = state.abb) %>%
      mutate(state = tolower(state)),
    by = "state"
  ) %>%
  mutate(
    swing = case_when(
      abb %in% c("AZ", "FL", "GA", "MI", "MN", "NC", "PA", "WI") ~ 1,
      TRUE ~ 0
    )
  )

turnout2020 %>%
  filter(!is.na(swing) & !is.na(percent_registered_total)) %>%
  group_by(swing) %>%
  summarize(mean(percent_registered_total))