data-raw/pa-counties.R
In jmbarbone/covid19: What the Package Does (One Line, Title Case)
# ---------------------------------------------------------------------------------------------
# County level data for Pennsylvania
# ---------------------------------------------------------------------------------------------
options(tidyverse.quiet = TRUE)
library(tidyverse)
library(janitor)
read_text_table <- function(text, sep = "") {
text %>%
textConnection() %>%
read.table(sep = sep) %>%
mutate(V1 = str_trim(V1),
V1 = recode(V1, "Mckean" = "McKean")) %>%
pivot_wider(names_from = V1,
values_from = V2) %>%
mutate_all(as.double) ## will convert everything back to integers
}
# Total count as per: https://www.health.pa.gov/topics/disease/coronavirus/Pages/Cases.aspx
# Archived here: https://www.health.pa.gov/topics/disease/coronavirus/Pages/Archives.aspx
pa_county_confirmed <- list(
"2020-03-06" = tibble(
Delaware = 1,
Wayne = 1,
),
"2020-03-07" = tibble(
Delaware= 1,
Montgomery = 2,
Wayne = 1,
),
"2020-03-08" = tibble(
Delaware = 1,
Montgomery = 4,
Wayne = 1,
),
"2020-03-09" = tibble(
Delaware = 1,
Monroe = 1,
Montgomery = 7,
Wayne = 1,
),
"2020-03-10" = tibble(
Delaware = 1,
Monroe = 1,
Montgomery = 8,
Philadelphia = 1,
Wayne = 1,
),
"2020-03-11" = tibble(
Bucks = 2,
Delaware = 1,
Monroe = 2,
Montgomery = 9,
Philadelphia = 1,
Wayne = 1,
),
"2020-03-12" = tibble(
Bucks = 2,
Delaware = 1,
Monroe = 2,
Montgomery = 13,
Northampton = 1,
Philadelphia = 1,
Pike = 1,
Wayne = 1,
),
"2020-03-13" = tibble(
Bucks = 3,
Chester = 1,
Cumberland = 3,
Delaware = 6,
Monroe = 3,
Montgomery = 18,
Northampton = 1,
Philadelphia = 3,
Pike = 1,
Washington = 1,
Wayne = 1,
),
## Archive lists as 15 March
"2020-03-14" = tibble(
Allegheny = 2,
Bucks = 3,
Chester = 2,
Cumberland = 3,
Delaware = 6,
Monroe = 3,
Montgomery = 20,
Northampton = 1,
Philadelphia = 4,
Pike = 1,
Washington = 1,
Wayne = 1,
),
"2020-03-15" = tibble(
Allegheny = 3,
Bucks = 4,
Chester = 2,
Cumberland = 5,
Delaware = 7,
Lehigh = 1,
Luzerne = 1,
Monroe = 6,
Montgomery = 24,
Northampton = 1,
Philadelphia = 6,
Pike = 1,
Washington = 1,
Wayne = 1,
),
"2020-03-16" = read_text_table(
"Allegheny 5
Bucks 5
Chester 2
Cumberland 5
Delaware 7
Lehigh 1
Luzerne 1
Monroe 8
Montgomery 30
Northampton 1
Philadelphia 8
Pike 1
Wayne 1
Washington 1"
),
"2020-03-17" = read_text_table(
"Allegheny 7
Beaver 1
Bucks 8
Chester 4
Cumberland 10
Delaware 9
Lehigh 1
Luzerne 1
Monroe 8
Montgomery 32
Northampton 1
Philadelphia 10
Pike 1
Washington 2
Wayne 1"
),
"2020-03-18" = read_text_table( ## deaths removes
'Allegheny 11
Beaver 2
Berks 1
Bucks 9
Chester 9
Cumberland 10
Delaware 14
Lackawanna 1
Lehigh 1
Luzerne 1
Monroe 7
Montgomery 42
Northampton 1
Philadelphia 17
Pike 2
Washington 2
Wayne 1
York 2'
),
"2020-03-19" = read_text_table(
"Adams 1
Allegheny 16
Beaver 2
Berks 1
Bucks 12
Chester 10
Cumberland 11
Delaware 14
Lackawanna 2
Lancaster 2
Lebanon 1
Lehigh 1
Luzerne 1
Monroe 15
Montgomery 47
Northampton 5
Philadelphia 33
Pike 3
Washington 3
Wayne 1
Westmoreland 2
York 2"
),
"2020-03-20" = read_text_table(
"Adams 4
Allegheny 28
Beaver 3
Berks 5
Bucks 16
Centre 1
Chester 17
Cumberland 11
Delaware 23
Erie 1
Franklin 1
Lackawanna 4
Lancaster 2
Lebanon 1
Lehigh 2
Luzerne 2
Monroe 19
Montgomery 59
Northampton 10
Philadelphia 42
Pike 2
Potter 1
Washington 3
Wayne 1
Westmoreland 4
York 6"
),
"2020-03-21" = read_text_table(
'Adams 4
Allegheny 31
Beaver 3
Berks 7
Bucks 24
Butler 1
Centre 1
Chester 19
Cumberland 11
Delaware 33
Erie 1
Franklin 1
Lackawanna 5
Lancaster 4
Lebanon 2
Lehigh 13
Luzerne 6
Monroe 25
Montgomery 71
Montour 1
Northampton 17
Philadelphia 69
Pike 2
Potter 1
Washington 5
Wayne 1
Westmoreland 4
York 9'
),
"2020-03-22" = read_text_table(
'Adams 5
Allegheny 40
Beaver 3
Berks 13
Bucks 32
Butler 1
Centre 1
Chester 23
Columbia 1
Cumberland 11
Dauphin 1
Delaware 43
Erie 2
Fayette 1
Franklin 1
Lackawanna 6
Lancaster 6
Lebanon 3
Lehigh 19
Luzerne 7
Mercer 1
Monroe 31
Montgomery 87
Montour 1
Northampton 21
Philadelphia 91
Pike 3
Potter 1
Schuylkill 1
Washington 7
Wayne 2
Westmoreland 4
York 10'
),
"2020-03-23" = read_text_table(
'Adams 6
Allegheny 48
Beaver 3
Berks 14
Bucks 43
Butler 5
Cambria 1
Centre 3
Chester 40
Columbia 1
Cumberland 12
Dauphin 1
Delaware 54
Erie 3
Fayette 1
Franklin 1
Lackawanna 7
Lancaster 5
Lebanon 3
Lehigh 25
Luzerne 10
Mercer 1
Monroe 43
Montgomery 129
Montour 1
Northampton 23
Philadelphia 128
Pike 3
Potter 1
Schuylkill 3
Washington 7
Wayne 3
Westmoreland 6
York 10'
),
"2020-03-24" = read_text_table(
'Adams 6
Allegheny 58
Armstrong 1
Beaver 3
Berks 16
Bradford 1
Bucks 65
Butler 6
Cambria 1
Carbon 1
Centre 7
Chester 40
Clearfield 1
Columbia 1
Cumberland 13
Dauphin 4
Delaware 84
Erie 4
Fayette 2
Franklin 3
Juniata 1
Lackawanna 15
Lancaster 10
Lebanon 3
Lehigh 27
Luzerne 21
Mercer 2
Monroe 45
Montgomery 144
Montour 3
Northampton 33
Philadelphia 177
Pike 4
Potter 1
Schuylkill 5
Somerset 1
Washington 9
Wayne 4
Westmoreland 11
York 18'
),
"2020-03-25" = read_text_table(
'Adams 6
Allegheny 88
Armstrong 1
Beaver 7
Berks 20
Bradford 1
Bucks 86
Butler 12
Cambria 1
Carbon 1
Centre 8
Chester 54
Clearfield 2
Columbia 1
Cumberland 13
Dauphin 10
Delaware 101
Erie 4
Fayette 4
Franklin 5
Greene 2
Juniata 1
Lackawanna 18
Lancaster 12
Lawrence 1
Lebanon 3
Lehigh 38
Luzerne 27
Lycoming 1
Mercer 2
Monroe 51
Montgomery 172
Montour 4
Northampton 44
Philadelphia 257
Pike 9
Potter 1
Schuylkill 6
Somerset 2
Warren 1
Washington 10
Wayne 4
Westmoreland 16
York 20'
),
"2020-03-26" = read_text_table(
'Adams 7
Allegheny 133
Armstrong 1
Beaver 13
Berks 36
Blair 1
Bradford 2
Bucks 107
Butler 19
Cambria 1
Carbon 2
Centre 9
Chester 84
Clearfield 2
Columbia 3
Crawford 1
Cumberland 15
Dauphin 13
Delaware 156
Erie 4
Fayette 8
Franklin 5
Greene 3
Indiana 1
Juniata 1
Lackawanna 28
Lancaster 21
Lawrence 1
Lebanon 4
Lehigh 63
Luzerne 36
Lycoming 1
Mercer 3
Monroe 67
Montgomery 282
Montour 4
Northampton 56
Philadelphia 402
Pike 15
Potter 1
Schuylkill 9
Somerset 2
Susquehanna 1
Warren 1
Washington 12
Wayne 6
Westmoreland 24
York 21', sep = "\t"
),
"2020-03-27" = read_text_table(
'Adams 8
Allegheny 158
Armstrong 1
Beaver 14
Berks 65
Blair 1
Bradford 2
Bucks 124
Butler 26
Cambria 1
Carbon 2
Centre 11
Chester 107
Clearfield 2
Columbia 3
Crawford 1
Cumberland 16
Dauphin 18
Delaware 185
Erie 7
Fayette 9
Franklin 5
Greene 4
Indiana 2
Juniata 1
Lackawanna 35
Lancaster 33
Lawrence 4
Lebanon 12
Lehigh 93
Luzerne 55
Lycoming 2
Mercer 4
Monroe 98
Montgomery 374
Montour 4
Northampton 79
Northumberland 1
Philadelphia 530
Pike 23
Potter 1
Schuylkill 13
Somerset 2
Susquehanna 1
Union 1
Warren 1
Washington 14
Wayne 6
Westmoreland 30
York 29', sep = "\t"
),
"2020-03-28" = read_text_table(
'Adams 8
Allegheny 219
Armstrong 2
Beaver 22
Berks 65
Blair 2
Bradford 3
Bucks 152
Butler 41
Cambria 1
Cameron 1
Carbon 3
Centre 15
Chester 116
Clarion 1
Clearfield 2
Columbia 4
Crawford 2
Cumberland 22
Dauphin 23
Delaware 226
Erie 7
Fayette 10
Franklin 7
Greene 6
Huntingdon 1
Indiana 2
Juniata 1
Lackawanna 51
Lancaster 45
Lawrence 8
Lebanon 15
Lehigh 109
Luzerne 65
Lycoming 2
Mckean 1
Mercer 6
Monroe 106
Montgomery 411
Montour 5
Northampton 94
Northumberland 1
Perry 1
Philadelphia 709
Pike 27
Potter 2
Schuylkill 16
Snyder 1
Somerset 2
Susquehanna 1
Tioga 1
Warren 1
Washington 23
Wayne 6
Westmoreland 41
York 37', sep = "\t"
),
"2020-03-29" = read_text_table(
'Adams 8
Allegheny 265
Armstrong 3
Beaver 28
Berks 68
Blair 3
Bradford 3
Bucks 203
Butler 47
Cambria 1
Cameron 1
Carbon 9
Centre 22
Chester 137
Clarion 1
Clearfield 2
Columbia 6
Crawford 3
Cumberland 22
Dauphin 35
Delaware 276
Erie 7
Fayette 10
Franklin 11
Greene 6
Huntingdon 1
Indiana 2
Juniata 1
Lackawanna 56
Lancaster 67
Lawrence 8
Lebanon 19
Lehigh 151
Luzerne 94
Lycoming 3
Mckean 1
Mercer 7
Mifflin 2
Monroe 135
Montgomery 488
Montour 4
Northampton 126
Northumberland 1
Perry 1
Philadelphia 865
Pike 33
Potter 2
Schuylkill 21
Snyder 2
Somerset 2
Susquehanna 1
Tioga 1
Venango 1
Warren 1
Washington 24
Wayne 7
Westmoreland 47
York 43', sep = "\t"
),
"2020-03-30" = read_text_table(
'Adams 8
Allegheny 290
Armstrong 3
Beaver 44
Berks 82
Blair 6
Bradford 3
Bucks 246
Butler 49
Cambria 2
Cameron 1
Carbon 13
Centre 24
Chester 146
Clarion 1
Clearfield 4
Columbia 6
Crawford 4
Cumberland 24
Dauphin 36
Delaware 303
Erie 13
Fayette 11
Franklin 12
Greene 7
Huntingdon 1
Indiana 2
Juniata 3
Lackawanna 62
Lancaster 97
Lawrence 10
Lebanon 27
Lehigh 231
Luzerne 150
Lycoming 4
Mckean 1
Mercer 7
Mifflin 1
Monroe 182
Montgomery 540
Montour 10
Northampton 184
Northumberland 1
Perry 1
Philadelphia 1007
Pike 39
Potter 2
Schuylkill 30
Snyder 2
Somerset 2
Susquehanna 1
Tioga 1
Union 4
Venango 1
Warren 1
Washington 26
Wayne 10
Westmoreland 55
York 54', sep = "\t"
),
"2020-03-31" = read_text_table(
'Adams 9
Allegheny 325
Armstrong 5
Beaver 52
Bedford 2
Berks 110
Blair 4
Bradford 7
Bucks 286
Butler 60
Cambria 2
Cameron 1
Carbon 17
Centre 26
Chester 159
Clarion 3
Clearfield 4
Columbia 7
Crawford 4
Cumberland 36
Dauphin 45
Delaware 338
Erie 14
Fayette 14
Franklin 19
Greene 9
Huntingdon 1
Indiana 6
Juniata 3
Lackawanna 78
Lancaster 123
Lawrence 13
Lebanon 28
Lehigh 272
Luzerne 212
Lycoming 6
Mckean 1
Mercer 8
Mifflin 2
Monroe 236
Montgomery 570
Montour 9
Northampton 245
Northumberland 1
Perry 1
Philadelphia 1197
Pike 48
Potter 2
Schuylkill 38
Snyder 2
Somerset 2
Susquehanna 1
Tioga 2
Union 4
Venango 3
Warren 1
Washington 33
Wayne 10
Westmoreland 61
York 66', sep = "\t"
),
"2020-04-01" = read_text_table(
'Adams 12
Allegheny 356
Armstrong 5
Beaver 54
Bedford 3
Berks 151
Blair 4
Bradford 8
Bucks 312
Butler 64
Cambria 3
Cameron 1
Carbon 23
Centre 27
Chester 183
Clarion 4
Clearfield 4
Columbia 8
Crawford 5
Cumberland 38
Dauphin 59
Delaware 390
Erie 15
Fayette 14
Franklin 21
Greene 9
Huntingdon 1
Indiana 6
Juniata 2
Lackawanna 85
Lancaster 157
Lawrence 13
Lebanon 36
Lehigh 374
Luzerne 282
Lycoming 7
Mckean 1
Mercer 8
Mifflin 1
Monroe 278
Montgomery 649
Montour 13
Northampton 312
Northumberland 6
Perry 1
Philadelphia 1478
Pike 57
Potter 2
Schuylkill 47
Snyder 3
Somerset 3
Susquehanna 2
Tioga 2
Union 2
Venango 3
Warren 1
Washington 35
Wayne 14
Westmoreland 72
York 79', sep = "\t"
),
"2020-04-02" = read_text_table(
'Adams 18
Allegheny 419
Armstrong 7
Beaver 55
Bedford 3
Berks 168
Blair 4
Bradford 8
Bucks 370
Butler 69
Cambria 4
Cameron 1
Carbon 26
Centre 28
Chester 210
Clarion 4
Clearfield 4
Columbia 11
Crawford 5
Cumberland 41
Dauphin 67
Delaware 470
Erie 16
Fayette 15
Forest 1
Franklin 23
Greene 11
Huntingdon 2
Indiana 6
Juniata 2
Lackawanna 108
Lancaster 203
Lawrence 16
Lebanon 45
Lehigh 479
Luzerne 384
Lycoming 7
Mckean 1
Mercer 9
Mifflin 1
Monroe 321
Montgomery 735
Montour 15
Northampton 378
Northumberland 8
Perry 3
Philadelphia 1852
Pike 68
Potter 2
Schuylkill 54
Snyder 3
Somerset 3
Susquehanna 3
Tioga 2
Union 2
Venango 3
Warren 1
Washington 38
Wayne 17
Westmoreland 84
Wyoming 1
York 102', sep = "\t"
),
"2020-04-03" = read_text_table(
'Adams 19
Allegheny 476
Armstrong 11
Beaver 65
Bedford 3
Berks 201
Blair 4
Bradford 9
Bucks 446
Butler 75
Cambria 4
Cameron 1
Carbon 34
Centre 32
Chester 226
Clarion 4
Clearfield 5
Clinton 1
Columbia 15
Crawford 5
Cumberland 45
Dauphin 79
Delaware 542
Erie 17
Fayette 20
Forest 1
Franklin 26
Greene 11
Huntingdon 3
Indiana 7
Juniata 5
Lackawanna 119
Lancaster 232
Lawrence 19
Lebanon 54
Lehigh 584
Luzerne 484
Lycoming 8
Mckean 1
Mercer 10
Mifflin 2
Monroe 397
Montgomery 875
Montour 16
Northampton 466
Northumberland 8
Perry 4
Philadelphia 2284
Pike 83
Potter 2
Schuylkill 63
Snyder 4
Somerset 3
Susquehanna 4
Tioga 3
Union 3
Venango 3
Warren 1
Washington 40
Wayne 23
Westmoreland 110
Wyoming 2
York 121', sep = "\t"
),
"2020-04-04" = read_text_table(
'Adams 21
Allegheny 552
Armstrong 12
Beaver 69
Bedford 4
Berks 235
Blair 5
Bradford 10
Bucks 488
Butler 84
Cambria 6
Cameron 1
Carbon 46
Centre 39
Chester 250
Clarion 4
Clearfield 7
Clinton 1
Columbia 20
Crawford 5
Cumberland 54
Dauphin 99
Delaware 616
Erie 19
Fayette 23
Forest 2
Franklin 27
Greene 12
Huntingdon 4
Indiana 9
Juniata 7
Lackawanna 146
Lancaster 291
Lawrence 22
Lebanon 87
Lehigh 804
Luzerne 648
Lycoming 10
McKean 1
Mercer 14
Mifflin 4
Monroe 484
Montgomery 982
Montour 19
Northampton 588
Northumberland 9
Perry 5
Philadelphia 2610
Pike 97
Potter 3
Schuylkill 77
Snyder 6
Somerset 3
Sullivan 1
Susquehanna 5
Tioga 3
Union 5
Venango 3
Warren 1
Washington 46
Wayne 28
Westmoreland 135
Wyoming 5
York 144', sep = "\t"
),
"2020-04-05" = read_text_table(
'Adams 22
Allegheny 605
Armstrong 12
Beaver 84
Bedford 4
Berks 276
Blair 5
Bradford 10
Bucks 555
Butler 87
Cambria 7
Cameron 1
Carbon 50
Centre 43
Chester 269
Clarion 5
Clearfield 7
Clinton 1
Columbia 22
Crawford 7
Cumberland 58
Dauphin 118
Delaware 708
Erie 19
Fayette 27
Forest 3
Franklin 30
Fulton 1
Greene 12
Huntingdon 4
Indiana 13
Juniata 7
Lackawanna 172
Lancaster 371
Lawrence 23
Lebanon 106
Lehigh 877
Luzerne 741
Lycoming 9
McKean 1
Mercer 18
Mifflin 9
Monroe 528
Montgomery 1111
Montour 37
Northampton 636
Northumberland 14
Perry 5
Philadelphia 3135
Pike 114
Potter 3
Schuylkill 90
Snyder 8
Somerset 4
Sullivan 1
Susquehanna 6
Tioga 3
Union 6
Venango 3
Warren 1
Washington 50
Wayne 33
Westmoreland 147
Wyoming 5
York 171', sep = "\t"
),
"2020-04-06" = read_text_table(
'Adams 25
Allegheny 642
Armstrong 13
Beaver 96
Bedford 4
Berks 326
Blair 5
Bradford 10
Bucks 619
Butler 91
Cambria 7
Cameron 1
Carbon 59
Centre 44
Chester 307
Clarion 6
Clearfield 7
Clinton 3
Columbia 26
Crawford 9
Cumberland 68
Dauphin 132
Delaware 822
Erie 20
Fayette 29
Forest 4
Franklin 32
Fulton 1
Greene 12
Huntingdon 4
Indiana 17
Juniata 11
Lackawanna 190
Lancaster 408
Lawrence 24
Lebanon 124
Lehigh 1006
Luzerne 849
Lycoming 10
McKean 1
Mercer 18
Mifflin 5
Monroe 572
Montgomery 1230
Montour 33
Northampton 716
Northumberland 15
Perry 5
Philadelphia 3611
Pike 125
Potter 3
Schuylkill 103
Snyder 8
Somerset 6
Sullivan 1
Susquehanna 6
Tioga 8
Union 6
Venango 5
Warren 1
Washington 53
Wayne 35
Westmoreland 157
Wyoming 5
York 189', sep = "\t"
),
"2020-04-07" = read_text_table(
'Adams 28
Allegheny 689
Armstrong 18
Beaver 116
Bedford 4
Berks 369
Blair 6
Bradford 14
Bucks 690
Butler 107
Cambria 7
Cameron 1
Carbon 67
Centre 55
Chester 335
Clarion 9
Clearfield 7
Clinton 3
Columbia 42
Crawford 8
Cumberland 77
Dauphin 155
Delaware 898
Elk 2
Erie 28
Fayette 32
Forest 5
Franklin 39
Fulton 1
Greene 15
Huntingdon 5
Indiana 21
Jefferson 1
Juniata 14
Lackawanna 235
Lancaster 490
Lawrence 29
Lebanon 145
Lehigh 1146
Luzerne 982
Lycoming 12
McKean 1
Mercer 26
Mifflin 6
Monroe 610
Montgomery 1359
Montour 27
Northampton 774
Northumberland 22
Perry 9
Philadelphia 4012
Pike 136
Potter 3
Schuylkill 119
Snyder 9
Somerset 7
Sullivan 1
Susquehanna 11
Tioga 10
Union 7
Venango 5
Warren 1
Washington 57
Wayne 40
Westmoreland 177
Wyoming 5
York 218', sep = "\t"
),
"2020-04-08" = read_text_table(
'Adams 33
Allegheny 720
Armstrong 19
Beaver 128
Bedford 4
Berks 416
Blair 6
Bradford 15
Bucks 756
Butler 113
Cambria 9
Cameron 1
Carbon 76
Centre 57
Chester 373
Clarion 8
Clearfield 7
Clinton 3
Columbia 54
Crawford 8
Cumberland 84
Dauphin 168
Delaware 1034
Elk 2
Erie 29
Fayette 35
Forest 5
Franklin 43
Fulton 1
Greene 17
Huntingdon 6
Indiana 21
Jefferson 1
Juniata 18
Lackawanna 266
Lancaster 561
Lawrence 32
Lebanon 169
Lehigh 1319
Luzerne 1134
Lycoming 15
McKean 1
Mercer 27
Mifflin 10
Monroe 671
Montgomery 1521
Montour 26
Northampton 857
Northumberland 22
Perry 13
Philadelphia 4456
Pike 148
Potter 3
Schuylkill 136
Snyder 9
Somerset 7
Sullivan 1
Susquehanna 14
Tioga 10
Union 8
Venango 5
Warren 1
Washington 59
Wayne 47
Westmoreland 183
Wyoming 5
York 233', sep = "\t"
),
"2020-04-09" = read_text_table(
'Adams 38
Allegheny 759
Armstrong 20
Beaver 129
Bedford 4
Berks 616
Blair 6
Bradford 15
Bucks 871
Butler 113
Cambria 10
Cameron 1
Carbon 83
Centre 59
Chester 425
Clarion 8
Clearfield 7
Clinton 4
Columbia 65
Crawford 13
Cumberland 88
Dauphin 180
Delaware 1222
Elk 2
Erie 32
Fayette 45
Forest 5
Franklin 52
Fulton 1
Greene 21
Huntingdon 8
Indiana 21
Jefferson 1
Juniata 23
Lackawanna 312
Lancaster 596
Lawrence 37
Lebanon 187
Lehigh 1466
Luzerne 1241
Lycoming 17
McKean 1
Mercer 30
Mifflin 10
Monroe 716
Montgomery 1693
Montour 25
Northampton 949
Northumberland 24
Perry 15
Philadelphia 5029
Pike 163
Potter 3
Schuylkill 149
Snyder 9
Somerset 7
Sullivan 1
Susquehanna 16
Tioga 10
Union 11
Venango 5
Warren 1
Washington 63
Wayne 49
Westmoreland 190
Wyoming 6
York 250', sep = "\t"
),
"2020-04-10" = read_text_table(
'Adams 43
Allegheny 788
Armstrong 22
Beaver 139
Bedford 3
Berks 720
Blair 9
Bradford 16
Bucks 958
Butler 123
Cambria 11
Cameron 1
Carbon 93
Centre 61
Chester 485
Clarion 10
Clearfield 8
Clinton 6
Columbia 81
Crawford 13
Cumberland 96
Dauphin 199
Delaware 1377
Elk 2
Erie 36
Fayette 49
Forest 5
Franklin 57
Fulton 1
Greene 21
Huntingdon 8
Indiana 26
Jefferson 1
Juniata 30
Lackawanna 346
Lancaster 648
Lawrence 45
Lebanon 218
Lehigh 1562
Luzerne 1325
Lycoming 18
McKean 1
Mercer 36
Mifflin 11
Monroe 752
Montgomery 1889
Montour 29
Northampton 994
Northumberland 29
Perry 16
Philadelphia 5521
Pike 190
Potter 3
Schuylkill 164
Snyder 12
Somerset 10
Sullivan 1
Susquehanna 22
Tioga 11
Union 12
Venango 5
Warren 1
Washington 66
Wayne 53
Westmoreland 202
Wyoming 6
York 283', sep = "\t"
),
"2020-04-11" = read_text_table(
'Adams 44
Allegheny 836
Armstrong 26
Beaver 143
Bedford 5
Berks 930
Blair 10
Bradford 18
Bucks 1051
Butler 128
Cambria 13
Cameron 1
Carbon 98
Centre 69
Chester 532
Clarion 15
Clearfield 9
Clinton 7
Columbia 99
Crawford 15
Cumberland 105
Dauphin 213
Delaware 1510
Elk 2
Erie 39
Fayette 50
Forest 5
Franklin 59
Fulton 1
Greene 23
Huntingdon 10
Indiana 40
Jefferson 1
Juniata 38
Lackawanna 392
Lancaster 698
Lawrence 46
Lebanon 232
Lehigh 1620
Luzerne 1372
Lycoming 20
McKean 2
Mercer 38
Mifflin 10
Monroe 774
Montgomery 2053
Montour 29
Northampton 1039
Northumberland 31
Perry 16
Philadelphia 6022
Pike 208
Potter 4
Schuylkill 179
Snyder 16
Somerset 10
Sullivan 1
Susquehanna 23
Tioga 12
Union 14
Venango 6
Warren 1
Washington 66
Wayne 57
Westmoreland 218
Wyoming 8
York 293', sep = "\t"
),
"2020-04-12" = read_text_table(
'Adams 48
Allegheny 857
Armstrong 27
Beaver 145
Bedford 5
Berks 1035
Blair 10
Bradford 18
Bucks 1107
Butler 133
Cambria 13
Cameron 1
Carbon 102
Centre 70
Chester 562
Clarion 15
Clearfield 9
Clinton 8
Columbia 106
Crawford 15
Cumberland 110
Dauphin 229
Delaware 1594
Elk 2
Erie 39
Fayette 54
Forest 5
Franklin 64
Fulton 1
Greene 23
Huntingdon 10
Indiana 40
Jefferson 2
Juniata 38
Lackawanna 427
Lancaster 772
Lawrence 49
Lebanon 270
Lehigh 1684
Luzerne 1411
Lycoming 23
McKean 2
Mercer 40
Mifflin 12
Monroe 795
Montgomery 2164
Montour 29
Northampton 1082
Northumberland 37
Perry 16
Philadelphia 6352
Pike 212
Potter 4
Schuylkill 188
Snyder 20
Somerset 12
Sullivan 1
Susquehanna 25
Tioga 13
Union 19
Venango 6
Warren 1
Washington 68
Wayne 63
Westmoreland 223
Wyoming 9
York 307', sep = "\t"
),
"2020-04-13" = read_text_table(
'Adams 56
Allegheny 876
Armstrong 28
Beaver 153
Bedford 5
Berks 1150
Blair 11
Bradford 19
Bucks 1177
Butler 143
Cambria 14
Cameron 1
Carbon 102
Centre 70
Chester 593
Clarion 16
Clearfield 9
Clinton 8
Columbia 113
Crawford 16
Cumberland 122
Dauphin 240
Delaware 1712
Elk 2
Erie 39
Fayette 57
Forest 5
Franklin 66
Fulton 1
Greene 23
Huntingdon 11
Indiana 43
Jefferson 2
Juniata 39
Lackawanna 459
Lancaster 828
Lawrence 51
Lebanon 284
Lehigh 1747
Luzerne 1446
Lycoming 28
McKean 3
Mercer 43
Mifflin 17
Monroe 816
Montgomery 2285
Montour 39
Northampton 1130
Northumberland 40
Perry 17
Philadelphia 6810
Pike 221
Potter 4
Schuylkill 192
Snyder 23
Somerset 13
Sullivan 1
Susquehanna 31
Tioga 14
Union 21
Venango 6
Warren 1
Washington 69
Wayne 67
Westmoreland 228
Wyoming 12
York 331', sep = "\t"
),
"2020-04-14" = read_text_table(
'Adams 63
Allegheny 893
Armstrong 28
Beaver 156
Bedford 5
Berks 1247
Blair 11
Bradford 19
Bucks 1222
Butler 143
Cambria 14
Cameron 1
Carbon 103
Centre 70
Chester 621
Clarion 16
Clearfield 9
Clinton 8
Columbia 125
Crawford 16
Cumberland 124
Dauphin 249
Delaware 1806
Elk 2
Erie 41
Fayette 58
Forest 5
Franklin 69
Fulton 2
Greene 23
Huntingdon 11
Indiana 43
Jefferson 2
Juniata 43
Lackawanna 501
Lancaster 865
Lawrence 51
Lebanon 328
Lehigh 1803
Luzerne 1523
Lycoming 29
McKean 4
Mercer 44
Mifflin 16
Monroe 847
Montgomery 2354
Montour 44
Northampton 1176
Northumberland 48
Perry 17
Philadelphia 7121
Pike 256
Potter 4
Schuylkill 200
Snyder 24
Somerset 13
Sullivan 1
Susquehanna 32
Tioga 13
Union 23
Venango 6
Warren 1
Washington 70
Wayne 70
Westmoreland 231
Wyoming 11
York 371', sep = "\t"
),
"2020-04-15" = read_text_table(
'Adams 64
Allegheny 904
Armstrong 29
Beaver 158
Bedford 9
Berks 1335
Blair 12
Bradford 19
Bucks 1300
Butler 150
Cambria 14
Cameron 1
Carbon 112
Centre 72
Chester 658
Clarion 16
Clearfield 9
Clinton 8
Columbia 131
Crawford 16
Cumberland 131
Dauphin 271
Delaware 1882
Elk 2
Erie 42
Fayette 58
Forest 5
Franklin 78
Fulton 2
Greene 23
Huntingdon 12
Indiana 43
Jefferson 2
Juniata 47
Lackawanna 527
Lancaster 914
Lawrence 55
Lebanon 349
Lehigh 1922
Luzerne 1567
Lycoming 30
McKean 4
Mercer 47
Mifflin 15
Monroe 872
Montgomery 2475
Montour 44
Northampton 1251
Northumberland 56
Perry 17
Philadelphia 7347
Pike 268
Potter 4
Schuylkill 212
Snyder 24
Somerset 14
Sullivan 1
Susquehanna 40
Tioga 13
Union 23
Venango 6
Warren 1
Washington 71
Wayne 75
Westmoreland 237
Wyoming 13
York 381', sep = "\t"
),
"2020-04-16" = read_text_table(
'Adams 67
Allegheny 925
Armstrong 32
Beaver 168
Bedford 11
Berks 1419
Blair 13
Bradford 19
Bucks 1407
Butler 154
Cambria 14
Cameron 1
Carbon 113
Centre 73
Chester 699
Clarion 17
Clearfield 9
Clinton 8
Columbia 146
Crawford 16
Cumberland 137
Dauphin 287
Delaware 1999
Elk 2
Erie 46
Fayette 60
Forest 7
Franklin 80
Fulton 2
Greene 24
Huntingdon 12
Indiana 44
Jefferson 2
Juniata 56
Lackawanna 559
Lancaster 970
Lawrence 55
Lebanon 380
Lehigh 1999
Luzerne 1611
Lycoming 30
McKean 4
Mercer 50
Mifflin 15
Monroe 898
Montgomery 2544
Montour 48
Northampton 1296
Northumberland 60
Perry 17
Philadelphia 7684
Pike 276
Potter 4
Schuylkill 236
Snyder 24
Somerset 14
Sullivan 1
Susquehanna 49
Tioga 13
Union 25
Venango 6
Warren 1
Washington 73
Wayne 77
Westmoreland 240
Wyoming 14
York 393', sep = "\t"
),
"2020-04-17" = read_text_table(
'Adams 70
Allegheny 947
Armstrong 32
Beaver 178
Bedford 13
Berks 1537
Blair 14
Bradford 20
Bucks 1524
Butler 157
Cambria 14
Cameron 1
Carbon 118
Centre 73
Chester 739
Clarion 18
Clearfield 9
Clinton 10
Columbia 166
Crawford 16
Cumberland 154
Dauphin 311
Delaware 2226
Elk 2
Erie 48
Fayette 66
Forest 7
Franklin 89
Fulton 2
Greene 24
Huntingdon 12
Indiana 45
Jefferson 2
Juniata 63
Lackawanna 592
Lancaster 1030
Lawrence 59
Lebanon 424
Lehigh 2092
Luzerne 1668
Lycoming 32
McKean 4
Mercer 56
Mifflin 17
Monroe 929
Montgomery 2684
Montour 48
Northampton 1335
Northumberland 60
Perry 18
Philadelphia 8138
Pike 290
Potter 4
Schuylkill 244
Snyder 25
Somerset 15
Sullivan 1
Susquehanna 58
Tioga 14
Union 26
Venango 6
Warren 1
Washington 75
Wayne 81
Westmoreland 249
Wyoming 16
York 443', sep = "\t"
),
"2020-04-18" = read_text_table(
'Adams 74
Allegheny 1009
Armstrong 36
Beaver 278
Bedford 14
Berks 1748
Blair 13
Bradford 24
Bucks 1619
Butler 160
Cambria 17
Cameron 1
Carbon 136
Centre 73
Chester 796
Clarion 18
Clearfield 9
Clinton 11
Columbia 184
Crawford 16
Cumberland 176
Dauphin 343
Delaware 2317
Elk 2
Erie 58
Fayette 66
Forest 7
Franklin 106
Fulton 2
Greene 24
Huntingdon 12
Indiana 47
Jefferson 2
Juniata 66
Lackawanna 620
Lancaster 1113
Lawrence 60
Lebanon 458
Lehigh 2141
Luzerne 1712
Lycoming 36
McKean 4
Mercer 57
Mifflin 19
Monroe 943
Montgomery 2781
Montour 49
Northampton 1396
Northumberland 67
Perry 20
Philadelphia 8502
Pike 295
Potter 4
Schuylkill 254
Snyder 27
Somerset 17
Sullivan 1
Susquehanna 59
Tioga 14
Union 27
Venango 6
Warren 1
Washington 79
Wayne 84
Westmoreland 280
Wyoming 16
York 463', sep = "\t"
),
"2020-04-19" = read_text_table(
'Adams 80
Allegheny 1035
Armstrong 38
Beaver 288
Bedford 15
Berks 1898
Blair 13
Bradford 25
Bucks 1722
Butler 161
Cambria 19
Cameron 1
Carbon 140
Centre 73
Chester 839
Clarion 18
Clearfield 11
Clinton 11
Columbia 202
Crawford 16
Cumberland 182
Dauphin 368
Delaware 2405
Elk 2
Erie 58
Fayette 66
Forest 7
Franklin 111
Fulton 2
Greene 24
Huntingdon 13
Indiana 51
Jefferson 2
Juniata 70
Lackawanna 636
Lancaster 1188
Lawrence 59
Lebanon 484
Lehigh 2203
Luzerne 1741
Lycoming 37
McKean 4
Mercer 59
Mifflin 20
Monroe 963
Montgomery 2913
Montour 48
Northampton 1441
Northumberland 67
Perry 20
Philadelphia 8764
Pike 301
Potter 4
Schuylkill 261
Snyder 27
Somerset 18
Sullivan 1
Susquehanna 63
Tioga 14
Union 27
Venango 6
Warren 1
Washington 82
Wayne 84
Westmoreland 284
Wyoming 17
York 481', sep = "\t"
),
"2020-04-20" = read_text_table(
'Adams 85
Allegheny 1042
Armstrong 38
Beaver 298
Bedford 15
Berks 1945
Blair 14
Bradford 25
Bucks 1812
Butler 161
Cambria 19
Cameron 1
Carbon 144
Centre 73
Chester 883
Clarion 18
Clearfield 11
Clinton 11
Columbia 208
Crawford 16
Cumberland 186
Dauphin 386
Delaware 2484
Elk 2
Erie 60
Fayette 67
Forest 7
Franklin 115
Fulton 2
Greene 25
Huntingdon 13
Indiana 53
Jefferson 3
Juniata 72
Lackawanna 646
Lancaster 1236
Lawrence 59
Lebanon 502
Lehigh 2245
Luzerne 1767
Lycoming 40
McKean 4
Mercer 59
Mifflin 20
Monroe 970
Montgomery 3040
Montour 48
Northampton 1469
Northumberland 73
Perry 20
Philadelphia 9038
Pike 304
Potter 4
Schuylkill 267
Snyder 28
Somerset 19
Sullivan 1
Susquehanna 66
Tioga 14
Union 28
Venango 6
Warren 1
Washington 83
Wayne 85
Westmoreland 286
Wyoming 17
York 493', sep = "\t"
),
"2020-04-21" = read_text_table(
'Adams 91
Allegheny 1059
Armstrong 38
Beaver 303
Bedford 16
Berks 1988
Blair 14
Bradford 31
Bucks 1917
Butler 162
Cambria 20
Cameron 1
Carbon 150
Centre 77
Chester 919
Clarion 18
Clearfield 11
Clinton 11
Columbia 225
Crawford 17
Cumberland 194
Dauphin 400
Delaware 2654
Elk 2
Erie 60
Fayette 69
Forest 7
Franklin 143
Fulton 2
Greene 25
Huntingdon 13
Indiana 55
Jefferson 3
Juniata 72
Lackawanna 666
Lancaster 1295
Lawrence 60
Lebanon 525
Lehigh 2295
Luzerne 1800
Lycoming 42
McKean 5
Mercer 59
Mifflin 21
Monroe 995
Montgomery 3154
Montour 47
Northampton 1544
Northumberland 77
Perry 20
Philadelphia 9391
Pike 314
Potter 4
Schuylkill 277
Snyder 30
Somerset 19
Sullivan 1
Susquehanna 71
Tioga 15
Union 29
Venango 6
Warren 2
Washington 86
Wayne 86
Westmoreland 291
Wyoming 17
York 517', sep = "\t"
),
"2020-04-22" = read_text_table(
'Adams 92
Allegheny 1088
Armstrong 39
Beaver 317
Bedford 16
Berks 2069
Blair 14
Bradford 29
Bucks 2004
Butler 164
Cambria 21
Cameron 1
Carbon 154
Centre 76
Chester 950
Clarion 19
Clearfield 11
Clinton 13
Columbia 239
Crawford 17
Cumberland 207
Dauphin 422
Delaware 2757
Elk 2
Erie 62
Fayette 70
Forest 7
Franklin 152
Fulton 2
Greene 25
Huntingdon 15
Indiana 56
Jefferson 3
Juniata 73
Lackawanna 682
Lancaster 1326
Lawrence 61
Lebanon 535
Lehigh 2374
Luzerne 1848
Lycoming 43
McKean 5
Mercer 59
Mifflin 22
Monroe 1015
Montgomery 3294
Montour 47
Northampton 1591
Northumberland 77
Perry 23
Philadelphia 9696
Pike 317
Potter 4
Schuylkill 283
Snyder 31
Somerset 19
Sullivan 1
Susquehanna 71
Tioga 15
Union 30
Venango 6
Warren 2
Washington 87
Wayne 86
Westmoreland 300
Wyoming 17
York 531', sep = "\t"
),
"2020-04-23" = read_text_table(
'Adams 95
Allegheny 1149
Armstrong 43
Beaver 319
Bedford 20
Berks 2212
Blair 15
Bradford 28
Bucks 2131
Butler 164
Cambria 20
Cameron 1
Carbon 155
Centre 76
Chester 989
Clarion 20
Clearfield 11
Clinton 14
Columbia 245
Crawford 19
Cumberland 229
Dauphin 445
Delaware 2902
Elk 2
Erie 68
Fayette 71
Forest 7
Franklin 151
Fulton 2
Greene 25
Huntingdon 20
Indiana 59
Jefferson 4
Juniata 77
Lackawanna 707
Lancaster 1359
Lawrence 61
Lebanon 544
Lehigh 2418
Luzerne 1880
Lycoming 44
McKean 5
Mercer 60
Mifflin 24
Monroe 1024
Montgomery 3395
Montour 47
Northampton 1656
Northumberland 82
Perry 23
Philadelphia 10090
Pike 327
Potter 4
Schuylkill 290
Snyder 31
Somerset 20
Sullivan 1
Susquehanna 72
Tioga 14
Union 30
Venango 7
Warren 1
Washington 92
Wayne 87
Westmoreland 307
Wyoming 17
York 546', sep = "\t"
),
"2020-04-24" = read_text_table(
'Adams 110
Allegheny 1177
Armstrong 43
Beaver 337
Bedford 21
Berks 2339
Blair 19
Bradford 28
Bucks 2283
Butler 168
Cambria 20
Cameron 1
Carbon 160
Centre 77
Chester 1064
Clarion 22
Clearfield 11
Clinton 17
Columbia 252
Crawford 19
Cumberland 240
Dauphin 468
Delaware 3055
Elk 2
Erie 72
Fayette 75
Forest 7
Franklin 164
Fulton 2
Greene 25
Huntingdon 20
Indiana 62
Jefferson 4
Juniata 77
Lackawanna 735
Lancaster 1451
Lawrence 61
Lebanon 575
Lehigh 2478
Luzerne 1921
Lycoming 48
McKean 5
Mercer 64
Mifflin 26
Monroe 1037
Montgomery 3525
Montour 47
Northampton 1716
Northumberland 84
Perry 25
Philadelphia 10507
Pike 338
Potter 4
Schuylkill 300
Snyder 31
Somerset 22
Sullivan 1
Susquehanna 76
Tioga 14
Union 31
Venango 7
Warren 1
Washington 96
Wayne 88
Westmoreland 317
Wyoming 17
York 563', sep = "\t"
)
) %>%
# I regret this process and hopefully will just put all of
## these into a csv or something easier to read...
map(mutate_all, as.integer) %>%
enframe("date", "confirmed") %>%
unnest("confirmed") %>%
map_dfr(replace_na, 0L) %>%
mutate_at("date", as.Date)
# County populations --------------------------------------------------------------------------
file <- "docs/PEP_2018_PEPANNRES_with_ann.csv"
text <- read_csv(file, col_names = FALSE)[1:2,]
temp <- read_csv(file, skip = 2, col_names = FALSE)
names(temp) <- text[1,] %>% unlist(use.names = TRUE) %>% make_clean_names()
Hmisc::label(temp) <- text[2, ]
pa_county_population <- temp %>%
select(county = geo_display_label,
estimate_population = respop72018) %>%
mutate(county = str_remove(county, "\\sCounty,\\sPennsylvania$"))
library(usethis)
use_data(pa_county_confirmed, overwrite = TRUE)
use_data(pa_county_population, overwrite = TRUE)
jmbarbone/covid19 documentation built on May 6, 2020, 2:14 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# ---------------------------------------------------------------------------------------------
# County level data for Pennsylvania
# ---------------------------------------------------------------------------------------------
options(tidyverse.quiet = TRUE)
library(tidyverse)
library(janitor)
read_text_table <- function(text, sep = "") {
text %>%
textConnection() %>%
read.table(sep = sep) %>%
mutate(V1 = str_trim(V1),
V1 = recode(V1, "Mckean" = "McKean")) %>%
pivot_wider(names_from = V1,
values_from = V2) %>%
mutate_all(as.double) ## will convert everything back to integers
}
# Total count as per: https://www.health.pa.gov/topics/disease/coronavirus/Pages/Cases.aspx
# Archived here: https://www.health.pa.gov/topics/disease/coronavirus/Pages/Archives.aspx
pa_county_confirmed <- list(
"2020-03-06" = tibble(
Delaware = 1,
Wayne = 1,
),
"2020-03-07" = tibble(
Delaware= 1,
Montgomery = 2,
Wayne = 1,
),
"2020-03-08" = tibble(
Delaware = 1,
Montgomery = 4,
Wayne = 1,
),
"2020-03-09" = tibble(
Delaware = 1,
Monroe = 1,
Montgomery = 7,
Wayne = 1,
),
"2020-03-10" = tibble(
Delaware = 1,
Monroe = 1,
Montgomery = 8,
Philadelphia = 1,
Wayne = 1,
),
"2020-03-11" = tibble(
Bucks = 2,
Delaware = 1,
Monroe = 2,
Montgomery = 9,
Philadelphia = 1,
Wayne = 1,
),
"2020-03-12" = tibble(
Bucks = 2,
Delaware = 1,
Monroe = 2,
Montgomery = 13,
Northampton = 1,
Philadelphia = 1,
Pike = 1,
Wayne = 1,
),
"2020-03-13" = tibble(
Bucks = 3,
Chester = 1,
Cumberland = 3,
Delaware = 6,
Monroe = 3,
Montgomery = 18,
Northampton = 1,
Philadelphia = 3,
Pike = 1,
Washington = 1,
Wayne = 1,
),
## Archive lists as 15 March
"2020-03-14" = tibble(
Allegheny = 2,
Bucks = 3,
Chester = 2,
Cumberland = 3,
Delaware = 6,
Monroe = 3,
Montgomery = 20,
Northampton = 1,
Philadelphia = 4,
Pike = 1,
Washington = 1,
Wayne = 1,
),
"2020-03-15" = tibble(
Allegheny = 3,
Bucks = 4,
Chester = 2,
Cumberland = 5,
Delaware = 7,
Lehigh = 1,
Luzerne = 1,
Monroe = 6,
Montgomery = 24,
Northampton = 1,
Philadelphia = 6,
Pike = 1,
Washington = 1,
Wayne = 1,
),
"2020-03-16" = read_text_table(
"Allegheny 5
Bucks 5
Chester 2
Cumberland 5
Delaware 7
Lehigh 1
Luzerne 1
Monroe 8
Montgomery 30
Northampton 1
Philadelphia 8
Pike 1
Wayne 1
Washington 1"
),
"2020-03-17" = read_text_table(
"Allegheny 7
Beaver 1
Bucks 8
Chester 4
Cumberland 10
Delaware 9
Lehigh 1
Luzerne 1
Monroe 8
Montgomery 32
Northampton 1
Philadelphia 10
Pike 1
Washington 2
Wayne 1"
),
"2020-03-18" = read_text_table( ## deaths removes
'Allegheny 11
Beaver 2
Berks 1
Bucks 9
Chester 9
Cumberland 10
Delaware 14
Lackawanna 1
Lehigh 1
Luzerne 1
Monroe 7
Montgomery 42
Northampton 1
Philadelphia 17
Pike 2
Washington 2
Wayne 1
York 2'
),
"2020-03-19" = read_text_table(
"Adams 1
Allegheny 16
Beaver 2
Berks 1
Bucks 12
Chester 10
Cumberland 11
Delaware 14
Lackawanna 2
Lancaster 2
Lebanon 1
Lehigh 1
Luzerne 1
Monroe 15
Montgomery 47
Northampton 5
Philadelphia 33
Pike 3
Washington 3
Wayne 1
Westmoreland 2
York 2"
),
"2020-03-20" = read_text_table(
"Adams 4
Allegheny 28
Beaver 3
Berks 5
Bucks 16
Centre 1
Chester 17
Cumberland 11
Delaware 23
Erie 1
Franklin 1
Lackawanna 4
Lancaster 2
Lebanon 1
Lehigh 2
Luzerne 2
Monroe 19
Montgomery 59
Northampton 10
Philadelphia 42
Pike 2
Potter 1
Washington 3
Wayne 1
Westmoreland 4
York 6"
),
"2020-03-21" = read_text_table(
'Adams 4
Allegheny 31
Beaver 3
Berks 7
Bucks 24
Butler 1
Centre 1
Chester 19
Cumberland 11
Delaware 33
Erie 1
Franklin 1
Lackawanna 5
Lancaster 4
Lebanon 2
Lehigh 13
Luzerne 6
Monroe 25
Montgomery 71
Montour 1
Northampton 17
Philadelphia 69
Pike 2
Potter 1
Washington 5
Wayne 1
Westmoreland 4
York 9'
),
"2020-03-22" = read_text_table(
'Adams 5
Allegheny 40
Beaver 3
Berks 13
Bucks 32
Butler 1
Centre 1
Chester 23
Columbia 1
Cumberland 11
Dauphin 1
Delaware 43
Erie 2
Fayette 1
Franklin 1
Lackawanna 6
Lancaster 6
Lebanon 3
Lehigh 19
Luzerne 7
Mercer 1
Monroe 31
Montgomery 87
Montour 1
Northampton 21
Philadelphia 91
Pike 3
Potter 1
Schuylkill 1
Washington 7
Wayne 2
Westmoreland 4
York 10'
),
"2020-03-23" = read_text_table(
'Adams 6
Allegheny 48
Beaver 3
Berks 14
Bucks 43
Butler 5
Cambria 1
Centre 3
Chester 40
Columbia 1
Cumberland 12
Dauphin 1
Delaware 54
Erie 3
Fayette 1
Franklin 1
Lackawanna 7
Lancaster 5
Lebanon 3
Lehigh 25
Luzerne 10
Mercer 1
Monroe 43
Montgomery 129
Montour 1
Northampton 23
Philadelphia 128
Pike 3
Potter 1
Schuylkill 3
Washington 7
Wayne 3
Westmoreland 6
York 10'
),
"2020-03-24" = read_text_table(
'Adams 6
Allegheny 58
Armstrong 1
Beaver 3
Berks 16
Bradford 1
Bucks 65
Butler 6
Cambria 1
Carbon 1
Centre 7
Chester 40
Clearfield 1
Columbia 1
Cumberland 13
Dauphin 4
Delaware 84
Erie 4
Fayette 2
Franklin 3
Juniata 1
Lackawanna 15
Lancaster 10
Lebanon 3
Lehigh 27
Luzerne 21
Mercer 2
Monroe 45
Montgomery 144
Montour 3
Northampton 33
Philadelphia 177
Pike 4
Potter 1
Schuylkill 5
Somerset 1
Washington 9
Wayne 4
Westmoreland 11
York 18'
),
"2020-03-25" = read_text_table(
'Adams 6
Allegheny 88
Armstrong 1
Beaver 7
Berks 20
Bradford 1
Bucks 86
Butler 12
Cambria 1
Carbon 1
Centre 8
Chester 54
Clearfield 2
Columbia 1
Cumberland 13
Dauphin 10
Delaware 101
Erie 4
Fayette 4
Franklin 5
Greene 2
Juniata 1
Lackawanna 18
Lancaster 12
Lawrence 1
Lebanon 3
Lehigh 38
Luzerne 27
Lycoming 1
Mercer 2
Monroe 51
Montgomery 172
Montour 4
Northampton 44
Philadelphia 257
Pike 9
Potter 1
Schuylkill 6
Somerset 2
Warren 1
Washington 10
Wayne 4
Westmoreland 16
York 20'
),
"2020-03-26" = read_text_table(
'Adams 7
Allegheny 133
Armstrong 1
Beaver 13
Berks 36
Blair 1
Bradford 2
Bucks 107
Butler 19
Cambria 1
Carbon 2
Centre 9
Chester 84
Clearfield 2
Columbia 3
Crawford 1
Cumberland 15
Dauphin 13
Delaware 156
Erie 4
Fayette 8
Franklin 5
Greene 3
Indiana 1
Juniata 1
Lackawanna 28
Lancaster 21
Lawrence 1
Lebanon 4
Lehigh 63
Luzerne 36
Lycoming 1
Mercer 3
Monroe 67
Montgomery 282
Montour 4
Northampton 56
Philadelphia 402
Pike 15
Potter 1
Schuylkill 9
Somerset 2
Susquehanna 1
Warren 1
Washington 12
Wayne 6
Westmoreland 24
York 21', sep = "\t"
),
"2020-03-27" = read_text_table(
'Adams 8
Allegheny 158
Armstrong 1
Beaver 14
Berks 65
Blair 1
Bradford 2
Bucks 124
Butler 26
Cambria 1
Carbon 2
Centre 11
Chester 107
Clearfield 2
Columbia 3
Crawford 1
Cumberland 16
Dauphin 18
Delaware 185
Erie 7
Fayette 9
Franklin 5
Greene 4
Indiana 2
Juniata 1
Lackawanna 35
Lancaster 33
Lawrence 4
Lebanon 12
Lehigh 93
Luzerne 55
Lycoming 2
Mercer 4
Monroe 98
Montgomery 374
Montour 4
Northampton 79
Northumberland 1
Philadelphia 530
Pike 23
Potter 1
Schuylkill 13
Somerset 2
Susquehanna 1
Union 1
Warren 1
Washington 14
Wayne 6
Westmoreland 30
York 29', sep = "\t"
),
"2020-03-28" = read_text_table(
'Adams 8
Allegheny 219
Armstrong 2
Beaver 22
Berks 65
Blair 2
Bradford 3
Bucks 152
Butler 41
Cambria 1
Cameron 1
Carbon 3
Centre 15
Chester 116
Clarion 1
Clearfield 2
Columbia 4
Crawford 2
Cumberland 22
Dauphin 23
Delaware 226
Erie 7
Fayette 10
Franklin 7
Greene 6
Huntingdon 1
Indiana 2
Juniata 1
Lackawanna 51
Lancaster 45
Lawrence 8
Lebanon 15
Lehigh 109
Luzerne 65
Lycoming 2
Mckean 1
Mercer 6
Monroe 106
Montgomery 411
Montour 5
Northampton 94
Northumberland 1
Perry 1
Philadelphia 709
Pike 27
Potter 2
Schuylkill 16
Snyder 1
Somerset 2
Susquehanna 1
Tioga 1
Warren 1
Washington 23
Wayne 6
Westmoreland 41
York 37', sep = "\t"
),
"2020-03-29" = read_text_table(
'Adams 8
Allegheny 265
Armstrong 3
Beaver 28
Berks 68
Blair 3
Bradford 3
Bucks 203
Butler 47
Cambria 1
Cameron 1
Carbon 9
Centre 22
Chester 137
Clarion 1
Clearfield 2
Columbia 6
Crawford 3
Cumberland 22
Dauphin 35
Delaware 276
Erie 7
Fayette 10
Franklin 11
Greene 6
Huntingdon 1
Indiana 2
Juniata 1
Lackawanna 56
Lancaster 67
Lawrence 8
Lebanon 19
Lehigh 151
Luzerne 94
Lycoming 3
Mckean 1
Mercer 7
Mifflin 2
Monroe 135
Montgomery 488
Montour 4
Northampton 126
Northumberland 1
Perry 1
Philadelphia 865
Pike 33
Potter 2
Schuylkill 21
Snyder 2
Somerset 2
Susquehanna 1
Tioga 1
Venango 1
Warren 1
Washington 24
Wayne 7
Westmoreland 47
York 43', sep = "\t"
),
"2020-03-30" = read_text_table(
'Adams 8
Allegheny 290
Armstrong 3
Beaver 44
Berks 82
Blair 6
Bradford 3
Bucks 246
Butler 49
Cambria 2
Cameron 1
Carbon 13
Centre 24
Chester 146
Clarion 1
Clearfield 4
Columbia 6
Crawford 4
Cumberland 24
Dauphin 36
Delaware 303
Erie 13
Fayette 11
Franklin 12
Greene 7
Huntingdon 1
Indiana 2
Juniata 3
Lackawanna 62
Lancaster 97
Lawrence 10
Lebanon 27
Lehigh 231
Luzerne 150
Lycoming 4
Mckean 1
Mercer 7
Mifflin 1
Monroe 182
Montgomery 540
Montour 10
Northampton 184
Northumberland 1
Perry 1
Philadelphia 1007
Pike 39
Potter 2
Schuylkill 30
Snyder 2
Somerset 2
Susquehanna 1
Tioga 1
Union 4
Venango 1
Warren 1
Washington 26
Wayne 10
Westmoreland 55
York 54', sep = "\t"
),
"2020-03-31" = read_text_table(
'Adams 9
Allegheny 325
Armstrong 5
Beaver 52
Bedford 2
Berks 110
Blair 4
Bradford 7
Bucks 286
Butler 60
Cambria 2
Cameron 1
Carbon 17
Centre 26
Chester 159
Clarion 3
Clearfield 4
Columbia 7
Crawford 4
Cumberland 36
Dauphin 45
Delaware 338
Erie 14
Fayette 14
Franklin 19
Greene 9
Huntingdon 1
Indiana 6
Juniata 3
Lackawanna 78
Lancaster 123
Lawrence 13
Lebanon 28
Lehigh 272
Luzerne 212
Lycoming 6
Mckean 1
Mercer 8
Mifflin 2
Monroe 236
Montgomery 570
Montour 9
Northampton 245
Northumberland 1
Perry 1
Philadelphia 1197
Pike 48
Potter 2
Schuylkill 38
Snyder 2
Somerset 2
Susquehanna 1
Tioga 2
Union 4
Venango 3
Warren 1
Washington 33
Wayne 10
Westmoreland 61
York 66', sep = "\t"
),
"2020-04-01" = read_text_table(
'Adams 12
Allegheny 356
Armstrong 5
Beaver 54
Bedford 3
Berks 151
Blair 4
Bradford 8
Bucks 312
Butler 64
Cambria 3
Cameron 1
Carbon 23
Centre 27
Chester 183
Clarion 4
Clearfield 4
Columbia 8
Crawford 5
Cumberland 38
Dauphin 59
Delaware 390
Erie 15
Fayette 14
Franklin 21
Greene 9
Huntingdon 1
Indiana 6
Juniata 2
Lackawanna 85
Lancaster 157
Lawrence 13
Lebanon 36
Lehigh 374
Luzerne 282
Lycoming 7
Mckean 1
Mercer 8
Mifflin 1
Monroe 278
Montgomery 649
Montour 13
Northampton 312
Northumberland 6
Perry 1
Philadelphia 1478
Pike 57
Potter 2
Schuylkill 47
Snyder 3
Somerset 3
Susquehanna 2
Tioga 2
Union 2
Venango 3
Warren 1
Washington 35
Wayne 14
Westmoreland 72
York 79', sep = "\t"
),
"2020-04-02" = read_text_table(
'Adams 18
Allegheny 419
Armstrong 7
Beaver 55
Bedford 3
Berks 168
Blair 4
Bradford 8
Bucks 370
Butler 69
Cambria 4
Cameron 1
Carbon 26
Centre 28
Chester 210
Clarion 4
Clearfield 4
Columbia 11
Crawford 5
Cumberland 41
Dauphin 67
Delaware 470
Erie 16
Fayette 15
Forest 1
Franklin 23
Greene 11
Huntingdon 2
Indiana 6
Juniata 2
Lackawanna 108
Lancaster 203
Lawrence 16
Lebanon 45
Lehigh 479
Luzerne 384
Lycoming 7
Mckean 1
Mercer 9
Mifflin 1
Monroe 321
Montgomery 735
Montour 15
Northampton 378
Northumberland 8
Perry 3
Philadelphia 1852
Pike 68
Potter 2
Schuylkill 54
Snyder 3
Somerset 3
Susquehanna 3
Tioga 2
Union 2
Venango 3
Warren 1
Washington 38
Wayne 17
Westmoreland 84
Wyoming 1
York 102', sep = "\t"
),
"2020-04-03" = read_text_table(
'Adams 19
Allegheny 476
Armstrong 11
Beaver 65
Bedford 3
Berks 201
Blair 4
Bradford 9
Bucks 446
Butler 75
Cambria 4
Cameron 1
Carbon 34
Centre 32
Chester 226
Clarion 4
Clearfield 5
Clinton 1
Columbia 15
Crawford 5
Cumberland 45
Dauphin 79
Delaware 542
Erie 17
Fayette 20
Forest 1
Franklin 26
Greene 11
Huntingdon 3
Indiana 7
Juniata 5
Lackawanna 119
Lancaster 232
Lawrence 19
Lebanon 54
Lehigh 584
Luzerne 484
Lycoming 8
Mckean 1
Mercer 10
Mifflin 2
Monroe 397
Montgomery 875
Montour 16
Northampton 466
Northumberland 8
Perry 4
Philadelphia 2284
Pike 83
Potter 2
Schuylkill 63
Snyder 4
Somerset 3
Susquehanna 4
Tioga 3
Union 3
Venango 3
Warren 1
Washington 40
Wayne 23
Westmoreland 110
Wyoming 2
York 121', sep = "\t"
),
"2020-04-04" = read_text_table(
'Adams 21
Allegheny 552
Armstrong 12
Beaver 69
Bedford 4
Berks 235
Blair 5
Bradford 10
Bucks 488
Butler 84
Cambria 6
Cameron 1
Carbon 46
Centre 39
Chester 250
Clarion 4
Clearfield 7
Clinton 1
Columbia 20
Crawford 5
Cumberland 54
Dauphin 99
Delaware 616
Erie 19
Fayette 23
Forest 2
Franklin 27
Greene 12
Huntingdon 4
Indiana 9
Juniata 7
Lackawanna 146
Lancaster 291
Lawrence 22
Lebanon 87
Lehigh 804
Luzerne 648
Lycoming 10
McKean 1
Mercer 14
Mifflin 4
Monroe 484
Montgomery 982
Montour 19
Northampton 588
Northumberland 9
Perry 5
Philadelphia 2610
Pike 97
Potter 3
Schuylkill 77
Snyder 6
Somerset 3
Sullivan 1
Susquehanna 5
Tioga 3
Union 5
Venango 3
Warren 1
Washington 46
Wayne 28
Westmoreland 135
Wyoming 5
York 144', sep = "\t"
),
"2020-04-05" = read_text_table(
'Adams 22
Allegheny 605
Armstrong 12
Beaver 84
Bedford 4
Berks 276
Blair 5
Bradford 10
Bucks 555
Butler 87
Cambria 7
Cameron 1
Carbon 50
Centre 43
Chester 269
Clarion 5
Clearfield 7
Clinton 1
Columbia 22
Crawford 7
Cumberland 58
Dauphin 118
Delaware 708
Erie 19
Fayette 27
Forest 3
Franklin 30
Fulton 1
Greene 12
Huntingdon 4
Indiana 13
Juniata 7
Lackawanna 172
Lancaster 371
Lawrence 23
Lebanon 106
Lehigh 877
Luzerne 741
Lycoming 9
McKean 1
Mercer 18
Mifflin 9
Monroe 528
Montgomery 1111
Montour 37
Northampton 636
Northumberland 14
Perry 5
Philadelphia 3135
Pike 114
Potter 3
Schuylkill 90
Snyder 8
Somerset 4
Sullivan 1
Susquehanna 6
Tioga 3
Union 6
Venango 3
Warren 1
Washington 50
Wayne 33
Westmoreland 147
Wyoming 5
York 171', sep = "\t"
),
"2020-04-06" = read_text_table(
'Adams 25
Allegheny 642
Armstrong 13
Beaver 96
Bedford 4
Berks 326
Blair 5
Bradford 10
Bucks 619
Butler 91
Cambria 7
Cameron 1
Carbon 59
Centre 44
Chester 307
Clarion 6
Clearfield 7
Clinton 3
Columbia 26
Crawford 9
Cumberland 68
Dauphin 132
Delaware 822
Erie 20
Fayette 29
Forest 4
Franklin 32
Fulton 1
Greene 12
Huntingdon 4
Indiana 17
Juniata 11
Lackawanna 190
Lancaster 408
Lawrence 24
Lebanon 124
Lehigh 1006
Luzerne 849
Lycoming 10
McKean 1
Mercer 18
Mifflin 5
Monroe 572
Montgomery 1230
Montour 33
Northampton 716
Northumberland 15
Perry 5
Philadelphia 3611
Pike 125
Potter 3
Schuylkill 103
Snyder 8
Somerset 6
Sullivan 1
Susquehanna 6
Tioga 8
Union 6
Venango 5
Warren 1
Washington 53
Wayne 35
Westmoreland 157
Wyoming 5
York 189', sep = "\t"
),
"2020-04-07" = read_text_table(
'Adams 28
Allegheny 689
Armstrong 18
Beaver 116
Bedford 4
Berks 369
Blair 6
Bradford 14
Bucks 690
Butler 107
Cambria 7
Cameron 1
Carbon 67
Centre 55
Chester 335
Clarion 9
Clearfield 7
Clinton 3
Columbia 42
Crawford 8
Cumberland 77
Dauphin 155
Delaware 898
Elk 2
Erie 28
Fayette 32
Forest 5
Franklin 39
Fulton 1
Greene 15
Huntingdon 5
Indiana 21
Jefferson 1
Juniata 14
Lackawanna 235
Lancaster 490
Lawrence 29
Lebanon 145
Lehigh 1146
Luzerne 982
Lycoming 12
McKean 1
Mercer 26
Mifflin 6
Monroe 610
Montgomery 1359
Montour 27
Northampton 774
Northumberland 22
Perry 9
Philadelphia 4012
Pike 136
Potter 3
Schuylkill 119
Snyder 9
Somerset 7
Sullivan 1
Susquehanna 11
Tioga 10
Union 7
Venango 5
Warren 1
Washington 57
Wayne 40
Westmoreland 177
Wyoming 5
York 218', sep = "\t"
),
"2020-04-08" = read_text_table(
'Adams 33
Allegheny 720
Armstrong 19
Beaver 128
Bedford 4
Berks 416
Blair 6
Bradford 15
Bucks 756
Butler 113
Cambria 9
Cameron 1
Carbon 76
Centre 57
Chester 373
Clarion 8
Clearfield 7
Clinton 3
Columbia 54
Crawford 8
Cumberland 84
Dauphin 168
Delaware 1034
Elk 2
Erie 29
Fayette 35
Forest 5
Franklin 43
Fulton 1
Greene 17
Huntingdon 6
Indiana 21
Jefferson 1
Juniata 18
Lackawanna 266
Lancaster 561
Lawrence 32
Lebanon 169
Lehigh 1319
Luzerne 1134
Lycoming 15
McKean 1
Mercer 27
Mifflin 10
Monroe 671
Montgomery 1521
Montour 26
Northampton 857
Northumberland 22
Perry 13
Philadelphia 4456
Pike 148
Potter 3
Schuylkill 136
Snyder 9
Somerset 7
Sullivan 1
Susquehanna 14
Tioga 10
Union 8
Venango 5
Warren 1
Washington 59
Wayne 47
Westmoreland 183
Wyoming 5
York 233', sep = "\t"
),
"2020-04-09" = read_text_table(
'Adams 38
Allegheny 759
Armstrong 20
Beaver 129
Bedford 4
Berks 616
Blair 6
Bradford 15
Bucks 871
Butler 113
Cambria 10
Cameron 1
Carbon 83
Centre 59
Chester 425
Clarion 8
Clearfield 7
Clinton 4
Columbia 65
Crawford 13
Cumberland 88
Dauphin 180
Delaware 1222
Elk 2
Erie 32
Fayette 45
Forest 5
Franklin 52
Fulton 1
Greene 21
Huntingdon 8
Indiana 21
Jefferson 1
Juniata 23
Lackawanna 312
Lancaster 596
Lawrence 37
Lebanon 187
Lehigh 1466
Luzerne 1241
Lycoming 17
McKean 1
Mercer 30
Mifflin 10
Monroe 716
Montgomery 1693
Montour 25
Northampton 949
Northumberland 24
Perry 15
Philadelphia 5029
Pike 163
Potter 3
Schuylkill 149
Snyder 9
Somerset 7
Sullivan 1
Susquehanna 16
Tioga 10
Union 11
Venango 5
Warren 1
Washington 63
Wayne 49
Westmoreland 190
Wyoming 6
York 250', sep = "\t"
),
"2020-04-10" = read_text_table(
'Adams 43
Allegheny 788
Armstrong 22
Beaver 139
Bedford 3
Berks 720
Blair 9
Bradford 16
Bucks 958
Butler 123
Cambria 11
Cameron 1
Carbon 93
Centre 61
Chester 485
Clarion 10
Clearfield 8
Clinton 6
Columbia 81
Crawford 13
Cumberland 96
Dauphin 199
Delaware 1377
Elk 2
Erie 36
Fayette 49
Forest 5
Franklin 57
Fulton 1
Greene 21
Huntingdon 8
Indiana 26
Jefferson 1
Juniata 30
Lackawanna 346
Lancaster 648
Lawrence 45
Lebanon 218
Lehigh 1562
Luzerne 1325
Lycoming 18
McKean 1
Mercer 36
Mifflin 11
Monroe 752
Montgomery 1889
Montour 29
Northampton 994
Northumberland 29
Perry 16
Philadelphia 5521
Pike 190
Potter 3
Schuylkill 164
Snyder 12
Somerset 10
Sullivan 1
Susquehanna 22
Tioga 11
Union 12
Venango 5
Warren 1
Washington 66
Wayne 53
Westmoreland 202
Wyoming 6
York 283', sep = "\t"
),
"2020-04-11" = read_text_table(
'Adams 44
Allegheny 836
Armstrong 26
Beaver 143
Bedford 5
Berks 930
Blair 10
Bradford 18
Bucks 1051
Butler 128
Cambria 13
Cameron 1
Carbon 98
Centre 69
Chester 532
Clarion 15
Clearfield 9
Clinton 7
Columbia 99
Crawford 15
Cumberland 105
Dauphin 213
Delaware 1510
Elk 2
Erie 39
Fayette 50
Forest 5
Franklin 59
Fulton 1
Greene 23
Huntingdon 10
Indiana 40
Jefferson 1
Juniata 38
Lackawanna 392
Lancaster 698
Lawrence 46
Lebanon 232
Lehigh 1620
Luzerne 1372
Lycoming 20
McKean 2
Mercer 38
Mifflin 10
Monroe 774
Montgomery 2053
Montour 29
Northampton 1039
Northumberland 31
Perry 16
Philadelphia 6022
Pike 208
Potter 4
Schuylkill 179
Snyder 16
Somerset 10
Sullivan 1
Susquehanna 23
Tioga 12
Union 14
Venango 6
Warren 1
Washington 66
Wayne 57
Westmoreland 218
Wyoming 8
York 293', sep = "\t"
),
"2020-04-12" = read_text_table(
'Adams 48
Allegheny 857
Armstrong 27
Beaver 145
Bedford 5
Berks 1035
Blair 10
Bradford 18
Bucks 1107
Butler 133
Cambria 13
Cameron 1
Carbon 102
Centre 70
Chester 562
Clarion 15
Clearfield 9
Clinton 8
Columbia 106
Crawford 15
Cumberland 110
Dauphin 229
Delaware 1594
Elk 2
Erie 39
Fayette 54
Forest 5
Franklin 64
Fulton 1
Greene 23
Huntingdon 10
Indiana 40
Jefferson 2
Juniata 38
Lackawanna 427
Lancaster 772
Lawrence 49
Lebanon 270
Lehigh 1684
Luzerne 1411
Lycoming 23
McKean 2
Mercer 40
Mifflin 12
Monroe 795
Montgomery 2164
Montour 29
Northampton 1082
Northumberland 37
Perry 16
Philadelphia 6352
Pike 212
Potter 4
Schuylkill 188
Snyder 20
Somerset 12
Sullivan 1
Susquehanna 25
Tioga 13
Union 19
Venango 6
Warren 1
Washington 68
Wayne 63
Westmoreland 223
Wyoming 9
York 307', sep = "\t"
),
"2020-04-13" = read_text_table(
'Adams 56
Allegheny 876
Armstrong 28
Beaver 153
Bedford 5
Berks 1150
Blair 11
Bradford 19
Bucks 1177
Butler 143
Cambria 14
Cameron 1
Carbon 102
Centre 70
Chester 593
Clarion 16
Clearfield 9
Clinton 8
Columbia 113
Crawford 16
Cumberland 122
Dauphin 240
Delaware 1712
Elk 2
Erie 39
Fayette 57
Forest 5
Franklin 66
Fulton 1
Greene 23
Huntingdon 11
Indiana 43
Jefferson 2
Juniata 39
Lackawanna 459
Lancaster 828
Lawrence 51
Lebanon 284
Lehigh 1747
Luzerne 1446
Lycoming 28
McKean 3
Mercer 43
Mifflin 17
Monroe 816
Montgomery 2285
Montour 39
Northampton 1130
Northumberland 40
Perry 17
Philadelphia 6810
Pike 221
Potter 4
Schuylkill 192
Snyder 23
Somerset 13
Sullivan 1
Susquehanna 31
Tioga 14
Union 21
Venango 6
Warren 1
Washington 69
Wayne 67
Westmoreland 228
Wyoming 12
York 331', sep = "\t"
),
"2020-04-14" = read_text_table(
'Adams 63
Allegheny 893
Armstrong 28
Beaver 156
Bedford 5
Berks 1247
Blair 11
Bradford 19
Bucks 1222
Butler 143
Cambria 14
Cameron 1
Carbon 103
Centre 70
Chester 621
Clarion 16
Clearfield 9
Clinton 8
Columbia 125
Crawford 16
Cumberland 124
Dauphin 249
Delaware 1806
Elk 2
Erie 41
Fayette 58
Forest 5
Franklin 69
Fulton 2
Greene 23
Huntingdon 11
Indiana 43
Jefferson 2
Juniata 43
Lackawanna 501
Lancaster 865
Lawrence 51
Lebanon 328
Lehigh 1803
Luzerne 1523
Lycoming 29
McKean 4
Mercer 44
Mifflin 16
Monroe 847
Montgomery 2354
Montour 44
Northampton 1176
Northumberland 48
Perry 17
Philadelphia 7121
Pike 256
Potter 4
Schuylkill 200
Snyder 24
Somerset 13
Sullivan 1
Susquehanna 32
Tioga 13
Union 23
Venango 6
Warren 1
Washington 70
Wayne 70
Westmoreland 231
Wyoming 11
York 371', sep = "\t"
),
"2020-04-15" = read_text_table(
'Adams 64
Allegheny 904
Armstrong 29
Beaver 158
Bedford 9
Berks 1335
Blair 12
Bradford 19
Bucks 1300
Butler 150
Cambria 14
Cameron 1
Carbon 112
Centre 72
Chester 658
Clarion 16
Clearfield 9
Clinton 8
Columbia 131
Crawford 16
Cumberland 131
Dauphin 271
Delaware 1882
Elk 2
Erie 42
Fayette 58
Forest 5
Franklin 78
Fulton 2
Greene 23
Huntingdon 12
Indiana 43
Jefferson 2
Juniata 47
Lackawanna 527
Lancaster 914
Lawrence 55
Lebanon 349
Lehigh 1922
Luzerne 1567
Lycoming 30
McKean 4
Mercer 47
Mifflin 15
Monroe 872
Montgomery 2475
Montour 44
Northampton 1251
Northumberland 56
Perry 17
Philadelphia 7347
Pike 268
Potter 4
Schuylkill 212
Snyder 24
Somerset 14
Sullivan 1
Susquehanna 40
Tioga 13
Union 23
Venango 6
Warren 1
Washington 71
Wayne 75
Westmoreland 237
Wyoming 13
York 381', sep = "\t"
),
"2020-04-16" = read_text_table(
'Adams 67
Allegheny 925
Armstrong 32
Beaver 168
Bedford 11
Berks 1419
Blair 13
Bradford 19
Bucks 1407
Butler 154
Cambria 14
Cameron 1
Carbon 113
Centre 73
Chester 699
Clarion 17
Clearfield 9
Clinton 8
Columbia 146
Crawford 16
Cumberland 137
Dauphin 287
Delaware 1999
Elk 2
Erie 46
Fayette 60
Forest 7
Franklin 80
Fulton 2
Greene 24
Huntingdon 12
Indiana 44
Jefferson 2
Juniata 56
Lackawanna 559
Lancaster 970
Lawrence 55
Lebanon 380
Lehigh 1999
Luzerne 1611
Lycoming 30
McKean 4
Mercer 50
Mifflin 15
Monroe 898
Montgomery 2544
Montour 48
Northampton 1296
Northumberland 60
Perry 17
Philadelphia 7684
Pike 276
Potter 4
Schuylkill 236
Snyder 24
Somerset 14
Sullivan 1
Susquehanna 49
Tioga 13
Union 25
Venango 6
Warren 1
Washington 73
Wayne 77
Westmoreland 240
Wyoming 14
York 393', sep = "\t"
),
"2020-04-17" = read_text_table(
'Adams 70
Allegheny 947
Armstrong 32
Beaver 178
Bedford 13
Berks 1537
Blair 14
Bradford 20
Bucks 1524
Butler 157
Cambria 14
Cameron 1
Carbon 118
Centre 73
Chester 739
Clarion 18
Clearfield 9
Clinton 10
Columbia 166
Crawford 16
Cumberland 154
Dauphin 311
Delaware 2226
Elk 2
Erie 48
Fayette 66
Forest 7
Franklin 89
Fulton 2
Greene 24
Huntingdon 12
Indiana 45
Jefferson 2
Juniata 63
Lackawanna 592
Lancaster 1030
Lawrence 59
Lebanon 424
Lehigh 2092
Luzerne 1668
Lycoming 32
McKean 4
Mercer 56
Mifflin 17
Monroe 929
Montgomery 2684
Montour 48
Northampton 1335
Northumberland 60
Perry 18
Philadelphia 8138
Pike 290
Potter 4
Schuylkill 244
Snyder 25
Somerset 15
Sullivan 1
Susquehanna 58
Tioga 14
Union 26
Venango 6
Warren 1
Washington 75
Wayne 81
Westmoreland 249
Wyoming 16
York 443', sep = "\t"
),
"2020-04-18" = read_text_table(
'Adams 74
Allegheny 1009
Armstrong 36
Beaver 278
Bedford 14
Berks 1748
Blair 13
Bradford 24
Bucks 1619
Butler 160
Cambria 17
Cameron 1
Carbon 136
Centre 73
Chester 796
Clarion 18
Clearfield 9
Clinton 11
Columbia 184
Crawford 16
Cumberland 176
Dauphin 343
Delaware 2317
Elk 2
Erie 58
Fayette 66
Forest 7
Franklin 106
Fulton 2
Greene 24
Huntingdon 12
Indiana 47
Jefferson 2
Juniata 66
Lackawanna 620
Lancaster 1113
Lawrence 60
Lebanon 458
Lehigh 2141
Luzerne 1712
Lycoming 36
McKean 4
Mercer 57
Mifflin 19
Monroe 943
Montgomery 2781
Montour 49
Northampton 1396
Northumberland 67
Perry 20
Philadelphia 8502
Pike 295
Potter 4
Schuylkill 254
Snyder 27
Somerset 17
Sullivan 1
Susquehanna 59
Tioga 14
Union 27
Venango 6
Warren 1
Washington 79
Wayne 84
Westmoreland 280
Wyoming 16
York 463', sep = "\t"
),
"2020-04-19" = read_text_table(
'Adams 80
Allegheny 1035
Armstrong 38
Beaver 288
Bedford 15
Berks 1898
Blair 13
Bradford 25
Bucks 1722
Butler 161
Cambria 19
Cameron 1
Carbon 140
Centre 73
Chester 839
Clarion 18
Clearfield 11
Clinton 11
Columbia 202
Crawford 16
Cumberland 182
Dauphin 368
Delaware 2405
Elk 2
Erie 58
Fayette 66
Forest 7
Franklin 111
Fulton 2
Greene 24
Huntingdon 13
Indiana 51
Jefferson 2
Juniata 70
Lackawanna 636
Lancaster 1188
Lawrence 59
Lebanon 484
Lehigh 2203
Luzerne 1741
Lycoming 37
McKean 4
Mercer 59
Mifflin 20
Monroe 963
Montgomery 2913
Montour 48
Northampton 1441
Northumberland 67
Perry 20
Philadelphia 8764
Pike 301
Potter 4
Schuylkill 261
Snyder 27
Somerset 18
Sullivan 1
Susquehanna 63
Tioga 14
Union 27
Venango 6
Warren 1
Washington 82
Wayne 84
Westmoreland 284
Wyoming 17
York 481', sep = "\t"
),
"2020-04-20" = read_text_table(
'Adams 85
Allegheny 1042
Armstrong 38
Beaver 298
Bedford 15
Berks 1945
Blair 14
Bradford 25
Bucks 1812
Butler 161
Cambria 19
Cameron 1
Carbon 144
Centre 73
Chester 883
Clarion 18
Clearfield 11
Clinton 11
Columbia 208
Crawford 16
Cumberland 186
Dauphin 386
Delaware 2484
Elk 2
Erie 60
Fayette 67
Forest 7
Franklin 115
Fulton 2
Greene 25
Huntingdon 13
Indiana 53
Jefferson 3
Juniata 72
Lackawanna 646
Lancaster 1236
Lawrence 59
Lebanon 502
Lehigh 2245
Luzerne 1767
Lycoming 40
McKean 4
Mercer 59
Mifflin 20
Monroe 970
Montgomery 3040
Montour 48
Northampton 1469
Northumberland 73
Perry 20
Philadelphia 9038
Pike 304
Potter 4
Schuylkill 267
Snyder 28
Somerset 19
Sullivan 1
Susquehanna 66
Tioga 14
Union 28
Venango 6
Warren 1
Washington 83
Wayne 85
Westmoreland 286
Wyoming 17
York 493', sep = "\t"
),
"2020-04-21" = read_text_table(
'Adams 91
Allegheny 1059
Armstrong 38
Beaver 303
Bedford 16
Berks 1988
Blair 14
Bradford 31
Bucks 1917
Butler 162
Cambria 20
Cameron 1
Carbon 150
Centre 77
Chester 919
Clarion 18
Clearfield 11
Clinton 11
Columbia 225
Crawford 17
Cumberland 194
Dauphin 400
Delaware 2654
Elk 2
Erie 60
Fayette 69
Forest 7
Franklin 143
Fulton 2
Greene 25
Huntingdon 13
Indiana 55
Jefferson 3
Juniata 72
Lackawanna 666
Lancaster 1295
Lawrence 60
Lebanon 525
Lehigh 2295
Luzerne 1800
Lycoming 42
McKean 5
Mercer 59
Mifflin 21
Monroe 995
Montgomery 3154
Montour 47
Northampton 1544
Northumberland 77
Perry 20
Philadelphia 9391
Pike 314
Potter 4
Schuylkill 277
Snyder 30
Somerset 19
Sullivan 1
Susquehanna 71
Tioga 15
Union 29
Venango 6
Warren 2
Washington 86
Wayne 86
Westmoreland 291
Wyoming 17
York 517', sep = "\t"
),
"2020-04-22" = read_text_table(
'Adams 92
Allegheny 1088
Armstrong 39
Beaver 317
Bedford 16
Berks 2069
Blair 14
Bradford 29
Bucks 2004
Butler 164
Cambria 21
Cameron 1
Carbon 154
Centre 76
Chester 950
Clarion 19
Clearfield 11
Clinton 13
Columbia 239
Crawford 17
Cumberland 207
Dauphin 422
Delaware 2757
Elk 2
Erie 62
Fayette 70
Forest 7
Franklin 152
Fulton 2
Greene 25
Huntingdon 15
Indiana 56
Jefferson 3
Juniata 73
Lackawanna 682
Lancaster 1326
Lawrence 61
Lebanon 535
Lehigh 2374
Luzerne 1848
Lycoming 43
McKean 5
Mercer 59
Mifflin 22
Monroe 1015
Montgomery 3294
Montour 47
Northampton 1591
Northumberland 77
Perry 23
Philadelphia 9696
Pike 317
Potter 4
Schuylkill 283
Snyder 31
Somerset 19
Sullivan 1
Susquehanna 71
Tioga 15
Union 30
Venango 6
Warren 2
Washington 87
Wayne 86
Westmoreland 300
Wyoming 17
York 531', sep = "\t"
),
"2020-04-23" = read_text_table(
'Adams 95
Allegheny 1149
Armstrong 43
Beaver 319
Bedford 20
Berks 2212
Blair 15
Bradford 28
Bucks 2131
Butler 164
Cambria 20
Cameron 1
Carbon 155
Centre 76
Chester 989
Clarion 20
Clearfield 11
Clinton 14
Columbia 245
Crawford 19
Cumberland 229
Dauphin 445
Delaware 2902
Elk 2
Erie 68
Fayette 71
Forest 7
Franklin 151
Fulton 2
Greene 25
Huntingdon 20
Indiana 59
Jefferson 4
Juniata 77
Lackawanna 707
Lancaster 1359
Lawrence 61
Lebanon 544
Lehigh 2418
Luzerne 1880
Lycoming 44
McKean 5
Mercer 60
Mifflin 24
Monroe 1024
Montgomery 3395
Montour 47
Northampton 1656
Northumberland 82
Perry 23
Philadelphia 10090
Pike 327
Potter 4
Schuylkill 290
Snyder 31
Somerset 20
Sullivan 1
Susquehanna 72
Tioga 14
Union 30
Venango 7
Warren 1
Washington 92
Wayne 87
Westmoreland 307
Wyoming 17
York 546', sep = "\t"
),
"2020-04-24" = read_text_table(
'Adams 110
Allegheny 1177
Armstrong 43
Beaver 337
Bedford 21
Berks 2339
Blair 19
Bradford 28
Bucks 2283
Butler 168
Cambria 20
Cameron 1
Carbon 160
Centre 77
Chester 1064
Clarion 22
Clearfield 11
Clinton 17
Columbia 252
Crawford 19
Cumberland 240
Dauphin 468
Delaware 3055
Elk 2
Erie 72
Fayette 75
Forest 7
Franklin 164
Fulton 2
Greene 25
Huntingdon 20
Indiana 62
Jefferson 4
Juniata 77
Lackawanna 735
Lancaster 1451
Lawrence 61
Lebanon 575
Lehigh 2478
Luzerne 1921
Lycoming 48
McKean 5
Mercer 64
Mifflin 26
Monroe 1037
Montgomery 3525
Montour 47
Northampton 1716
Northumberland 84
Perry 25
Philadelphia 10507
Pike 338
Potter 4
Schuylkill 300
Snyder 31
Somerset 22
Sullivan 1
Susquehanna 76
Tioga 14
Union 31
Venango 7
Warren 1
Washington 96
Wayne 88
Westmoreland 317
Wyoming 17
York 563', sep = "\t"
)
) %>%
# I regret this process and hopefully will just put all of
## these into a csv or something easier to read...
map(mutate_all, as.integer) %>%
enframe("date", "confirmed") %>%
unnest("confirmed") %>%
map_dfr(replace_na, 0L) %>%
mutate_at("date", as.Date)
# County populations --------------------------------------------------------------------------
file <- "docs/PEP_2018_PEPANNRES_with_ann.csv"
text <- read_csv(file, col_names = FALSE)[1:2,]
temp <- read_csv(file, skip = 2, col_names = FALSE)
names(temp) <- text[1,] %>% unlist(use.names = TRUE) %>% make_clean_names()
Hmisc::label(temp) <- text[2, ]
pa_county_population <- temp %>%
select(county = geo_display_label,
estimate_population = respop72018) %>%
mutate(county = str_remove(county, "\\sCounty,\\sPennsylvania$"))
library(usethis)
use_data(pa_county_confirmed, overwrite = TRUE)
use_data(pa_county_population, overwrite = TRUE)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.