data-raw/tidy_census/texas_race.R

In clauswilke/dviz.supp: Supporting materials for Claus Wilke's data visualization book

library(tidycensus)
library(tidyverse)

options(tigris_use_cache = TRUE)

##****************
## Racial composition
##****************

racevars <- c("P0050003", "P0050004", "P0050006", "P0040003")

texas_race_raw <- get_decennial(state = "TX", geography = "county", year = 2010,
                        variables = racevars, geometry = TRUE,
                        summary_var = "P0010001") 

texas_race <- texas_race_raw %>%
  mutate(pct = 100 * (value / summary_value),
         variable = fct_recode(variable,
                               White = "P0050003",
                               Black = "P0050004",
                               Asian = "P0050006",
                               Hispanic = "P0040003"))

devtools::use_data(texas_race, overwrite = TRUE)

texas_race %>%
  filter(variable == "White") %>%
  ggplot(aes(fill = pct)) +
  geom_sf(color = "white") +
  coord_sf(datum = NA) + 
  theme_map() +
  #scale_fill_continuous_diverging(palette = "Blue-Red 3",
  scale_fill_continuous_carto(palette = "Earth",
                              mid = 50,
                              limits = c(0, 100),
                              breaks = 25*(0:4),
                              name = "% white") +
  theme(legend.title.align = 0.5,
        legend.text.align = 0)