Dataset
#Load Ozone Dataset
load("Ozone Data with Region.RData")
combinedAir.final<-df4
combinedAir.final$USDM.categorical<-factor(combinedAir.final$USDM.categorical,levels=c("NoDrought","ModerateDrought","SevereDrought"))
## Subset Between May 1st to Sep 31st.
combinedAir.final$month<-as.numeric(combinedAir.final$month)
combinedAir.final<-combinedAir.final%>%
filter(month>=5 & month<=9)
Calculating Statistics (Total Monitor, Mean & SD)
sum_Ozone<- combinedAir.final%>%
group_by(State,USDM.categorical)%>%
summarise(Total_monitor=n(),
Ozone_max=mean(Max.Ozone),
sd=sd(Max.Ozone))
prcn_Ozone<-sum_Ozone%>%
group_by(State)%>%
mutate(percentage=(Total_monitor/sum(Total_monitor))*100)
w.prcn_Ozone<-prcn_Ozone%>%
pivot_wider(names_from=USDM.categorical,
values_from=c(Total_monitor,Ozone_max,percentage,sd))
Total Monitor
tot.monitor<-w.prcn_Ozone[,c(1:4)]
kableExtra::kable(tot.monitor,caption ="Total Monitor",align=c("l","c","c","c"))
Total Monitor
|
State
|
Total_monitor_NoDrought
|
Total_monitor_ModerateDrought
|
Total_monitor_SevereDrought
|
|
Alabama
|
46418
|
13313
|
6870
|
|
Arizona
|
28700
|
48573
|
45556
|
|
Arkansas
|
15651
|
4282
|
1009
|
|
California
|
214208
|
185615
|
99991
|
|
Colorado
|
54112
|
20935
|
9897
|
|
Connecticut
|
27808
|
3921
|
NA
|
|
Delaware
|
15270
|
2565
|
213
|
|
Florida
|
119914
|
24554
|
10861
|
|
Georgia
|
35300
|
14916
|
10118
|
|
Idaho
|
4603
|
4864
|
993
|
|
Illinois
|
96742
|
10460
|
2414
|
|
Indiana
|
107772
|
10384
|
1757
|
|
Iowa
|
44543
|
5680
|
1028
|
|
Kansas
|
17792
|
4760
|
2328
|
|
Kentucky
|
76006
|
10012
|
1381
|
|
Louisiana
|
52168
|
11439
|
6638
|
|
Maine
|
39908
|
5646
|
90
|
|
Maryland
|
44489
|
5772
|
455
|
|
Massachusetts
|
40598
|
2946
|
717
|
|
Michigan
|
72499
|
7482
|
31
|
|
Minnesota
|
33662
|
6862
|
760
|
|
Mississippi
|
23167
|
4952
|
1676
|
|
Missouri
|
59295
|
11120
|
2422
|
|
Montana
|
7571
|
3428
|
812
|
|
Nebraska
|
10056
|
2592
|
455
|
|
Nevada
|
24685
|
21812
|
20648
|
|
New Hampshire
|
31905
|
3020
|
423
|
|
New Jersey
|
37340
|
5703
|
NA
|
|
New Mexico
|
25437
|
20560
|
16464
|
|
New York
|
83830
|
8815
|
291
|
|
North Carolina
|
90032
|
22252
|
9817
|
|
North Dakota
|
17005
|
4460
|
1106
|
|
Ohio
|
128237
|
14245
|
452
|
|
Oklahoma
|
44783
|
13289
|
6380
|
|
Oregon
|
18255
|
6972
|
1157
|
|
Pennsylvania
|
133630
|
9953
|
153
|
|
Rhode Island
|
7693
|
593
|
29
|
|
South Carolina
|
32794
|
16238
|
7107
|
|
South Dakota
|
8446
|
3194
|
1217
|
|
Tennessee
|
54451
|
12231
|
3888
|
|
Texas
|
120696
|
57314
|
25343
|
|
Utah
|
22475
|
24568
|
8032
|
|
Vermont
|
5390
|
593
|
NA
|
|
Virginia
|
60034
|
8678
|
879
|
|
Washington
|
32059
|
9396
|
753
|
|
West Virginia
|
23736
|
1147
|
30
|
|
Wisconsin
|
81994
|
10386
|
958
|
|
Wyoming
|
23639
|
11563
|
5652
|
Mean
m.Ozone<-w.prcn_Ozone[,c(1,5,6,7)]
kableExtra::kable(m.Ozone,caption ="Mean Ozone Max",align=c("l","c","c","c"))
Mean Ozone Max
|
State
|
Ozone_max_NoDrought
|
Ozone_max_ModerateDrought
|
Ozone_max_SevereDrought
|
|
Alabama
|
43.29635
|
47.04161
|
51.43435
|
|
Arizona
|
54.08913
|
52.89789
|
55.15616
|
|
Arkansas
|
44.50208
|
51.25362
|
50.70862
|
|
California
|
50.03913
|
52.84298
|
51.92552
|
|
Colorado
|
52.66316
|
55.39212
|
54.34809
|
|
Connecticut
|
46.78024
|
48.51798
|
NA
|
|
Delaware
|
48.01513
|
53.03392
|
60.41315
|
|
Florida
|
35.30617
|
40.37709
|
43.16822
|
|
Georgia
|
43.79598
|
51.43289
|
50.77871
|
|
Idaho
|
48.70693
|
49.58861
|
50.15005
|
|
Illinois
|
45.16192
|
48.55421
|
49.66901
|
|
Indiana
|
47.11146
|
50.78120
|
55.29994
|
|
Iowa
|
42.63718
|
44.03011
|
46.15564
|
|
Kansas
|
46.96661
|
50.54685
|
51.13746
|
|
Kentucky
|
47.24051
|
53.74131
|
55.45112
|
|
Louisiana
|
41.03008
|
44.19713
|
47.98644
|
|
Maine
|
37.56986
|
36.60361
|
31.46667
|
|
Maryland
|
49.48064
|
54.99948
|
65.20879
|
|
Massachusetts
|
42.94566
|
43.81331
|
36.28033
|
|
Michigan
|
45.25629
|
46.73443
|
62.96774
|
|
Minnesota
|
39.58538
|
38.92466
|
36.36842
|
|
Mississippi
|
43.05516
|
47.84612
|
50.40513
|
|
Missouri
|
47.68970
|
50.17968
|
50.81957
|
|
Montana
|
41.70783
|
41.25117
|
40.73399
|
|
Nebraska
|
40.51442
|
42.74961
|
46.31429
|
|
Nevada
|
54.89204
|
55.46025
|
54.95200
|
|
New Hampshire
|
39.86579
|
41.13775
|
35.32151
|
|
New Jersey
|
47.55404
|
50.53025
|
NA
|
|
New Mexico
|
51.72029
|
53.07529
|
55.25826
|
|
New York
|
43.43968
|
44.25377
|
40.12371
|
|
North Carolina
|
46.86940
|
52.45901
|
57.43384
|
|
North Dakota
|
41.10567
|
40.62825
|
43.27758
|
|
Ohio
|
48.60242
|
51.45272
|
58.21460
|
|
Oklahoma
|
48.04162
|
50.97479
|
54.24561
|
|
Oregon
|
37.05018
|
38.71256
|
42.78911
|
|
Pennsylvania
|
47.12356
|
50.41887
|
64.08497
|
|
Rhode Island
|
45.45691
|
45.88196
|
37.37931
|
|
South Carolina
|
42.74880
|
48.57230
|
52.00253
|
|
South Dakota
|
43.43938
|
46.42235
|
47.10025
|
|
Tennessee
|
48.87133
|
54.64394
|
57.38529
|
|
Texas
|
42.26853
|
44.99545
|
43.68338
|
|
Utah
|
54.14799
|
54.80548
|
55.66123
|
|
Vermont
|
39.57328
|
37.61383
|
NA
|
|
Virginia
|
46.66780
|
53.88891
|
58.74061
|
|
Washington
|
35.62859
|
36.71616
|
35.93891
|
|
West Virginia
|
47.01188
|
55.14211
|
48.26667
|
|
Wisconsin
|
44.06976
|
44.50096
|
47.99896
|
|
Wyoming
|
49.22306
|
50.78431
|
50.96727
|
SD
sd.Ozone<-w.prcn_Ozone[,c(1,11,12,13)]
kableExtra::kable(sd.Ozone,caption ="SD Ozone Max",align=c("l","c","c","c"))
SD Ozone Max
|
State
|
sd_NoDrought
|
sd_ModerateDrought
|
sd_SevereDrought
|
|
Alabama
|
13.812811
|
14.123295
|
15.864104
|
|
Arizona
|
10.042445
|
10.374485
|
10.680463
|
|
Arkansas
|
12.891622
|
14.216882
|
13.098237
|
|
California
|
17.442708
|
17.561942
|
16.341094
|
|
Colorado
|
10.210428
|
10.624370
|
10.225439
|
|
Connecticut
|
15.730779
|
16.469878
|
NA
|
|
Delaware
|
14.649358
|
15.815508
|
19.734278
|
|
Florida
|
12.802361
|
14.512501
|
15.755001
|
|
Georgia
|
14.298110
|
15.371100
|
17.281772
|
|
Idaho
|
9.826235
|
9.854919
|
8.912808
|
|
Illinois
|
13.118400
|
14.733280
|
15.349885
|
|
Indiana
|
13.391127
|
15.341447
|
12.629532
|
|
Iowa
|
10.946896
|
11.945493
|
12.962649
|
|
Kansas
|
11.964664
|
12.701989
|
13.288573
|
|
Kentucky
|
12.821314
|
14.760966
|
14.198233
|
|
Louisiana
|
15.063405
|
15.356772
|
18.903093
|
|
Maine
|
12.489264
|
13.426049
|
6.840395
|
|
Maryland
|
14.802278
|
16.302838
|
23.416416
|
|
Massachusetts
|
14.358632
|
15.542038
|
9.551730
|
|
Michigan
|
14.337817
|
15.706434
|
14.211460
|
|
Minnesota
|
11.535858
|
11.868050
|
10.075397
|
|
Mississippi
|
13.539346
|
14.369723
|
16.964685
|
|
Missouri
|
12.904260
|
14.001172
|
15.327704
|
|
Montana
|
8.441482
|
9.225141
|
11.607990
|
|
Nebraska
|
11.155151
|
12.008142
|
11.906395
|
|
Nevada
|
9.695952
|
9.727403
|
10.090220
|
|
New Hampshire
|
12.721943
|
14.081586
|
9.314194
|
|
New Jersey
|
15.961457
|
19.143171
|
NA
|
|
New Mexico
|
9.311110
|
9.610710
|
9.284609
|
|
New York
|
14.530700
|
15.240211
|
9.820026
|
|
North Carolina
|
13.417912
|
14.503131
|
16.890719
|
|
North Dakota
|
9.668363
|
10.725673
|
10.118474
|
|
Ohio
|
13.965383
|
15.509048
|
16.905514
|
|
Oklahoma
|
12.323794
|
13.332705
|
12.938421
|
|
Oregon
|
11.619445
|
11.759740
|
11.068149
|
|
Pennsylvania
|
14.347366
|
17.032905
|
23.204170
|
|
Rhode Island
|
14.733413
|
16.346632
|
9.626651
|
|
South Carolina
|
13.138492
|
14.369277
|
16.162226
|
|
South Dakota
|
9.908537
|
11.209578
|
10.723413
|
|
Tennessee
|
13.671198
|
14.925540
|
14.163520
|
|
Texas
|
17.106426
|
16.901840
|
16.453803
|
|
Utah
|
9.280448
|
9.415432
|
9.329543
|
|
Vermont
|
12.194217
|
11.114618
|
NA
|
|
Virginia
|
13.627657
|
14.854102
|
19.348231
|
|
Washington
|
11.866675
|
12.562995
|
11.256274
|
|
West Virginia
|
12.946362
|
15.006451
|
13.836317
|
|
Wisconsin
|
13.243128
|
14.820949
|
16.177212
|
|
Wyoming
|
7.534782
|
8.526534
|
7.799230
|
Percentage
pcrn.Ozone<-w.prcn_Ozone[,c(1,8,9,10)]
kableExtra::kable(pcrn.Ozone,caption ="Percentage Ozone Max",align=c("l","c","c","c"))
Percentage Ozone Max
|
State
|
percentage_NoDrought
|
percentage_ModerateDrought
|
percentage_SevereDrought
|
|
Alabama
|
69.69565
|
19.989189
|
10.3151604
|
|
Arizona
|
23.36582
|
39.545221
|
37.0889611
|
|
Arkansas
|
74.73498
|
20.446949
|
4.8180690
|
|
California
|
42.85754
|
37.136815
|
20.0056421
|
|
Colorado
|
63.70315
|
24.645649
|
11.6512055
|
|
Connecticut
|
87.64222
|
12.357780
|
NA
|
|
Delaware
|
84.60771
|
14.212101
|
1.1801862
|
|
Florida
|
77.20001
|
15.807737
|
6.9922551
|
|
Georgia
|
58.50764
|
24.722379
|
16.7699804
|
|
Idaho
|
44.00574
|
46.500956
|
9.4933078
|
|
Illinois
|
88.25536
|
9.542403
|
2.2022333
|
|
Indiana
|
89.87516
|
8.659612
|
1.4652290
|
|
Iowa
|
86.91147
|
11.082711
|
2.0058145
|
|
Kansas
|
71.51125
|
19.131833
|
9.3569132
|
|
Kentucky
|
86.96438
|
11.455509
|
1.5801096
|
|
Louisiana
|
74.26578
|
16.284433
|
9.4497829
|
|
Maine
|
87.43318
|
12.369643
|
0.1971782
|
|
Maryland
|
87.72182
|
11.381024
|
0.8971528
|
|
Massachusetts
|
91.72409
|
6.655972
|
1.6199363
|
|
Michigan
|
90.61016
|
9.351097
|
0.0387442
|
|
Minnesota
|
81.53764
|
16.621451
|
1.8409069
|
|
Mississippi
|
77.75466
|
16.620238
|
5.6251049
|
|
Missouri
|
81.40780
|
15.266966
|
3.3252331
|
|
Montana
|
64.10126
|
29.023791
|
6.8749471
|
|
Nebraska
|
76.74578
|
19.781729
|
3.4724872
|
|
Nevada
|
36.76372
|
32.484921
|
30.7513590
|
|
New Hampshire
|
90.25970
|
8.543623
|
1.1966731
|
|
New Jersey
|
86.75046
|
13.249541
|
NA
|
|
New Mexico
|
40.72461
|
32.916540
|
26.3588479
|
|
New York
|
90.20186
|
9.485022
|
0.3131187
|
|
North Carolina
|
73.73568
|
18.224257
|
8.0400652
|
|
North Dakota
|
75.34004
|
19.759869
|
4.9000930
|
|
Ohio
|
89.71763
|
9.966138
|
0.3162299
|
|
Oklahoma
|
69.48272
|
20.618445
|
9.8988394
|
|
Oregon
|
69.18966
|
26.425106
|
4.3852335
|
|
Pennsylvania
|
92.96905
|
6.924500
|
0.1064451
|
|
Rhode Island
|
92.51954
|
7.131690
|
0.3487673
|
|
South Carolina
|
58.41572
|
28.924633
|
12.6596484
|
|
South Dakota
|
65.69184
|
24.842498
|
9.4656607
|
|
Tennessee
|
77.15885
|
17.331727
|
5.5094233
|
|
Texas
|
59.35295
|
28.184487
|
12.4625651
|
|
Utah
|
40.80799
|
44.608261
|
14.5837494
|
|
Vermont
|
90.08858
|
9.911416
|
NA
|
|
Virginia
|
86.26690
|
12.470003
|
1.2630944
|
|
Washington
|
75.95480
|
22.261183
|
1.7840220
|
|
West Virginia
|
95.27556
|
4.604022
|
0.1204191
|
|
Wisconsin
|
87.84632
|
11.127301
|
1.0263773
|
|
Wyoming
|
57.86214
|
28.303226
|
13.8346306
|