-
Notifications
You must be signed in to change notification settings - Fork 0
/
tworaces.Rmd
43 lines (38 loc) · 1.27 KB
/
tworaces.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
---
title: "Multiracial American Concentration"
output: html_document
date: '2022-06-30'
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(tidyverse)
library(tidycensus)
library(ggthemes)
library(tigris)
```
Multiracial Americans are U.S citizens who are of more than one race or ethnicity. The plot below visualizes the density of U.S citizens of two or more races by state.
```{r warning = FALSE, include = FALSE}
continental <- state.name[! state.name %in% c("Alaska", "Hawaii")]
races <- get_acs(geography = "tract",
variables = "B02001_008",
year = 2018,
state = continental,
geometry = TRUE,
summary_var = "B02001_001")
```
```{r warning = FALSE, include = FALSE}
twoRaceGraph <- races|>
mutate(Percent = (estimate / summary_est) * 100)|>
ggplot(aes(fill = Percent)) +
geom_sf(size = 0.003) +
scale_fill_viridis_c(direction = -1, option = "inferno") +
theme_void() +
labs(title = "Percentage of People of Two or More Races across the U.S",
subtitle = "More urbanized areas tend to house a larger percentage of multiracial citizens",
fill = "Percent",
caption = "Source: American Community Survey 2014-18")
write_rds(twoRaceGraph, "races_map.rds")
```
```{r}
read_rds("races_map.rds")
```