-
Notifications
You must be signed in to change notification settings - Fork 21
/
CA.Rmd
122 lines (95 loc) · 3.99 KB
/
CA.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
---
title: "California 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] <- "No Party Affiliation/Minr"
party_shell[4,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"
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] <- "No Party Affiliation/Minor"
party_shell_returned[4,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"
# California
CA_req_send_party <- party_shell
CA_req_send_party[1,2] <- state_stats[5,10]
CA_req_send_party[2,2] <- state_stats[5,11]
CA_req_send_party[3,2] <- state_stats[5,13]
CA_req_send_party[4,2] <- state_stats[5,5]
CA_req_send_party$Percent <- 100*CA_req_send_party$Count/CA_req_send_party[4,2]
CA_accept_party <- party_shell_returned
CA_accept_party[1,2] <- state_stats[5,29]
CA_accept_party[2,2] <- state_stats[5,30]
CA_accept_party[3,2] <- state_stats[5,32]
CA_accept_party[4,2] <- state_stats[5,6]
CA_accept_party[1,4] <- state_stats[5,10]
CA_accept_party[2,4] <- state_stats[5,11]
CA_accept_party[3,4] <- state_stats[5,13]
CA_accept_party[4,4] <- state_stats[5,5]
CA_accept_party$Frequency <- 100*CA_accept_party$Count/CA_accept_party[4,2]
CA_accept_party$Rate <- 100*CA_accept_party$Count/CA_accept_party$Count2
colnames(CA_accept_party) <- c("Party", "Returned Ballots", "Freq. Distribution", "Requested Ballots", "Return Rate")
```
## {.tabset}
Last Report: `r state_stats[5,9]`
Source: `r state_stats[5,2]`
**NOTE: My California source combines statistics for voters with no party affiliation and all minor parties**
### Returned Mail Ballots
California voters have cast **`r format(as.numeric(state_stats[5,6]), big.mark =",")`** mail ballots.
#### **Mail Ballots Returned and Accepted by Party Registration**
``` {r echo = FALSE}
kable(CA_accept_party, format.args = list(big.mark = ",",
scientific = FALSE), digits = 1) %>%
kable_styling(bootstrap_options = "striped", full_width = F, position = "left")
```
### Mail Ballot Requests
California voters have requested **`r format(as.numeric(state_stats[5,5]), big.mark =",")`** mail ballots.