Objectives:

References:

Cholera

# dsn <- "data/SnowGIS_SHP/"
dsn <- fs::path(fs::path_wd(), "data", "SnowGIS_SHP")
if (!dir.exists(dsn))
  usethis::use_zip("http://rtwilson.com/downloads/SnowGIS_SHP.zip", destdir = "data/", cleanup = TRUE)
v Downloading from 'http://rtwilson.com/downloads/SnowGIS_SHP.zip'

Downloaded: 0.01 MB  (0%)
Downloaded: 0.01 MB  (0%)
Downloaded: 0.01 MB  (0%)
Downloaded: 0.01 MB  (0%)
Downloaded: 0.02 MB  (0%)
Downloaded: 0.02 MB  (0%)
Downloaded: 0.03 MB  (0%)
Downloaded: 0.03 MB  (0%)
Downloaded: 0.04 MB  (1%)
Downloaded: 0.04 MB  (1%)
Downloaded: 0.04 MB  (1%)
Downloaded: 0.04 MB  (1%)
Downloaded: 0.05 MB  (1%)
Downloaded: 0.05 MB  (1%)
Downloaded: 0.06 MB  (1%)
Downloaded: 0.06 MB  (1%)
Downloaded: 0.07 MB  (1%)
Downloaded: 0.07 MB  (1%)
Downloaded: 0.08 MB  (1%)
Downloaded: 0.08 MB  (1%)
Downloaded: 0.10 MB  (1%)
Downloaded: 0.10 MB  (1%)
Downloaded: 0.11 MB  (2%)
Downloaded: 0.11 MB  (2%)
Downloaded: 0.13 MB  (2%)
Downloaded: 0.13 MB  (2%)
Downloaded: 0.14 MB  (2%)
Downloaded: 0.14 MB  (2%)
Downloaded: 0.16 MB  (2%)
Downloaded: 0.16 MB  (2%)
Downloaded: 0.16 MB  (3%)
Downloaded: 0.16 MB  (3%)
Downloaded: 0.18 MB  (3%)
Downloaded: 0.18 MB  (3%)
Downloaded: 0.19 MB  (3%)
Downloaded: 0.19 MB  (3%)
Downloaded: 0.21 MB  (3%)
Downloaded: 0.21 MB  (3%)
Downloaded: 0.22 MB  (3%)
Downloaded: 0.22 MB  (3%)
Downloaded: 0.24 MB  (4%)
Downloaded: 0.24 MB  (4%)
Downloaded: 0.25 MB  (4%)
Downloaded: 0.25 MB  (4%)
Downloaded: 0.27 MB  (4%)
Downloaded: 0.27 MB  (4%)
Downloaded: 0.28 MB  (4%)
Downloaded: 0.28 MB  (4%)
Downloaded: 0.30 MB  (5%)
Downloaded: 0.30 MB  (5%)
Downloaded: 0.32 MB  (5%)
Downloaded: 0.32 MB  (5%)
Downloaded: 0.33 MB  (5%)
Downloaded: 0.33 MB  (5%)
Downloaded: 0.34 MB  (5%)
Downloaded: 0.34 MB  (5%)
Downloaded: 0.36 MB  (5%)
Downloaded: 0.36 MB  (5%)
Downloaded: 0.37 MB  (6%)
Downloaded: 0.37 MB  (6%)
Downloaded: 0.39 MB  (6%)
Downloaded: 0.39 MB  (6%)
Downloaded: 0.40 MB  (6%)
Downloaded: 0.40 MB  (6%)
Downloaded: 0.42 MB  (6%)
Downloaded: 0.42 MB  (6%)
Downloaded: 0.43 MB  (7%)
Downloaded: 0.43 MB  (7%)
Downloaded: 0.44 MB  (7%)
Downloaded: 0.44 MB  (7%)
Downloaded: 0.46 MB  (7%)
Downloaded: 0.46 MB  (7%)
Downloaded: 0.47 MB  (7%)
Downloaded: 0.47 MB  (7%)
Downloaded: 0.49 MB  (7%)
Downloaded: 0.49 MB  (7%)
Downloaded: 0.50 MB  (8%)
Downloaded: 0.50 MB  (8%)
Downloaded: 0.52 MB  (8%)
Downloaded: 0.52 MB  (8%)
Downloaded: 0.54 MB  (8%)
Downloaded: 0.54 MB  (8%)
Downloaded: 0.55 MB  (8%)
Downloaded: 0.55 MB  (8%)
Downloaded: 0.56 MB  (9%)
Downloaded: 0.56 MB  (9%)
Downloaded: 0.58 MB  (9%)
Downloaded: 0.58 MB  (9%)
Downloaded: 0.59 MB  (9%)
Downloaded: 0.59 MB  (9%)
Downloaded: 0.60 MB  (9%)
Downloaded: 0.60 MB  (9%)
Downloaded: 0.62 MB  (9%)
Downloaded: 0.62 MB  (9%)
Downloaded: 0.62 MB  (10%)
Downloaded: 0.62 MB  (10%)
Downloaded: 0.64 MB  (10%)
Downloaded: 0.64 MB  (10%)
Downloaded: 0.65 MB  (10%)
Downloaded: 0.65 MB  (10%)
Downloaded: 0.66 MB  (10%)
Downloaded: 0.66 MB  (10%)
Downloaded: 0.67 MB  (10%)
Downloaded: 0.67 MB  (10%)
Downloaded: 0.69 MB  (10%)
Downloaded: 0.69 MB  (10%)
Downloaded: 0.70 MB  (11%)
Downloaded: 0.70 MB  (11%)
Downloaded: 0.72 MB  (11%)
Downloaded: 0.72 MB  (11%)
Downloaded: 0.73 MB  (11%)
Downloaded: 0.73 MB  (11%)
Downloaded: 0.75 MB  (11%)
Downloaded: 0.75 MB  (11%)
Downloaded: 0.76 MB  (12%)
Downloaded: 0.76 MB  (12%)
Downloaded: 0.78 MB  (12%)
Downloaded: 0.78 MB  (12%)
Downloaded: 0.80 MB  (12%)
Downloaded: 0.80 MB  (12%)
Downloaded: 0.81 MB  (12%)
Downloaded: 0.81 MB  (12%)
Downloaded: 0.83 MB  (13%)
Downloaded: 0.83 MB  (13%)
Downloaded: 0.84 MB  (13%)
Downloaded: 0.84 MB  (13%)
Downloaded: 0.86 MB  (13%)
Downloaded: 0.86 MB  (13%)
Downloaded: 0.87 MB  (13%)
Downloaded: 0.87 MB  (13%)
Downloaded: 0.89 MB  (14%)
Downloaded: 0.89 MB  (14%)
Downloaded: 0.91 MB  (14%)
Downloaded: 0.91 MB  (14%)
Downloaded: 0.92 MB  (14%)
Downloaded: 0.92 MB  (14%)
Downloaded: 0.94 MB  (14%)
Downloaded: 0.94 MB  (14%)
Downloaded: 0.95 MB  (15%)
Downloaded: 0.95 MB  (15%)
Downloaded: 0.97 MB  (15%)
Downloaded: 0.97 MB  (15%)
Downloaded: 0.98 MB  (15%)
Downloaded: 0.98 MB  (15%)
Downloaded: 1.00 MB  (15%)
Downloaded: 1.00 MB  (15%)
Downloaded: 1.01 MB  (15%)
Downloaded: 1.01 MB  (15%)
Downloaded: 1.03 MB  (16%)
Downloaded: 1.03 MB  (16%)
Downloaded: 1.05 MB  (16%)
Downloaded: 1.05 MB  (16%)
Downloaded: 1.06 MB  (16%)
Downloaded: 1.06 MB  (16%)
Downloaded: 1.08 MB  (16%)
Downloaded: 1.08 MB  (16%)
Downloaded: 1.09 MB  (17%)
Downloaded: 1.09 MB  (17%)
Downloaded: 1.11 MB  (17%)
Downloaded: 1.11 MB  (17%)
Downloaded: 1.12 MB  (17%)
Downloaded: 1.12 MB  (17%)
Downloaded: 1.14 MB  (17%)
Downloaded: 1.14 MB  (17%)
Downloaded: 1.16 MB  (18%)
Downloaded: 1.16 MB  (18%)
Downloaded: 1.16 MB  (18%)
Downloaded: 1.16 MB  (18%)
Downloaded: 1.17 MB  (18%)
Downloaded: 1.17 MB  (18%)
Downloaded: 1.19 MB  (18%)
Downloaded: 1.19 MB  (18%)
Downloaded: 1.20 MB  (18%)
Downloaded: 1.20 MB  (18%)
Downloaded: 1.22 MB  (19%)
Downloaded: 1.22 MB  (19%)
Downloaded: 1.23 MB  (19%)
Downloaded: 1.23 MB  (19%)
Downloaded: 1.25 MB  (19%)
Downloaded: 1.25 MB  (19%)
Downloaded: 1.27 MB  (19%)
Downloaded: 1.27 MB  (19%)
Downloaded: 1.28 MB  (20%)
Downloaded: 1.28 MB  (20%)
Downloaded: 1.30 MB  (20%)
Downloaded: 1.30 MB  (20%)
Downloaded: 1.31 MB  (20%)
Downloaded: 1.31 MB  (20%)
Downloaded: 1.33 MB  (20%)
Downloaded: 1.33 MB  (20%)
Downloaded: 1.34 MB  (20%)
Downloaded: 1.34 MB  (20%)
Downloaded: 1.36 MB  (21%)
Downloaded: 1.36 MB  (21%)
Downloaded: 1.38 MB  (21%)
Downloaded: 1.38 MB  (21%)
Downloaded: 1.39 MB  (21%)
Downloaded: 1.39 MB  (21%)
Downloaded: 1.41 MB  (21%)
Downloaded: 1.41 MB  (21%)
Downloaded: 1.42 MB  (22%)
Downloaded: 1.42 MB  (22%)
Downloaded: 1.44 MB  (22%)
Downloaded: 1.44 MB  (22%)
Downloaded: 1.45 MB  (22%)
Downloaded: 1.45 MB  (22%)
Downloaded: 1.47 MB  (22%)
Downloaded: 1.47 MB  (22%)
Downloaded: 1.48 MB  (23%)
Downloaded: 1.48 MB  (23%)
Downloaded: 1.50 MB  (23%)
Downloaded: 1.50 MB  (23%)
Downloaded: 1.52 MB  (23%)
Downloaded: 1.52 MB  (23%)
Downloaded: 1.53 MB  (23%)
Downloaded: 1.53 MB  (23%)
Downloaded: 1.55 MB  (24%)
Downloaded: 1.55 MB  (24%)
Downloaded: 1.56 MB  (24%)
Downloaded: 1.56 MB  (24%)
Downloaded: 1.58 MB  (24%)
Downloaded: 1.58 MB  (24%)
Downloaded: 1.59 MB  (24%)
Downloaded: 1.59 MB  (24%)
Downloaded: 1.61 MB  (25%)
Downloaded: 1.61 MB  (25%)
Downloaded: 1.63 MB  (25%)
Downloaded: 1.63 MB  (25%)
Downloaded: 1.64 MB  (25%)
Downloaded: 1.64 MB  (25%)
Downloaded: 1.66 MB  (25%)
Downloaded: 1.66 MB  (25%)
Downloaded: 1.67 MB  (25%)
Downloaded: 1.67 MB  (25%)
Downloaded: 1.68 MB  (26%)
Downloaded: 1.68 MB  (26%)
Downloaded: 1.70 MB  (26%)
Downloaded: 1.70 MB  (26%)
Downloaded: 1.71 MB  (26%)
Downloaded: 1.71 MB  (26%)
Downloaded: 1.73 MB  (26%)
Downloaded: 1.73 MB  (26%)
Downloaded: 1.74 MB  (27%)
Downloaded: 1.74 MB  (27%)
Downloaded: 1.76 MB  (27%)
Downloaded: 1.76 MB  (27%)
Downloaded: 1.77 MB  (27%)
Downloaded: 1.77 MB  (27%)
Downloaded: 1.79 MB  (27%)
Downloaded: 1.79 MB  (27%)
Downloaded: 1.80 MB  (28%)
Downloaded: 1.80 MB  (28%)
Downloaded: 1.82 MB  (28%)
Downloaded: 1.82 MB  (28%)
Downloaded: 1.84 MB  (28%)
Downloaded: 1.84 MB  (28%)
Downloaded: 1.85 MB  (28%)
Downloaded: 1.85 MB  (28%)
Downloaded: 1.87 MB  (28%)
Downloaded: 1.87 MB  (28%)
Downloaded: 1.88 MB  (29%)
Downloaded: 1.88 MB  (29%)
Downloaded: 1.90 MB  (29%)
Downloaded: 1.90 MB  (29%)
Downloaded: 1.91 MB  (29%)
Downloaded: 1.91 MB  (29%)
Downloaded: 1.93 MB  (29%)
Downloaded: 1.93 MB  (29%)
Downloaded: 1.95 MB  (30%)
Downloaded: 1.95 MB  (30%)
Downloaded: 1.96 MB  (30%)
Downloaded: 1.96 MB  (30%)
Downloaded: 1.98 MB  (30%)
Downloaded: 1.98 MB  (30%)
Downloaded: 1.99 MB  (30%)
Downloaded: 1.99 MB  (30%)
Downloaded: 2.01 MB  (31%)
Downloaded: 2.01 MB  (31%)
Downloaded: 2.02 MB  (31%)
Downloaded: 2.02 MB  (31%)
Downloaded: 2.04 MB  (31%)
Downloaded: 2.04 MB  (31%)
Downloaded: 2.05 MB  (31%)
Downloaded: 2.05 MB  (31%)
Downloaded: 2.07 MB  (32%)
Downloaded: 2.07 MB  (32%)
Downloaded: 2.09 MB  (32%)
Downloaded: 2.09 MB  (32%)
Downloaded: 2.10 MB  (32%)
Downloaded: 2.10 MB  (32%)
Downloaded: 2.12 MB  (32%)
Downloaded: 2.12 MB  (32%)
Downloaded: 2.13 MB  (33%)
Downloaded: 2.13 MB  (33%)
Downloaded: 2.15 MB  (33%)
Downloaded: 2.15 MB  (33%)
Downloaded: 2.16 MB  (33%)
Downloaded: 2.16 MB  (33%)
Downloaded: 2.18 MB  (33%)
Downloaded: 2.18 MB  (33%)
Downloaded: 2.20 MB  (33%)
Downloaded: 2.20 MB  (33%)
Downloaded: 2.21 MB  (34%)
Downloaded: 2.21 MB  (34%)
Downloaded: 2.23 MB  (34%)
Downloaded: 2.23 MB  (34%)
Downloaded: 2.23 MB  (34%)
Downloaded: 2.23 MB  (34%)
Downloaded: 2.23 MB  (34%)
Downloaded: 2.23 MB  (34%)
Downloaded: 2.25 MB  (34%)
Downloaded: 2.25 MB  (34%)
Downloaded: 2.26 MB  (35%)
Downloaded: 2.26 MB  (35%)
Downloaded: 2.28 MB  (35%)
Downloaded: 2.28 MB  (35%)
Downloaded: 2.29 MB  (35%)
Downloaded: 2.29 MB  (35%)
Downloaded: 2.31 MB  (35%)
Downloaded: 2.31 MB  (35%)
Downloaded: 2.32 MB  (35%)
Downloaded: 2.32 MB  (35%)
Downloaded: 2.34 MB  (36%)
Downloaded: 2.34 MB  (36%)
Downloaded: 2.36 MB  (36%)
Downloaded: 2.36 MB  (36%)
Downloaded: 2.37 MB  (36%)
Downloaded: 2.37 MB  (36%)
Downloaded: 2.39 MB  (36%)
Downloaded: 2.39 MB  (36%)
Downloaded: 2.40 MB  (37%)
Downloaded: 2.40 MB  (37%)
Downloaded: 2.42 MB  (37%)
Downloaded: 2.42 MB  (37%)
Downloaded: 2.43 MB  (37%)
Downloaded: 2.43 MB  (37%)
Downloaded: 2.45 MB  (37%)
Downloaded: 2.45 MB  (37%)
Downloaded: 2.47 MB  (38%)
Downloaded: 2.47 MB  (38%)
Downloaded: 2.48 MB  (38%)
Downloaded: 2.48 MB  (38%)
Downloaded: 2.50 MB  (38%)
Downloaded: 2.50 MB  (38%)
Downloaded: 2.51 MB  (38%)
Downloaded: 2.51 MB  (38%)
Downloaded: 2.53 MB  (39%)
Downloaded: 2.53 MB  (39%)
Downloaded: 2.54 MB  (39%)
Downloaded: 2.54 MB  (39%)
Downloaded: 2.56 MB  (39%)
Downloaded: 2.56 MB  (39%)
Downloaded: 2.57 MB  (39%)
Downloaded: 2.57 MB  (39%)
Downloaded: 2.59 MB  (39%)
Downloaded: 2.59 MB  (39%)
Downloaded: 2.61 MB  (40%)
Downloaded: 2.61 MB  (40%)
Downloaded: 2.62 MB  (40%)
Downloaded: 2.62 MB  (40%)
Downloaded: 2.64 MB  (40%)
Downloaded: 2.64 MB  (40%)
Downloaded: 2.65 MB  (40%)
Downloaded: 2.65 MB  (40%)
Downloaded: 2.65 MB  (40%)
Downloaded: 2.65 MB  (40%)
Downloaded: 2.67 MB  (41%)
Downloaded: 2.67 MB  (41%)
Downloaded: 2.68 MB  (41%)
Downloaded: 2.68 MB  (41%)
Downloaded: 2.70 MB  (41%)
Downloaded: 2.70 MB  (41%)
Downloaded: 2.72 MB  (41%)
Downloaded: 2.72 MB  (41%)
Downloaded: 2.73 MB  (42%)
Downloaded: 2.73 MB  (42%)
Downloaded: 2.75 MB  (42%)
Downloaded: 2.75 MB  (42%)
Downloaded: 2.76 MB  (42%)
Downloaded: 2.76 MB  (42%)
Downloaded: 2.78 MB  (42%)
Downloaded: 2.78 MB  (42%)
Downloaded: 2.79 MB  (43%)
Downloaded: 2.79 MB  (43%)
Downloaded: 2.81 MB  (43%)
Downloaded: 2.81 MB  (43%)
Downloaded: 2.83 MB  (43%)
Downloaded: 2.83 MB  (43%)
Downloaded: 2.84 MB  (43%)
Downloaded: 2.84 MB  (43%)
Downloaded: 2.86 MB  (44%)
Downloaded: 2.86 MB  (44%)
Downloaded: 2.87 MB  (44%)
Downloaded: 2.87 MB  (44%)
Downloaded: 2.89 MB  (44%)
Downloaded: 2.89 MB  (44%)
Downloaded: 2.90 MB  (44%)
Downloaded: 2.90 MB  (44%)
Downloaded: 2.92 MB  (45%)
Downloaded: 2.92 MB  (45%)
Downloaded: 2.93 MB  (45%)
Downloaded: 2.93 MB  (45%)
Downloaded: 2.95 MB  (45%)
Downloaded: 2.95 MB  (45%)
Downloaded: 2.97 MB  (45%)
Downloaded: 2.97 MB  (45%)
Downloaded: 2.98 MB  (45%)
Downloaded: 2.98 MB  (45%)
Downloaded: 3.00 MB  (46%)
Downloaded: 3.00 MB  (46%)
Downloaded: 3.01 MB  (46%)
Downloaded: 3.01 MB  (46%)
Downloaded: 3.03 MB  (46%)
Downloaded: 3.03 MB  (46%)
Downloaded: 3.04 MB  (46%)
Downloaded: 3.04 MB  (46%)
Downloaded: 3.06 MB  (47%)
Downloaded: 3.06 MB  (47%)
Downloaded: 3.08 MB  (47%)
Downloaded: 3.08 MB  (47%)
Downloaded: 3.09 MB  (47%)
Downloaded: 3.09 MB  (47%)
Downloaded: 3.11 MB  (47%)
Downloaded: 3.11 MB  (47%)
Downloaded: 3.12 MB  (48%)
Downloaded: 3.12 MB  (48%)
Downloaded: 3.14 MB  (48%)
Downloaded: 3.14 MB  (48%)
Downloaded: 3.15 MB  (48%)
Downloaded: 3.15 MB  (48%)
Downloaded: 3.17 MB  (48%)
Downloaded: 3.17 MB  (48%)
Downloaded: 3.18 MB  (49%)
Downloaded: 3.18 MB  (49%)
Downloaded: 3.20 MB  (49%)
Downloaded: 3.20 MB  (49%)
Downloaded: 3.22 MB  (49%)
Downloaded: 3.22 MB  (49%)
Downloaded: 3.23 MB  (49%)
Downloaded: 3.23 MB  (49%)
Downloaded: 3.25 MB  (50%)
Downloaded: 3.25 MB  (50%)
Downloaded: 3.26 MB  (50%)
Downloaded: 3.26 MB  (50%)
Downloaded: 3.28 MB  (50%)
Downloaded: 3.28 MB  (50%)
Downloaded: 3.29 MB  (50%)
Downloaded: 3.29 MB  (50%)
Downloaded: 3.31 MB  (50%)
Downloaded: 3.31 MB  (50%)
Downloaded: 3.33 MB  (51%)
Downloaded: 3.33 MB  (51%)
Downloaded: 3.34 MB  (51%)
Downloaded: 3.34 MB  (51%)
Downloaded: 3.36 MB  (51%)
Downloaded: 3.36 MB  (51%)
Downloaded: 3.37 MB  (51%)
Downloaded: 3.37 MB  (51%)
Downloaded: 3.39 MB  (52%)
Downloaded: 3.39 MB  (52%)
Downloaded: 3.40 MB  (52%)
Downloaded: 3.40 MB  (52%)
Downloaded: 3.42 MB  (52%)
Downloaded: 3.42 MB  (52%)
Downloaded: 3.43 MB  (52%)
Downloaded: 3.43 MB  (52%)
Downloaded: 3.45 MB  (53%)
Downloaded: 3.45 MB  (53%)
Downloaded: 3.47 MB  (53%)
Downloaded: 3.47 MB  (53%)
Downloaded: 3.48 MB  (53%)
Downloaded: 3.48 MB  (53%)
Downloaded: 3.50 MB  (53%)
Downloaded: 3.50 MB  (53%)
Downloaded: 3.51 MB  (54%)
Downloaded: 3.51 MB  (54%)
Downloaded: 3.53 MB  (54%)
Downloaded: 3.53 MB  (54%)
Downloaded: 3.54 MB  (54%)
Downloaded: 3.54 MB  (54%)
Downloaded: 3.56 MB  (54%)
Downloaded: 3.56 MB  (54%)
Downloaded: 3.58 MB  (55%)
Downloaded: 3.58 MB  (55%)
Downloaded: 3.59 MB  (55%)
Downloaded: 3.59 MB  (55%)
Downloaded: 3.61 MB  (55%)
Downloaded: 3.61 MB  (55%)
Downloaded: 3.62 MB  (55%)
Downloaded: 3.62 MB  (55%)
Downloaded: 3.64 MB  (55%)
Downloaded: 3.64 MB  (55%)
Downloaded: 3.65 MB  (56%)
Downloaded: 3.65 MB  (56%)
Downloaded: 3.67 MB  (56%)
Downloaded: 3.67 MB  (56%)
Downloaded: 3.68 MB  (56%)
Downloaded: 3.68 MB  (56%)
Downloaded: 3.70 MB  (56%)
Downloaded: 3.70 MB  (56%)
Downloaded: 3.72 MB  (57%)
Downloaded: 3.72 MB  (57%)
Downloaded: 3.73 MB  (57%)
Downloaded: 3.73 MB  (57%)
Downloaded: 3.75 MB  (57%)
Downloaded: 3.75 MB  (57%)
Downloaded: 3.76 MB  (57%)
Downloaded: 3.76 MB  (57%)
Downloaded: 3.78 MB  (58%)
Downloaded: 3.78 MB  (58%)
Downloaded: 3.78 MB  (58%)
Downloaded: 3.78 MB  (58%)
Downloaded: 3.79 MB  (58%)
Downloaded: 3.79 MB  (58%)
Downloaded: 3.80 MB  (58%)
Downloaded: 3.80 MB  (58%)
Downloaded: 3.81 MB  (58%)
Downloaded: 3.81 MB  (58%)
Downloaded: 3.82 MB  (58%)
Downloaded: 3.82 MB  (58%)
Downloaded: 3.84 MB  (58%)
Downloaded: 3.84 MB  (58%)
Downloaded: 3.85 MB  (59%)
Downloaded: 3.85 MB  (59%)
Downloaded: 3.87 MB  (59%)
Downloaded: 3.87 MB  (59%)
Downloaded: 3.88 MB  (59%)
Downloaded: 3.88 MB  (59%)
Downloaded: 3.90 MB  (59%)
Downloaded: 3.90 MB  (59%)
Downloaded: 3.91 MB  (60%)
Downloaded: 3.91 MB  (60%)
Downloaded: 3.93 MB  (60%)
Downloaded: 3.93 MB  (60%)
Downloaded: 3.95 MB  (60%)
Downloaded: 3.95 MB  (60%)
Downloaded: 3.96 MB  (60%)
Downloaded: 3.96 MB  (60%)
Downloaded: 3.98 MB  (61%)
Downloaded: 3.98 MB  (61%)
Downloaded: 3.99 MB  (61%)
Downloaded: 3.99 MB  (61%)
Downloaded: 4.01 MB  (61%)
Downloaded: 4.01 MB  (61%)
Downloaded: 4.02 MB  (61%)
Downloaded: 4.02 MB  (61%)
Downloaded: 4.04 MB  (62%)
Downloaded: 4.04 MB  (62%)
Downloaded: 4.05 MB  (62%)
Downloaded: 4.05 MB  (62%)
Downloaded: 4.07 MB  (62%)
Downloaded: 4.07 MB  (62%)
Downloaded: 4.09 MB  (62%)
Downloaded: 4.09 MB  (62%)
Downloaded: 4.10 MB  (63%)
Downloaded: 4.10 MB  (63%)
Downloaded: 4.12 MB  (63%)
Downloaded: 4.12 MB  (63%)
Downloaded: 4.13 MB  (63%)
Downloaded: 4.13 MB  (63%)
Downloaded: 4.15 MB  (63%)
Downloaded: 4.15 MB  (63%)
Downloaded: 4.16 MB  (64%)
Downloaded: 4.16 MB  (64%)
Downloaded: 4.18 MB  (64%)
Downloaded: 4.18 MB  (64%)
Downloaded: 4.20 MB  (64%)
Downloaded: 4.20 MB  (64%)
Downloaded: 4.20 MB  (64%)
Downloaded: 4.20 MB  (64%)
Downloaded: 4.21 MB  (64%)
Downloaded: 4.21 MB  (64%)
Downloaded: 4.21 MB  (64%)
Downloaded: 4.21 MB  (64%)
Downloaded: 4.22 MB  (64%)
Downloaded: 4.22 MB  (64%)
Downloaded: 4.23 MB  (65%)
Downloaded: 4.23 MB  (65%)
Downloaded: 4.24 MB  (65%)
Downloaded: 4.24 MB  (65%)
Downloaded: 4.25 MB  (65%)
Downloaded: 4.25 MB  (65%)
Downloaded: 4.27 MB  (65%)
Downloaded: 4.27 MB  (65%)
Downloaded: 4.28 MB  (65%)
Downloaded: 4.28 MB  (65%)
Downloaded: 4.30 MB  (66%)
Downloaded: 4.30 MB  (66%)
Downloaded: 4.31 MB  (66%)
Downloaded: 4.31 MB  (66%)
Downloaded: 4.33 MB  (66%)
Downloaded: 4.33 MB  (66%)
Downloaded: 4.35 MB  (66%)
Downloaded: 4.35 MB  (66%)
Downloaded: 4.36 MB  (67%)
Downloaded: 4.36 MB  (67%)
Downloaded: 4.38 MB  (67%)
Downloaded: 4.38 MB  (67%)
Downloaded: 4.39 MB  (67%)
Downloaded: 4.39 MB  (67%)
Downloaded: 4.41 MB  (67%)
Downloaded: 4.41 MB  (67%)
Downloaded: 4.42 MB  (67%)
Downloaded: 4.42 MB  (67%)
Downloaded: 4.44 MB  (68%)
Downloaded: 4.44 MB  (68%)
Downloaded: 4.46 MB  (68%)
Downloaded: 4.46 MB  (68%)
Downloaded: 4.47 MB  (68%)
Downloaded: 4.47 MB  (68%)
Downloaded: 4.49 MB  (68%)
Downloaded: 4.49 MB  (68%)
Downloaded: 4.50 MB  (69%)
Downloaded: 4.50 MB  (69%)
Downloaded: 4.52 MB  (69%)
Downloaded: 4.52 MB  (69%)
Downloaded: 4.53 MB  (69%)
Downloaded: 4.53 MB  (69%)
Downloaded: 4.55 MB  (69%)
Downloaded: 4.55 MB  (69%)
Downloaded: 4.56 MB  (70%)
Downloaded: 4.56 MB  (70%)
Downloaded: 4.58 MB  (70%)
Downloaded: 4.58 MB  (70%)
Downloaded: 4.60 MB  (70%)
Downloaded: 4.60 MB  (70%)
Downloaded: 4.61 MB  (70%)
Downloaded: 4.61 MB  (70%)
Downloaded: 4.62 MB  (70%)
Downloaded: 4.62 MB  (70%)
Downloaded: 4.63 MB  (71%)
Downloaded: 4.63 MB  (71%)
Downloaded: 4.63 MB  (71%)
Downloaded: 4.63 MB  (71%)
Downloaded: 4.65 MB  (71%)
Downloaded: 4.65 MB  (71%)
Downloaded: 4.65 MB  (71%)
Downloaded: 4.65 MB  (71%)
Downloaded: 4.66 MB  (71%)
Downloaded: 4.66 MB  (71%)
Downloaded: 4.68 MB  (71%)
Downloaded: 4.68 MB  (71%)
Downloaded: 4.69 MB  (72%)
Downloaded: 4.69 MB  (72%)
Downloaded: 4.71 MB  (72%)
Downloaded: 4.71 MB  (72%)
Downloaded: 4.72 MB  (72%)
Downloaded: 4.72 MB  (72%)
Downloaded: 4.74 MB  (72%)
Downloaded: 4.74 MB  (72%)
Downloaded: 4.75 MB  (72%)
Downloaded: 4.75 MB  (72%)
Downloaded: 4.77 MB  (73%)
Downloaded: 4.77 MB  (73%)
Downloaded: 4.78 MB  (73%)
Downloaded: 4.78 MB  (73%)
Downloaded: 4.80 MB  (73%)
Downloaded: 4.80 MB  (73%)
Downloaded: 4.82 MB  (73%)
Downloaded: 4.82 MB  (73%)
Downloaded: 4.83 MB  (74%)
Downloaded: 4.83 MB  (74%)
Downloaded: 4.85 MB  (74%)
Downloaded: 4.85 MB  (74%)
Downloaded: 4.86 MB  (74%)
Downloaded: 4.86 MB  (74%)
Downloaded: 4.88 MB  (74%)
Downloaded: 4.88 MB  (74%)
Downloaded: 4.89 MB  (75%)
Downloaded: 4.89 MB  (75%)
Downloaded: 4.91 MB  (75%)
Downloaded: 4.91 MB  (75%)
Downloaded: 4.92 MB  (75%)
Downloaded: 4.92 MB  (75%)
Downloaded: 4.94 MB  (75%)
Downloaded: 4.94 MB  (75%)
Downloaded: 4.96 MB  (76%)
Downloaded: 4.96 MB  (76%)
Downloaded: 4.97 MB  (76%)
Downloaded: 4.97 MB  (76%)
Downloaded: 4.99 MB  (76%)
Downloaded: 4.99 MB  (76%)
Downloaded: 5.00 MB  (76%)
Downloaded: 5.00 MB  (76%)
Downloaded: 5.02 MB  (77%)
Downloaded: 5.02 MB  (77%)
Downloaded: 5.03 MB  (77%)
Downloaded: 5.03 MB  (77%)
Downloaded: 5.05 MB  (77%)
Downloaded: 5.05 MB  (77%)
Downloaded: 5.06 MB  (77%)
Downloaded: 5.06 MB  (77%)
Downloaded: 5.06 MB  (77%)
Downloaded: 5.06 MB  (77%)
Downloaded: 5.07 MB  (77%)
Downloaded: 5.07 MB  (77%)
Downloaded: 5.08 MB  (77%)
Downloaded: 5.08 MB  (77%)
Downloaded: 5.08 MB  (77%)
Downloaded: 5.08 MB  (77%)
Downloaded: 5.09 MB  (78%)
Downloaded: 5.09 MB  (78%)
Downloaded: 5.11 MB  (78%)
Downloaded: 5.11 MB  (78%)
Downloaded: 5.12 MB  (78%)
Downloaded: 5.12 MB  (78%)
Downloaded: 5.13 MB  (78%)
Downloaded: 5.13 MB  (78%)
Downloaded: 5.15 MB  (78%)
Downloaded: 5.15 MB  (78%)
Downloaded: 5.16 MB  (79%)
Downloaded: 5.16 MB  (79%)
Downloaded: 5.18 MB  (79%)
Downloaded: 5.18 MB  (79%)
Downloaded: 5.19 MB  (79%)
Downloaded: 5.19 MB  (79%)
Downloaded: 5.21 MB  (79%)
Downloaded: 5.21 MB  (79%)
Downloaded: 5.22 MB  (80%)
Downloaded: 5.22 MB  (80%)
Downloaded: 5.24 MB  (80%)
Downloaded: 5.24 MB  (80%)
Downloaded: 5.26 MB  (80%)
Downloaded: 5.26 MB  (80%)
Downloaded: 5.27 MB  (80%)
Downloaded: 5.27 MB  (80%)
Downloaded: 5.29 MB  (81%)
Downloaded: 5.29 MB  (81%)
Downloaded: 5.30 MB  (81%)
Downloaded: 5.30 MB  (81%)
Downloaded: 5.32 MB  (81%)
Downloaded: 5.32 MB  (81%)
Downloaded: 5.33 MB  (81%)
Downloaded: 5.33 MB  (81%)
Downloaded: 5.35 MB  (82%)
Downloaded: 5.35 MB  (82%)
Downloaded: 5.37 MB  (82%)
Downloaded: 5.37 MB  (82%)
Downloaded: 5.38 MB  (82%)
Downloaded: 5.38 MB  (82%)
Downloaded: 5.40 MB  (82%)
Downloaded: 5.40 MB  (82%)
Downloaded: 5.41 MB  (83%)
Downloaded: 5.41 MB  (83%)
Downloaded: 5.43 MB  (83%)
Downloaded: 5.43 MB  (83%)
Downloaded: 5.44 MB  (83%)
Downloaded: 5.44 MB  (83%)
Downloaded: 5.46 MB  (83%)
Downloaded: 5.46 MB  (83%)
Downloaded: 5.47 MB  (83%)
Downloaded: 5.47 MB  (83%)
Downloaded: 5.48 MB  (84%)
Downloaded: 5.48 MB  (84%)
Downloaded: 5.48 MB  (84%)
Downloaded: 5.48 MB  (84%)
Downloaded: 5.48 MB  (84%)
Downloaded: 5.48 MB  (84%)
Downloaded: 5.49 MB  (84%)
Downloaded: 5.49 MB  (84%)
Downloaded: 5.50 MB  (84%)
Downloaded: 5.50 MB  (84%)
Downloaded: 5.50 MB  (84%)
Downloaded: 5.50 MB  (84%)
Downloaded: 5.52 MB  (84%)
Downloaded: 5.52 MB  (84%)
Downloaded: 5.52 MB  (84%)
Downloaded: 5.52 MB  (84%)
Downloaded: 5.53 MB  (84%)
Downloaded: 5.53 MB  (84%)
Downloaded: 5.54 MB  (85%)
Downloaded: 5.54 MB  (85%)
Downloaded: 5.56 MB  (85%)
Downloaded: 5.56 MB  (85%)
Downloaded: 5.57 MB  (85%)
Downloaded: 5.57 MB  (85%)
Downloaded: 5.59 MB  (85%)
Downloaded: 5.59 MB  (85%)
Downloaded: 5.60 MB  (85%)
Downloaded: 5.60 MB  (85%)
Downloaded: 5.62 MB  (86%)
Downloaded: 5.62 MB  (86%)
Downloaded: 5.64 MB  (86%)
Downloaded: 5.64 MB  (86%)
Downloaded: 5.65 MB  (86%)
Downloaded: 5.65 MB  (86%)
Downloaded: 5.67 MB  (86%)
Downloaded: 5.67 MB  (86%)
Downloaded: 5.68 MB  (87%)
Downloaded: 5.68 MB  (87%)
Downloaded: 5.70 MB  (87%)
Downloaded: 5.70 MB  (87%)
Downloaded: 5.71 MB  (87%)
Downloaded: 5.71 MB  (87%)
Downloaded: 5.73 MB  (87%)
Downloaded: 5.73 MB  (87%)
Downloaded: 5.74 MB  (88%)
Downloaded: 5.74 MB  (88%)
Downloaded: 5.76 MB  (88%)
Downloaded: 5.76 MB  (88%)
Downloaded: 5.78 MB  (88%)
Downloaded: 5.78 MB  (88%)
Downloaded: 5.79 MB  (88%)
Downloaded: 5.79 MB  (88%)
Downloaded: 5.81 MB  (89%)
Downloaded: 5.81 MB  (89%)
Downloaded: 5.82 MB  (89%)
Downloaded: 5.82 MB  (89%)
Downloaded: 5.84 MB  (89%)
Downloaded: 5.84 MB  (89%)
Downloaded: 5.85 MB  (89%)
Downloaded: 5.85 MB  (89%)
Downloaded: 5.87 MB  (90%)
Downloaded: 5.87 MB  (90%)
Downloaded: 5.89 MB  (90%)
Downloaded: 5.89 MB  (90%)
Downloaded: 5.90 MB  (90%)
Downloaded: 5.90 MB  (90%)
Downloaded: 5.90 MB  (90%)
Downloaded: 5.90 MB  (90%)
Downloaded: 5.91 MB  (90%)
Downloaded: 5.91 MB  (90%)
Downloaded: 5.91 MB  (90%)
Downloaded: 5.91 MB  (90%)
Downloaded: 5.92 MB  (90%)
Downloaded: 5.92 MB  (90%)
Downloaded: 5.93 MB  (90%)
Downloaded: 5.93 MB  (90%)
Downloaded: 5.95 MB  (91%)
Downloaded: 5.95 MB  (91%)
Downloaded: 5.95 MB  (91%)
Downloaded: 5.95 MB  (91%)
Downloaded: 5.97 MB  (91%)
Downloaded: 5.97 MB  (91%)
Downloaded: 5.98 MB  (91%)
Downloaded: 5.98 MB  (91%)
Downloaded: 6.00 MB  (92%)
Downloaded: 6.00 MB  (92%)
Downloaded: 6.02 MB  (92%)
Downloaded: 6.02 MB  (92%)
Downloaded: 6.03 MB  (92%)
Downloaded: 6.03 MB  (92%)
Downloaded: 6.05 MB  (92%)
Downloaded: 6.05 MB  (92%)
Downloaded: 6.06 MB  (92%)
Downloaded: 6.06 MB  (92%)
Downloaded: 6.08 MB  (93%)
Downloaded: 6.08 MB  (93%)
Downloaded: 6.09 MB  (93%)
Downloaded: 6.09 MB  (93%)
Downloaded: 6.11 MB  (93%)
Downloaded: 6.11 MB  (93%)
Downloaded: 6.13 MB  (93%)
Downloaded: 6.13 MB  (93%)
Downloaded: 6.14 MB  (94%)
Downloaded: 6.14 MB  (94%)
Downloaded: 6.16 MB  (94%)
Downloaded: 6.16 MB  (94%)
Downloaded: 6.17 MB  (94%)
Downloaded: 6.17 MB  (94%)
Downloaded: 6.19 MB  (94%)
Downloaded: 6.19 MB  (94%)
Downloaded: 6.20 MB  (95%)
Downloaded: 6.20 MB  (95%)
Downloaded: 6.22 MB  (95%)
Downloaded: 6.22 MB  (95%)
Downloaded: 6.23 MB  (95%)
Downloaded: 6.23 MB  (95%)
Downloaded: 6.25 MB  (95%)
Downloaded: 6.25 MB  (95%)
Downloaded: 6.27 MB  (96%)
Downloaded: 6.27 MB  (96%)
Downloaded: 6.28 MB  (96%)
Downloaded: 6.28 MB  (96%)
Downloaded: 6.30 MB  (96%)
Downloaded: 6.30 MB  (96%)
Downloaded: 6.31 MB  (96%)
Downloaded: 6.31 MB  (96%)
Downloaded: 6.33 MB  (97%)
Downloaded: 6.33 MB  (97%)
Downloaded: 6.34 MB  (97%)
Downloaded: 6.34 MB  (97%)
Downloaded: 6.35 MB  (97%)
Downloaded: 6.35 MB  (97%)
Downloaded: 6.36 MB  (97%)
Downloaded: 6.36 MB  (97%)
Downloaded: 6.37 MB  (97%)
Downloaded: 6.37 MB  (97%)
Downloaded: 6.38 MB  (97%)
Downloaded: 6.38 MB  (97%)
Downloaded: 6.39 MB  (97%)
Downloaded: 6.39 MB  (97%)
Downloaded: 6.40 MB  (98%)
Downloaded: 6.40 MB  (98%)
Downloaded: 6.42 MB  (98%)
Downloaded: 6.42 MB  (98%)
Downloaded: 6.43 MB  (98%)
Downloaded: 6.43 MB  (98%)
Downloaded: 6.45 MB  (98%)
Downloaded: 6.45 MB  (98%)
Downloaded: 6.46 MB  (99%)
Downloaded: 6.46 MB  (99%)
Downloaded: 6.48 MB  (99%)
Downloaded: 6.48 MB  (99%)
Downloaded: 6.50 MB  (99%)
Downloaded: 6.50 MB  (99%)
Downloaded: 6.51 MB  (99%)
Downloaded: 6.51 MB  (99%)
Downloaded: 6.53 MB  (100%)
Downloaded: 6.53 MB  (100%)
Downloaded: 6.54 MB  (100%)
Downloaded: 6.54 MB  (100%)
Downloaded: 6.56 MB  (100%)
Downloaded: 6.56 MB  (100%)
Downloaded: 6.56 MB  (100%)
Downloaded: 6.56 MB  (100%)
v Download stored in 'data/SnowGIS_SHP.zip'
v Unpacking ZIP file into 'SnowGIS_SHP/' (23 files extracted)
v Deleting 'SnowGIS_SHP.zip'
st_layers(dsn)
Driver: ESRI Shapefile 
Available layers:
      layer_name geometry_type features fields
