In askilton1/homicides: U.S. Homicide Reports Exploration

library(homicides);library(tidyverse)

homicides.tb <- clean()

glimpse(homicides.tb)

toplot <- homicides.tb %>% 
  select(VictimSex, VictimAge, PerpetratorSex, PerpetratorAge) %>% 
  filter(VictimSex %in% c("Female", "Male"),
         PerpetratorSex %in% c("Female", "Male")) %>% 
  mutate(PerpetratorSex = paste0("Perpetrator: ", PerpetratorSex),
         VictimSex = paste0("Victim: ", VictimSex))

ggplot(toplot, aes(x = VictimAge, y = PerpetratorAge)) +
  geom_point(alpha = 0.01) +
  coord_equal() +
  theme_minimal() +
  facet_wrap(PerpetratorSex ~ VictimSex) + 
  labs(title = "Homicides 1980-2014")

askilton1/homicides documentation built on May 12, 2019, 5:37 a.m.