-
Notifications
You must be signed in to change notification settings - Fork 20
/
ME.Rmd
131 lines (103 loc) · 4.28 KB
/
ME.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
---
title: "Maine Early Voting Statistics"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(knitr)
library(kableExtra)
library(scales)
state_stats <- read_csv("D:/DropBox/Dropbox/Mail_Ballots_2020/markdown/2020G_Early_Vote.csv")
# Setup
party_shell <- data.frame(Party=character(),
Count=integer(),
Percent=double(),
stringsAsFactors=FALSE)
party_shell[1,1] <- "Democrats"
party_shell[2,1] <- "Republicans"
party_shell[3,1] <- "Minor"
party_shell[4,1] <- "No Party Affiliation"
party_shell[5,1] <- "TOTAL"
party_shell_returned <- data.frame(Party=character(),
Count=integer(),
Frequency=double(),
Count2=integer(),
Rate=integer(),
stringsAsFactors=FALSE)
party_shell_returned[1,1] <- "Democrats"
party_shell_returned[2,1] <- "Republicans"
party_shell_returned[3,1] <- "Minor"
party_shell_returned[4,1] <- "No Party Affiliation"
party_shell_returned[5,1] <- "TOTAL"
race_shell <- data.frame(Race=character(),
Count=integer(),
Percent=double(),
stringsAsFactors=FALSE)
race_shell[1,1] <- "Non-Hispanic White"
race_shell[2,1] <- "Non-Hispanic Black"
race_shell[3,1] <- "Hispanic"
race_shell[4,1] <- "Non-Hispanic Asian American"
race_shell[5,1] <- "Non-Hispanic Native American"
race_shell[6,1] <- "Other/Multiple/Unknown"
race_shell[7,1] <- "TOTAL"
gender_shell <- data.frame(Gender=character(),
Count=integer(),
Percent=double(),
stringsAsFactors=FALSE)
gender_shell[1,1] <- "Female"
gender_shell[2,1] <- "Male"
gender_shell[3,1] <- "Unknown"
gender_shell[4,1] <- "TOTAL"
age_shell <- data.frame(Age=character(),
Count=integer(),
Percent=double(),
stringsAsFactors=FALSE)
age_shell[1,1] <- "18 to 24"
age_shell[2,1] <- "25 to 34"
age_shell[3,1] <- "35 to 44"
age_shell[4,1] <- "45 to 54"
age_shell[5,1] <- "55 to 64"
age_shell[6,1] <- "65 and up"
age_shell[7,1] <- "TOTAL"
# Maine
ME_req_send_party <- party_shell
ME_req_send_party[1,2] <- state_stats[20,10]
ME_req_send_party[2,2] <- state_stats[20,11]
ME_req_send_party[3,2] <- state_stats[20,12]
ME_req_send_party[4,2] <- state_stats[20,13]
ME_req_send_party[5,2] <- state_stats[20,5]
ME_req_send_party$Percent <- 100*ME_req_send_party$Count/ME_req_send_party[5,2]
ME_return_party <- party_shell_returned
ME_return_party[1,2] <- state_stats[20,29]
ME_return_party[2,2] <- state_stats[20,30]
ME_return_party[3,2] <- state_stats[20,31]
ME_return_party[4,2] <- state_stats[20,32]
ME_return_party[5,2] <- state_stats[20,6]
ME_return_party[1,4] <- state_stats[20,10]
ME_return_party[2,4] <- state_stats[20,11]
ME_return_party[3,4] <- state_stats[20,12]
ME_return_party[4,4] <- state_stats[20,13]
ME_return_party[5,4] <- state_stats[20,5]
ME_return_party$Frequency <- 100*ME_return_party$Count/ME_return_party[5,2]
ME_return_party$Rate <- 100*ME_return_party$Count/ME_return_party$Count2
colnames(ME_return_party) <- c("Party", "Returned Ballots", "Freq. Distribution", "Requested Ballots", "Return Rate")
```
## {.tabset}
Last Report: `r state_stats[20,9]`
Source: `r state_stats[20,2]`
### Returned Mail Ballots
Maine voters have cast **`r format(as.numeric(state_stats[20,6]), big.mark =",")`** mail ballots.
#### Mail Ballots Returned and Accepted by Party Registration
``` {r echo = FALSE}
kable(ME_return_party, format.args = list(big.mark = ",",
scientific = FALSE), digits = 1) %>%
kable_styling(bootstrap_options = "striped", full_width = F, position = "left")
```
### Mail Ballot Requests
Maine voters have requested **`r format(as.numeric(state_stats[20,5]), big.mark =",")`** mail ballots.
#### Mail Ballots Requested by Party Registration
``` {r echo = FALSE}
kable(ME_req_send_party, format.args = list(big.mark = ",",
scientific = FALSE), digits = 1) %>%
kable_styling(bootstrap_options = "striped", full_width = F, position = "left")
```