forked from ElectProject/Early-Vote-2020G
-
Notifications
You must be signed in to change notification settings - Fork 0
/
NJ.Rmd
115 lines (89 loc) · 3.64 KB
/
NJ.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
---
title: "New Jersey Early Voting Statistics"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(knitr)
library(kableExtra)
library(scales)
library(DT)
library(highcharter)
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"
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"
# New Jersey
NJ_req_send_party <- party_shell
NJ_req_send_party[1,2] <- state_stats[31,10]
NJ_req_send_party[2,2] <- state_stats[31,11]
NJ_req_send_party[3,2] <- state_stats[31,12]
NJ_req_send_party[4,2] <- state_stats[31,13]
NJ_req_send_party[5,2] <- state_stats[31,5]
NJ_req_send_party$Percent <- 100*NJ_req_send_party$Count/NJ_req_send_party[5,2]
NJ_accept_party <- party_shell_returned
NJ_accept_party[1,2] <- state_stats[31,29]
NJ_accept_party[2,2] <- state_stats[31,30]
NJ_accept_party[3,2] <- state_stats[31,31]
NJ_accept_party[4,2] <- state_stats[31,32]
NJ_accept_party[5,2] <- state_stats[31,6]
NJ_accept_party[1,4] <- state_stats[31,10]
NJ_accept_party[2,4] <- state_stats[31,11]
NJ_accept_party[3,4] <- state_stats[31,12]
NJ_accept_party[4,4] <- state_stats[31,13]
NJ_accept_party[5,4] <- state_stats[31,5]
NJ_accept_party$Frequency <- 100*NJ_accept_party$Count/NJ_accept_party[5,2]
NJ_accept_party$Rate <- 100*NJ_accept_party$Count/NJ_accept_party$Count2
colnames(NJ_accept_party) <- c("Party", "Returned Ballots", "Freq. Distribution", "Requested Ballots", "Return Rate")
```
## {.tabset}
Last Report: `r state_stats[31,9]`
Source: `r state_stats[31,2]`
Total Early Votes: **`r format(as.numeric(state_stats[31,8]), big.mark =",")`**
### Mail Ballots Returned
Ballots Returned: **`r format(as.numeric(state_stats[31,6]), big.mark =",")`**
#### **Mail Ballots Returned and Accepted by Party Registration**
``` {r echo = FALSE}
kable(NJ_accept_party, format.args = list(big.mark = ",",
scientific = FALSE), digits = 1) %>%
kable_styling(bootstrap_options = "striped", full_width = F, position = "left")
```
### Requested Mail Ballots
Ballots Requested: **`r format(as.numeric(state_stats[31,5]), big.mark =",")`**