race_justice | R Documentation |
Results from a Yahoo! News poll conducted by YouGov on May 29-31, 2020. In total 1060 U.S. adults were asked a series of questions regarding race and justice in the wake of the killing of George Floyd by a police officer. Results in this dataset are percentages for the question, "Do you think Blacks and Whites receive equal treatment from the police?" For this particular question there were 1059 respondents.
race_justice
A data frame with 1,059 rows and 2 variables.
Race/ethnicity of respondent, with levels White
, Black
, Hispanic
, and Other
.
Response to the question "Do you think Black and White
people receive equal treatment from the police?", with levels Yes
, No
, and Not sure
.
Yahoo! News Race and Justice - May 31, 2020.
library(ggplot2)
library(dplyr)
# Conditional probabilities of response for each race/ethnicity
race_justice |>
count(race_eth, response) |>
group_by(race_eth) |>
mutate(prop = n / sum(n))
# Stacked bar plot of counts
ggplot(race_justice, aes(x = race_eth, fill = response)) +
geom_bar() +
labs(
x = "Race / ethnicity",
y = "Count",
title = "Do you think Black and White people receive
equal treatment from the police?",
fill = "Response"
)
# Stacked bar plot of proportions
ggplot(race_justice, aes(x = race_eth, fill = response)) +
geom_bar(position = "fill") +
labs(
x = "Race / ethnicity",
y = "Proportion",
title = "Do you think Black and White people receive
equal treatment from the police?",
fill = "Response"
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.