openintro (version 2.4.0)

race_justice: Yahoo! News Race and Justice poll results

Description

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 data set 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.

Usage

race_justice

Format

A data frame with 1,059 rows and 2 variables.

race_eth

Race/ethnicity of respondent, with levels White, Black, Hispanic, and Other.

response

Response to the question "Do you think Black and White people receive equal treatment from the police?", with levels Yes, No, and Not sure.

Examples

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"
  )