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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.