Borough 4 - Pedestrian

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

#Pedesterian_Deaths_by_Years = summarise(Borough_Summary_Year, total_pedestrians_killed = sum(NUMBER.OF.PEDESTRIANS.KILLED))
Pedesterian_Deaths_by_Years <- by_borough %>% summarise(total_pedestrians_killed = sum(NUMBER.OF.PEDESTRIANS.KILLED))


Total_Pedestrians_Killed_by_Years = ggplot(data = Pedesterian_Deaths_by_Years, aes(x = Year, y = total_pedestrians_killed)) + 
                                    geom_bar(aes(fill = BOROUGH), position = "dodge", stat = 'identity') + 
                                    theme_economist() +
                                    theme(legend.position = "right") +
                                    theme(legend.text=element_text(size=10)) +
                                    ggtitle('Total Pedestrians Killed in Collisions by Year\n(From 07/2012 to 03/2016)') + 
                                    ylab("Number of Pedestrian Deaths\n") +
                                    xlab("\nYear") +
                                    scale_fill_brewer(palette = "Blues") +
                                    theme(axis.text.x = element_text(angle = 0, hjust = 0.5))
Total_Pedestrians_Killed_by_Years