Part 9: Ethnicity

Download the data from the Census Bureau

The Census Bureau defines “White Alone” as “people who reported White and did not report any other race category.” (https://www.census.gov/programs-surveys/cps/data/data-tools/cps-table-creator-help/racedefinitions.

html)

vars = c('B02001_002')

ethnicityData = get_acs(geography = "zcta", variables = vars, geometry = FALSE)

ethnicityData = ethnicityData %>% rename(whiteAloneCount = estimate)

ethnicityData$mod_zcta = sub("ZCTA5 ","",ethnicityData$NAME)

Question 18: Merge the ethnicity data into the main data set

Question 19: Calculate the percentage of the population that stated they are “White Alone.”