1 Cholera_Deaths         Point      250      2
2          Pumps         Point        8      1
cholera_deaths <-  st_read(dsn, layer = "Cholera_Deaths")
Reading layer `Cholera_Deaths' from data source 
  `C:\projects\info601\info601\materials\13geospatial\lab\data\SnowGIS_SHP' 
  using driver `ESRI Shapefile'
Simple feature collection with 250 features and 2 fields
Geometry type: POINT
Dimension:     XY
Bounding box:  xmin: 529160.3 ymin: 180857.9 xmax: 529655.9 ymax: 181306.2
Projected CRS: OSGB 1936 / British National Grid
cholera_pumps <- st_read(dsn, layer = "Pumps")
Reading layer `Pumps' from data source 
  `C:\projects\info601\info601\materials\13geospatial\lab\data\SnowGIS_SHP' 
  using driver `ESRI Shapefile'
Simple feature collection with 8 features and 1 field
Geometry type: POINT
Dimension:     XY
Bounding box:  xmin: 529183.7 ymin: 180660.5 xmax: 529748.9 ymax: 181193.7
Projected CRS: OSGB 1936 / British National Grid
st_bbox(cholera_deaths)
    xmin     ymin     xmax     ymax 
529160.3 180857.9 529655.9 181306.2 

What are those?

