collisions_by_hour.r

############### By Time
# We want to organize the crashes by hours
date_hour = strptime(vehc$TIME,"%H")
hour = as.numeric(format(date_hour, "%H")) +
  as.numeric(format(date_hour, "%M"))/60
vehc$hour = hour

common_times = vehc %>% group_by(hour) %>%
                        summarize(count=n()) %>% 
                        arrange(desc(count))
                        
##Barchart of the common times of car crashes in the entire dataset.
g_hour=ggplot(data=common_times)
g_hour+geom_bar(aes(x=hour, y=count),stat="identity")