washington_post.R

library(tidyverse)
library(lubridate)

tst <- readr::read_csv('https://raw.githubusercontent.com/washingtonpost/data-police-shootings/master/fatal-police-shootings-data.csv')

tst1 <-
  tst %>%
  filter(race != 'N', year(date) < 2020) %>% 
  mutate(Raza = ifelse(race == 'W', 'Blancos', 'Otros')) %>% 
  filter(armed == 'unarmed') %>% 
  group_by(year = year(date), Raza) %>% 
  summarise(n = n()) 

tst %>% 
  count(armed) %>% 
  filter(n > 10) %>% 
  filter(!is.na(armed)) %>% 
  ggplot(aes(x = reorder(armed, n), y = n)) +
  geom_bar(stat="identity") +
  coord_flip() + theme_minimal() +
  labs(x = 'Situación')
  

ggplot(tst1, aes(x = year, y = n, group = Raza)) +
  geom_line(aes(color = Raza)) +
  geom_point(aes(color = Raza)) + theme_minimal() +
  labs(title= 'Número de personas desarmadas muertas por disparos policiales')