ggplot(cholera_deaths) +
  annotation_map_tile(type = "osm", zoomin = 0) +
  geom_sf(aes(size = Count), alpha = 0.7)
Zoom: 17
Fetching 16 missing tiles

  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |====                                                                  |   6%
  |                                                                            
  |=========                                                             |  12%
  |                                                                            
  |=============                                                         |  19%
  |                                                                            
  |==================                                                    |  25%
  |                                                                            
  |======================                                                |  31%
  |                                                                            
  |==========================                                            |  38%
  |                                                                            
  |===============================                                       |  44%
  |                                                                            
  |===================================                                   |  50%
  |                                                                            
  |=======================================                               |  56%
  |                                                                            
  |============================================                          |  62%
  |                                                                            
  |================================================                      |  69%
  |                                                                            
  |====================================================                  |  75%
  |                                                                            
  |=========================================================             |  81%
  |                                                                            
  |=============================================================         |  88%
  |                                                                            
  |==================================================================    |  94%
  |                                                                            
  |======================================================================| 100%
...complete!

Oops this is incorrectly projected.

st_crs(cholera_deaths)
Coordinate Reference System:
  User input: OSGB 1936 / British National Grid 
  wkt:
PROJCRS["OSGB 1936 / British National Grid",
    BASEGEOGCRS["OSGB 1936",
        DATUM["OSGB 1936",
            ELLIPSOID["Airy 1830",6377563.396,299.3249646,
                LENGTHUNIT["metre",1]]],
        PRIMEM["Greenwich",0,
            ANGLEUNIT["degree",0.0174532925199433]],
        ID["EPSG",4277]],
    CONVERSION["British National Grid",
        METHOD["Transverse Mercator",
            ID["EPSG",9807]],
        PARAMETER["Latitude of natural origin",49,
            ANGLEUNIT["degree",0.0174532925199433],
            ID["EPSG",8801]],
        PARAMETER["Longitude of natural origin",-2,
            ANGLEUNIT["degree",0.0174532925199433],
            ID["EPSG",8802]],
        PARAMETER["Scale factor at natural origin",0.9996012717,
            SCALEUNIT["unity",1],
            ID["EPSG",8805]],
        PARAMETER["False easting",400000,
            LENGTHUNIT["metre",1],
            ID["EPSG",8806]],
        PARAMETER["False northing",-100000,
            LENGTHUNIT["metre",1],
            ID["EPSG",8807]]],
    CS[Cartesian,2],
        AXIS["(E)",east,
            ORDER[1],
            LENGTHUNIT["metre",1]],
        AXIS["(N)",north,
            ORDER[2],
            LENGTHUNIT["metre",1]],
    USAGE[
        SCOPE["Engineering survey, topographic mapping."],
        AREA["United Kingdom (UK) - offshore to boundary of UKCS within 49°45'N to 61°N and 9°W to 2°E; onshore Great Britain (England, Wales and Scotland). Isle of Man onshore."],
        BBOX[49.75,-9,61.01,2.01]],
    ID["EPSG",27700]]

