Which census geographies add up?

census-geo-add.R

library(tidycensus)
library(tidyverse)

state <- get_decennial(
  geography = "state",
  variables = "P001001",
  state = "CA"
)

tract <- get_decennial(
  geography = "tract",
  variables = "P001001",
  state = "CA"
)

ca_county_codes <- fips_codes %>% 
  filter(state == "CA") %>% 
  distinct(county_code)

block <- map_dfr(
  ca_county_codes, 
  ~ get_decennial(
      geography = "block",
      variables = "P001001",
      state = "CA",
      county = .x
      )
  )

zcta <- get_decennial(
  geography = "zcta",
  variables = "P001001",
  state = "CA"
)


sum(state$value) == sum(tract$value)

sum(state$value) == sum(block$value)

sum(state$value) == sum(zcta$value)