shootings.R

library(data.table)
library(ggplot2)
library(lubridate)

df <- fread("Shootings.csv")

df$hour = lubridate::hour(lubridate::mdy_hms(df$Date))

new_df <- df[, list(arrest = sum(Arrest), no_arrest = sum(!Arrest), total_reports = length(Arrest)), Year]

ggplot(new_df) +
  geom_point(aes(x = Year,y = arrest/total_reports)) + 
  coord_cartesian(ylim=c(0, 0.15)) +
  ylab("Arrest / Total Reports")

ggplot(new_df) +
  geom_point(aes(x = Year,y = total_reports)) + 
  ylab("Total Reports")