Project this into the EPSG 4326 / WGS84 coordinate system (standard for GPS systems and Google Earth).

cholera_4326 <- cholera_deaths %>% st_transform(4326)
st_bbox(cholera_4326)
      xmin       ymin       xmax       ymax 
-0.1400738 51.5118557 -0.1329335 51.5158345 

But that was still wrong: we need datum. The original still was missing some data.

st_crs(cholera_deaths)$proj4string
[1] "+proj=tmerc +lat_0=49 +lon_0=-2 +k=0.9996012717 +x_0=400000 +y_0=-100000 +ellps=airy +units=m +no_defs"
st_crs(27700)$proj4string
[1] "+proj=tmerc +lat_0=49 +lon_0=-2 +k=0.9996012717 +x_0=400000 +y_0=-100000 +ellps=airy +units=m +no_defs"
cholera_latlong <- cholera_deaths %>% 
  st_set_crs(27700) %>% 
  st_transform(4326)
pumps_latlong <- cholera_pumps %>% 
  st_set_crs(27700) %>% 
  st_transform(4326)
ggplot(cholera_latlong) +
  #coord_sf(lims_method = "geometry_bbox") +
  annotation_map_tile(type = "osm", zoomin = 0) +
  geom_sf(aes(size = Count), alpha = 0.7) +
  geom_sf(data = pumps_latlong, size = 3, color = "red")
