Chapter 12 Crime Types for persons aged 70 and above

We examine the Crime Types commited with persons aged 70 and above.

LACrime %>%
  filter(!is.na(VictimSex)) %>%
  filter(VictimAge >= 70) %>%
  group_by(VictimSex,CrimeCodeDescription) %>%
  tally() %>%
  ungroup() %>%
  mutate(VictimSex = reorder(VictimSex,n)) %>%
  arrange(desc(n)) %>%
  head(10) %>%

  ggplot(aes(x = VictimSex,y = n,fill = CrimeCodeDescription)) +
  geom_bar(stat='identity') +
  labs(x = 'Sex and Crime Description', y = 'Count of Incidents', 
       title = 'Count of Incidents and Sex and Crime Description for Persons 70 and above') +
  coord_flip() + 
  theme_bw() + theme(legend.position="top")

We observer that Theft of Identity and Burglary are the Two Important Crime Types commited with persons aged 70 and above.