Locations with Crashes and Operation Speeds

## [1] 6157824      30
## rmc_crash1 <- subset(df_RMD, Crash > 0)[!duplicated(subset(df_RMD, Crash > 0)[,4]),]
rmc_crash2= df_RMD[,-c(1)] %>% group_by(TMC) %>% summarize(Crashes=sum(Crash))

datatable(
  rmc_crash2, extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('csv', 'excel', 'print')
  )
)

Top 10 High Risk Segments