Zoom: 17
Fetching 9 missing tiles

  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |========                                                              |  11%
  |                                                                            
  |================                                                      |  22%
  |                                                                            
  |=======================                                               |  33%
  |                                                                            
  |===============================                                       |  44%
  |                                                                            
  |=======================================                               |  56%
  |                                                                            
  |===============================================                       |  67%
  |                                                                            
  |======================================================                |  78%
  |                                                                            
  |==============================================================        |  89%
  |                                                                            
  |======================================================================| 100%
...complete!

Mapview just takes care of all of this (but it’s not as clear how to control scales etc.)

mapview(cholera_pumps, col.regions = "red", homebutton = FALSE) +
  mapview(cholera_deaths, cex = 'Count', homebutton = TRUE)

NC gerrymandering

if (!nzchar(system.file(package = "fec12")))
  remotes::install_github("baumer-lab/fec12")
library(fec12)
district_elections <- results_house %>%
  mutate(district = parse_number(district_id)) %>%
  group_by(state, district) %>%
  summarize(
    N = n(), 
    total_votes = sum(general_votes, na.rm = TRUE),
    d_votes = sum(ifelse(party == "D", general_votes, 0), na.rm = TRUE),
    r_votes = sum(ifelse(party == "R", general_votes, 0), na.rm = TRUE)
  ) %>%
  mutate(
    other_votes = total_votes - d_votes - r_votes,
    r_prop = r_votes / total_votes, 
    d_prop = d_votes / total_votes,
    winner = ifelse(r_votes > d_votes, "Republican", "Democrat")
  ) %>% 
  ungroup()
