From Minneapolis, data from 2016 through August 2021
A data frame with 12925 rows and 13 variables.
DateTime of police response.
Problem that required police response.
Whether response was iniated by call to 911.
Offense of subject.
Whether subject was injured Yes/No/null.
Type of police force used.
Detail of police force used.
Race of subject.
Gender of subject.
Age of subject.
Resistance to police by subject.
Precinct where response occurred.
Neighborhood where response occurred.
library(dplyr) library(ggplot2) # List percent of total for each race mn_police_use_of_force %>% count (race) %>% mutate (percent= round(n/sum(n)*100,2)) %>% arrange(desc(percent)) # Display use of force count by three races race_sub = c("Asian","White","Black") ggplot(mn_police_use_of_force %>% filter(race %in% race_sub), aes(force_type, ..count.. ) ) + geom_point(stat = "count", size = 4) + coord_flip()+ facet_grid( race ~ . )+ labs(x = "Force Type", y = "Number of Incidents")