Moto Speed

setwd("C:/Users/s-das/Syncplicity Folders/MyProjects_IMP/MY_Papers_V2/TRB 2020/00000000 FINALz/0000 Motorcycle Speeding")
mm= read.csv("Moto_withCluster_sd.csv")
head(mm)

##    Var    Att Class1 Class2 Class3 Class4 Class5 Class6
## 1 Seve      K     20     19     22     23      6      9
## 2 Seve      A     22     16     28     14     14      6
## 3 Seve      B     28     23     13     15      9     12
## 4 Seve      C     29     29      5      5     13     18
## 5 Seve      O     25     13     10     13     25     15
## 6 Cond Normal     27     13     21     15     17      8

library(formattable)

formattable(mm, list(
  Class1 = color_tile("white", "orange"),
  Class2 = color_tile("white", "orange"),
  Class3 = color_tile("white", "orange"),
  Class4 = color_tile("white", "orange"),
  Class5 = color_tile("white", "orange"),
  Class6 = color_tile("white", "orange")
))

Var	Att	Class1	Class2	Class3	Class4	Class5	Class6
Seve	K	20	19	22	23	6	9
Seve	A	22	16	28	14	14	6
Seve	B	28	23	13	15	9	12
Seve	C	29	29	5	5	13	18
Seve	O	25	13	10	13	25	15
Cond	Normal	27	13	21	15	17	8
Cond	Inattentive	26	21	5	9	16	23
Cond	Distracted	25	50	0	13	0	13
Cond	Impaired	33	7	20	13	7	20
Cond	Others	23	28	19	19	6	6
Age	15-24	31	22	13	8	14	12
Age	25-34	24	12	19	19	13	12
Age	35-44	25	27	18	14	13	4
Age	45-54	29	23	11	11	9	17
Age	55-64	11	47	5	16	0	21
Age	GT 65	22	17	11	17	11	22
Reason	Violation	24	24	11	10	15	16
Reason	Normal	21	4	37	21	9	9
Reason	Loss of Control	20	64	0	4	0	12
Reason	Avoid Vehicle/Animal	40	10	5	25	15	5
Reason	Driver Condition	25	13	13	13	25	13
Reason	Others	32	14	18	25	7	5
Coll	Single Motorcycle	34	32	2	8	8	15
Coll	Right Angle	0	0	70	19	11	0
Coll	Rear End	38	0	8	8	17	29
Coll	Left Turn	5	0	36	55	5	0
Coll	Sideswipe	0	0	47	6	47	0
Coll	Head-On	13	25	0	63	0	0
Coll	Others	24	14	5	19	24	14
Light	Daylight	25	20	15	16	11	13
Light	Dark	26	22	17	12	14	10
Make	Harley Davidson	23	36	9	11	7	14
Make	Honda	25	13	14	11	14	23
Make	Kawasaki	34	23	13	23	4	4
Make	Others	20	10	20	30	10	10
Make	Suzuki	21	20	22	12	15	9
Make	Yamaha	32	9	15	12	24	9
Access	Full Control	0	0	0	3	10	87
Access	No Control	30	25	16	15	12	2
Access	Partial Control	16	12	32	24	16	0
Access	Curve	24	48	1	6	9	13
Access	On Grade	15	38	4	4	4	35
Access	Others	44	13	6	13	13	13
Access	Straight-Level	26	2	27	22	15	8
Loc	Business	16	1	35	14	26	8
Loc	Industrial	31	0	15	8	23	23
Loc	Open Country	16	32	0	4	11	38
Loc	Others	8	42	0	0	8	42
Loc	Residential	38	32	8	21	1	1
Road	Two-Way No Sepa.	34	31	12	20	4	0
Road	Two-Way with Sepa.	15	3	22	4	29	26
Road	One-Way	6	0	15	3	26	50
Road	Two-Way with Barrier	8	0	42	8	17	25
Road	Others	20	60	0	20	0	0
Surf	Dry	25	21	16	15	13	9
Surf	Wet	26	17	4	4	4	43
Int	N	31	28	5	9	12	15
Int	Y	12	2	41	28	12	5
DOW	FSS	24	17	18	16	11	13
DOW	MTWT	27	26	11	12	14	11
AADT	0-1000	38	26	14	17	5	1
AADT	1001-3000	35	33	6	25	0	0
AADT	3001-8000	28	38	16	19	0	0
AADT	8001-20,000	11	0	49	3	30	8
AADT	GT 20,000	3	0	12	1	34	50

library(lineupjs)
lineup(mm)