`summarise()` has grouped output by 'state'. You can override using the `.groups` argument.
nc_results <- district_elections %>% 
  filter(state == "NC")
nc_results %>%
  select(district, r_prop, winner) %>% 
  arrange(desc(r_prop))
# A tibble: 13 x 3
   district r_prop winner    
      <dbl>  <dbl> <chr>     
 1        3  0.631 Republican
 2        6  0.609 Republican
 3        5  0.575 Republican
 4       11  0.574 Republican
 5       10  0.570 Republican
 6       13  0.568 Republican
 7        2  0.559 Republican
 8        8  0.532 Republican
 9        9  0.518 Republican
10        7  0.499 Democrat  
11        4  0.255 Democrat  
12        1  0.229 Democrat  
13       12  0.204 Democrat  
results_house
# A tibble: 2,343 x 13
   state district_id cand_id   incumbent party primary_votes primary_percent
   <chr> <chr>       <chr>     <lgl>     <chr>         <dbl>           <dbl>
 1 AL    01          H2AL01077 TRUE      R             48702          0.555 
 2 AL    01          H2AL01176 FALSE     R             21308          0.243 
 3 AL    01          H2AL01184 FALSE     R             13809          0.158 
 4 AL    01          H0AL01030 FALSE     R              3854          0.0440
 5 AL    02          H0AL02087 TRUE      R                NA         NA     
 6 AL    02          H2AL02141 FALSE     D                NA         NA     
 7 AL    03          H2AL03032 TRUE      R                NA         NA     
 8 AL    03          H2AL03099 FALSE     D                NA         NA     
 9 AL    04          H6AL04098 TRUE      R                NA         NA     
