dc-race-datacamp.R

library(tidycensus)
library(tidyverse)
library(sf)

racevars <- c(White = "P005003", 
              Black = "P005004", 
              Asian = "P005006", 
              Hispanic = "P004003")

race <- get_decennial(geography = "tract", variables = racevars, 
                      state = "DC", county = "District of Columbia", 
                      geometry = TRUE,
                      summary_var = "P001001") %>%
  mutate(percent = 100 * (value / summary_value)) %>%
  st_transform(26918)