akron_acs_vs_census.R

library(tidycensus)
library(tidyverse)

akron_2010 <- get_decennial(
  geography = "place",
  year = 2010,
  variables = "P001001",
  state = "OH"
) %>%
  filter(NAME == "Akron city, Ohio") %>%
  pull(value)

akron_2020 <- get_decennial(
  geography = "place",
  year = 2020,
  variables = "P1_001N",
  state = "OH"
) %>%
  filter(NAME == "Akron city, Ohio") %>%
  pull(value)

# Percent change (decennial Census): -4.34%
100 * ((akron_2020 - akron_2010) / akron_2010)


akron_08_12 <- get_acs(
  geography = "place",
  year = 2012,
  variables = "B01003_001",
  state = "OH"
) %>%
  filter(NAME == "Akron city, Ohio") %>%
  pull(estimate)


akron_17_21 <- get_acs(
  geography = "place",
  year = 2021,
  variables = "B01003_001",
  state = "OH"
) %>%
  filter(NAME == "Akron city, Ohio") %>%
  pull(estimate)

# Percent change (ACS): -4.24%
100 * ((akron_17_21 - akron_08_12) / akron_08_12)