10 AL    04          H2AL04055 FALSE     D             10971          0.514 
# ... with 2,333 more rows, and 6 more variables: runoff_votes <dbl>,
#   runoff_percent <dbl>, general_votes <dbl>, general_percent <dbl>,
#   won <lgl>, footnotes <chr>

Data source: https://cdmaps.polisci.ucla.edu/

# src <- "http://cdmaps.polisci.ucla.edu/shp/districts113.zip"
# dsn_districts <- "data/districtShapes/"
dsn_districts <- fs::path(fs::path_wd(), "data", "districtShapes")
#st_layers(dsn_districts)
districts <- st_read(dsn_districts, layer = "districts113") %>%
  mutate(DISTRICT = parse_number(as.character(DISTRICT))) %>% 
  janitor::clean_names()
Reading layer `districts113' from data source 
  `C:\projects\info601\info601\materials\13geospatial\lab\data\districtShapes' 
  using driver `ESRI Shapefile'
Simple feature collection with 436 features and 15 fields (with 1 geometry empty)
Geometry type: MULTIPOLYGON
Dimension:     XY
Bounding box:  xmin: -179.1473 ymin: 18.91383 xmax: 179.7785 ymax: 71.35256
Geodetic CRS:  NAD83
districts$statename %>% unique()
 [1] "Louisiana"            "Maine"                "Maryland"            
 [4] "Massachusetts"        "Michigan"             "Minnesota"           
 [7] "Mississippi"          "Missouri"             "Montana"             
[10] "Nebraska"             "Nevada"               "New Hampshire"       
[13] "New Jersey"           "Oklahoma"             "Oregon"              
[16] "Pennsylvania"         "Rhode Island"         "South Carolina"      
[19] "South Dakota"         "Tennessee"            "Texas"               
[22] "New York"             "North Carolina"       "Alabama"             
[25] "Arizona"              "Arkansas"             "California"          
[28] "Colorado"             "Connecticut"          "Delaware"            
[31] "District Of Columbia" "Florida"              "Georgia"             
[34] "Hawaii"               "Idaho"                "Illinois"            
[37] "Indiana"              "Iowa"                 "Kansas"              
[40] "Kentucky"             "New Mexico"           "North Dakota"        
[43] "Ohio"                 "Utah"                 "Vermont"             
[46] "Virginia"             "Washington"           "West Virginia"       
[49] "Wisconsin"            "Wyoming"              "Alaska"              
nc_shp <- districts %>%
  filter(statename == "North Carolina")
mi_shp <- districts %>% filter(statename == "Michigan")
mapview(mi_shp)
mi_shp
Simple feature collection with 14 features and 15 fields
Geometry type: MULTIPOLYGON
Dimension:     XY
Bounding box:  xmin: -90.41814 ymin: 41.69612 xmax: -82.4186 ymax: 48.26263
Geodetic CRS:  NAD83
First 10 features:
   statename           id district startcong endcong districtsi county page
1   Michigan 026113114001        1       113     114       <NA>   <NA> <NA>
2   Michigan 026113114002        2       113     114       <NA>   <NA> <NA>
3   Michigan 026113114003        3       113     114       <NA>   <NA> <NA>
4   Michigan 026113114004        4       113     114       <NA>   <NA> <NA>
5   Michigan 026113114005        5       113     114       <NA>   <NA> <NA>
6   Michigan 026113114006        6       113     114       <NA>   <NA> <NA>
7   Michigan 026113114007        7       113     114       <NA>   <NA> <NA>
8   Michigan 026113114008        8       113     114       <NA>   <NA> <NA>
9   Michigan 026113114009        9       113     114       <NA>   <NA> <NA>
10  Michigan 026113114010       10       113     114       <NA>   <NA> <NA>
    law note bestdec                  finalnote rnote
1  <NA> <NA>    <NA> {"From US Census website"}  <NA>
2  <NA> <NA>    <NA> {"From US Census website"}  <NA>
3  <NA> <NA>    <NA> {"From US Census website"}  <NA>
4  <NA> <NA>    <NA> {"From US Census website"}  <NA>
5  <NA> <NA>    <NA> {"From US Census website"}  <NA>
6  <NA> <NA>    <NA> {"From US Census website"}  <NA>
7  <NA> <NA>    <NA> {"From US Census website"}  <NA>
8  <NA> <NA>    <NA> {"From US Census website"}  <NA>
9  <NA> <NA>    <NA> {"From US Census website"}  <NA>
10 <NA> <NA>    <NA> {"From US Census website"}  <NA>
                   lastchange fromcounty                       geometry
1  2016-05-29 16:44:10.857626          F MULTIPOLYGON (((-84.26702 4...
2  2016-05-29 16:44:10.857626          F MULTIPOLYGON (((-86.43104 4...
3  2016-05-29 16:44:10.857626          F MULTIPOLYGON (((-85.79066 4...
4  2016-05-29 16:44:10.857626          F MULTIPOLYGON (((-85.82145 4...
5  2016-05-29 16:44:10.857626          F MULTIPOLYGON (((-84.16806 4...
6  2016-05-29 16:44:10.857626          F MULTIPOLYGON (((-86.27396 4...
7  2016-05-29 16:44:10.857626          F MULTIPOLYGON (((-85.29364 4...
8  2016-05-29 16:44:10.857626          F MULTIPOLYGON (((-84.60314 4...
9  2016-05-29 16:44:10.857626          F MULTIPOLYGON (((-83.32514 4...
10 2016-05-29 16:44:10.857626          F MULTIPOLYGON (((-82.6769 42...
mi_shp %>% 
  inner_join(district_elections %>% filter(state == "MI")) %>% 
  mapview(zcol = "r_prop")
Joining, by = "district"
mapview(nc_shp)
nc_merged <- nc_shp %>%
  #st_transform(4326) %>%
  inner_join(nc_results, by = c("district"))
districts %>% filter(statename == "Michigan") %>% 
  mapview()
#pal <- leaflet::colorNumeric(palette = "RdBu", domain = c(.2, .8))
mapview(nc_merged, 
        col.regions = RColorBrewer::brewer.pal(9, "RdBu"),
        at = seq(.2, .8, length.out = 9),
        zcol = "d_prop")

GR

https://www.accesskent.com/pdfs/GIS_DataDownloadLicense.pdf

dsn <- "~/Downloads/City_of_Grand_Rapids_Parcels/"
parcels <- st_read(dsn, layer = "City_of_Grand_Rapids_Parcels")
parcels
parcels %>% 
  head(50) %>% 
  ggplot() +
    annotation_map_tile() +
    geom_sf() 
st_geometry(parcels) %>% plot()
parcels %>% 
  head(10) %>% 
  plot()
parcels %>% nrow()
parcels %>% distinct(Address, City, Zip_Code) %>% nrow()

Geocoding

tidygeocoder

addr <- tibble(address = c(
  "3201 Burton Street SE, Grand Rapids, MI, 49546", # Calvin
  "2470 Burton St SE, Grand Rapids, MI, 49546" # Fresh Thyme
  )) %>% 
  tidygeocoder::geocode(address, method = "osm")
Passing 2 addresses to the Nominatim single address geocoder
Query completed in: 2 seconds
addr
# A tibble: 2 x 3
  address                                          lat  long
  <chr>                                          <dbl> <dbl>
1 3201 Burton Street SE, Grand Rapids, MI, 49546  42.9 -85.6
2 2470 Burton St SE, Grand Rapids, MI, 49546      42.9 -85.6
addr %>% st_as_sf(coords = c("long", "lat"), crs = 4326) %>% 
  ggplot() +
    annotation_map_tile() +
    geom_sf()
Zoom: 14
Fetching 3 missing tiles

  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |=======================                                               |  33%
  |                                                                            
  |===============================================                       |  67%
  |                                                                            
  |======================================================================| 100%
...complete!