Added notes to zip code file for lincoln, kemmerer

This commit is contained in:
Alex Gebben Work 2025-10-30 17:00:31 -06:00
parent 06b8a858e2
commit b62ad1223f

View File

@ -11,6 +11,8 @@ vars <- c("B01001_004","B01001_005")
get_acs(geography="tract",variables=vars,state='WY',county='lincoln',GEOID='56023978400') get_acs(geography="tract",variables=vars,state='WY',county='lincoln',GEOID='56023978400')
######MALE ######MALE
#Variable names from: https://api.census.gov/data/2019/acs/acs1/variables.html
VARS <-c( VARS <-c(
#Under_Five #Under_Five
'B01001_003E', 'B01001_003E',
@ -32,6 +34,7 @@ VARS <-c(
'B01001_011E', 'B01001_011E',
#85+ #85+
'B01001_025E') 'B01001_025E')
#Testing age Comparison between the two
TEMP <- get_acs(geography="tract",variables=VARS,state='WY',county='lincoln') TEMP <- get_acs(geography="tract",variables=VARS,state='WY',county='lincoln')
KEM <- TEMP %>% filter(GEOID=='56023978400') KEM <- TEMP %>% filter(GEOID=='56023978400')
KEM KEM