Borough 1

##############################################
#####BOROUGH ANALYSIS BY NUMBER OF DEATHS#####
##############################################

Borough_Deaths_Years <- by_borough %>% summarise(total_people_killed = sum(NUMBER.OF.PERSONS.KILLED))

#############TOTAL PEOPLE KILLED IN COLLISIONS BY BOROUGH FOR EACH YEAR#############


Total_Deaths_by_Years = ggplot(data = Borough_Deaths_Years, aes(x = Year, y = total_people_killed)) + 
                        geom_bar(aes(fill = BOROUGH), stat = 'identity') + 
                        theme_economist() + 
                        theme(legend.position = "right") +
                        theme(legend.text=element_text(size=5)) +
                        ggtitle('Total People Killed in Collisions by Year') + 
                        ylab("Number of Total Deaths\n") +
                        xlab("\nYear") +
                        scale_fill_brewer(palette = "Blues") +
                        theme(axis.text.x = element_text(vjust = 0, angle = 0, hjust = 0.5)) +
                        theme(legend.position = "right") +
                        theme(legend.text=element_text(size=10)) 
Total_Deaths_by_Years