Chapter 9 Sex of the Victims

We examine the sex of the Victims in the following barplot.

LACrime %>%
  filter(!is.na(VictimSex)) %>%
  group_by(VictimSex) %>%
  tally() %>%
  ungroup() %>%
  mutate(VictimSex = reorder(VictimSex,n)) %>%
  
  ggplot(aes(x = VictimSex,y = n)) +
  geom_bar(stat='identity',colour="white", fill =fillColor) +
  geom_text(aes(x = VictimSex, y = 1, label = paste0("(",n,")",sep="")),
            hjust=0, vjust=.5, size = 4, colour = 'black',
            fontface = 'bold') +
  labs(x = 'Sex', y = 'Count of Incidents', 
       title = 'Count of Incidents and Sex') +
  coord_flip() + 
  theme_bw()

It is evident that there are More Males involved than the Females.