Locations with Crashes and Operation Speeds

## [1] 8146944      14
## rmc_crash1 <- subset(df_RI, Crash > 0)[!duplicated(subset(df_RI, Crash > 0)[,4]),]
rmc_crash2= df_RI[,-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

TMC=114N04857 (58 Crashes)
Speed_Car
Speed_Truck
Crash
0
10
20
30
40
50
60
70
80
90
0
0.22
0.45
0.67
0.9
1.12
1.35
1.57
1.8
2.02
Feb 2015
Mar 2015
Apr 2015
May 2015
Jun 2015
Jul 2015
Aug 2015
Sep 2015
Oct 2015
Nov 2015
Dec 2015
Jan 2016
TMC=114P04158 (51 Crashes)
Speed_Car
Speed_Truck
Crash
0
10
20
30
40
50
60
70
80
90
0
0.24
0.48
0.72
0.95
1.19
1.43
1.67
1.91
2.15
Feb 2015
Mar 2015
Apr 2015
May 2015
Jun 2015
Jul 2015
Aug 2015
Sep 2015
Oct 2015
Nov 2015
Dec 2015
Jan 2016
TMC=114N04103 (37 Crashes)
Speed_Car
Speed_Truck
Crash
0
10
20
30
40
50
60
70
80
90
0
0.22
0.45
0.67
0.9
1.12
1.35
1.57
1.8
2.02
Feb 2015
Mar 2015
Apr 2015
May 2015
Jun 2015
Jul 2015
Aug 2015
Sep 2015
Oct 2015
Nov 2015
Dec 2015
Jan 2016
TMC=114N04855 (37 Crashes)
Speed_Car
Speed_Truck
Crash
0
10
20
30
40
50
60
70
80
90
0
0.12
0.23
0.35
0.47
0.58
0.7
0.81
0.93
1.05
Feb 2015
Mar 2015
Apr 2015
May 2015
Jun 2015
Jul 2015
Aug 2015
Sep 2015
Oct 2015
Nov 2015
Dec 2015
Jan 2016
TMC=114N05064 (37 Crashes)
Speed_Car
Speed_Truck
Crash
0
10
20
30
40
50
60
70
80
90
0
0.22
0.44
0.67
0.89
1.11
1.33
1.56
1.78
2
Feb 2015
Mar 2015
Apr 2015
May 2015
Jun 2015
Jul 2015
Aug 2015
Sep 2015
Oct 2015
Nov 2015
Dec 2015
Jan 2016
TMC=114P04858 (34 Crashes)
Speed_Car
Speed_Truck
Crash
0
10
20
30
40
50
60
70
80
90
0
0.24
0.48
0.72
0.95
1.19
1.43
1.67
1.91
2.15
Feb 2015
Mar 2015
Apr 2015
May 2015
Jun 2015
Jul 2015
Aug 2015
Sep 2015
Oct 2015
Nov 2015
Dec 2015
Jan 2016
TMC=114N04839 (33 Crashes)
Speed_Car
Speed_Truck
Crash
0
10
20
30
40
50
60
70
80
90
0
0.22
0.44
0.67
0.89
1.11
1.33
1.56
1.78
2
Feb 2015
Mar 2015
Apr 2015
May 2015
Jun 2015
Jul 2015
Aug 2015
Sep 2015
Oct 2015
Nov 2015
Dec 2015
Jan 2016
TMC=114N04847 (29 Crashes)
Speed_Car
Speed_Truck
Crash
0
10
20
30
40
50
60
70
80
90
0
0.23
0.46
0.69
0.92
1.15
1.38
1.61
1.84
2.07
Feb 2015
Mar 2015
Apr 2015
May 2015
Jun 2015
Jul 2015
Aug 2015
Sep 2015
Oct 2015
Nov 2015
Dec 2015
Jan 2016
TMC=114N04678 (28 Crashes)
Speed_Car
Speed_Truck
Crash
0
10
20
30
40
50
60
70
80
90
0
0.12
0.23
0.35
0.47
0.58
0.7
0.81
0.93
1.05
Feb 2015
Mar 2015
Apr 2015
May 2015
Jun 2015
Jul 2015
Aug 2015
Sep 2015
Oct 2015
Nov 2015
Dec 2015
Jan 2016
TMC=114P04856 (27 Crashes)
Speed_Car
Speed_Truck
Crash
0
10
20
30
40
50
60
70
80
90
0
0.23
0.47
0.7
0.93
1.16
1.4
1.63
1.86
2.1
Feb 2015
Mar 2015
Apr 2015
May 2015
Jun 2015
Jul 2015
Aug 2015
Sep 2015
Oct 2015
Nov 2015
Dec 2015
Jan 2016