test PR refactor branch

.Rprofile

@@ -0,0 +1,4 @@
+source("renv/activate.R")
+
+options(box.path = "code")
+

.gitignore

@@ -75,3 +75,10 @@ data/clean
 data/rmd-rdata
 data/ANES-2016/docs/anes_timeseries_cdf_codebook_pdf
 anes_timeseries_cdf.dta
+data/mcmc
+data/mcmc-params
+writing-rmd/assets/dot-img
+writing-rmd/paper-cache
+writing-rmd/paper-figs
+anes-cdf-2016.RDS
+gender-gap-new.log

README.md

@@ -10,11 +10,10 @@ author: |
 Groups in the electorate vote differently from one another. Racial minorities and young voters prefer Democratic candidates on average, while evangelicals and rural voters prefer Republican candidates. How do these group differences affect party vote shares, given that the underlying groups are differently sized? We provide a theoretical framework to understand group differences in voting and party vote by expressing each as the result of partisan predispositions in the electorate that are transformed through partisan mobilization, partisan defection, and the choices of unaffiliated voters. We apply this method to the gender gap in U.S. presidential voting. We find that the size of the gender gap has no necessary bearing on the partisan vote outcome. Rather, the relationship is contingent on the changing numerical impact of partisanship, partisan mobilization, and persuasion over time. Although the gender gap and the Democratic vote in presidential elections have both increased over the years, this relationship is spurious. The primary cause of the gender gap (partisan change) was actually harmful to the Democrats. Meanwhile, forces that increased the Democratic vote (mobilization and persuasion) were minor influences on the gender gap. 
 
 
-# To do notes
+# Repo to-do notes
 
-- [ ] fix Bitbucket link for website
-- [ ] when next major version is done, change website link to Github
-- [ ] Do something about raw ANES data (LFS? Download from remote if file not present?)
+- don't forget to merge feature -> dev
+- check w/ Barry dev -> master
 
 
 

code/R/00-build.R

@@ -3,30 +3,18 @@
 #   R master file: controls replication of all R things
 # ----------------------------------------------------
 
-
 # --- build it -----------------------
 
 source(here::here("code", "R", "01-setup.R"), echo = TRUE)
 
-source(here("code", "R", "02-recode-anes.R"), echo = TRUE)
+source(here::here("code", "R", "02-recode-anes.R"), echo = TRUE)
 
 source(here::here("code", "R", "03-descriptives.R"), echo = TRUE)
-# save.image(file = here("data", "rmd-rdata", "03-descriptives.Rdata"))
+save.image(file = here("data", "rmd-rdata", "03-descriptives.Rdata"))
 
-source(here("code", "R", "04-MCMC.R"), echo = TRUE)
+source(here::here("code", "R", "04-MCMC.R"), echo = TRUE)
 
 source(here::here("code", "R", "05-viz.R"), echo = TRUE)
-# save.image(file = here("data", "rmd-rdata", "05-viz.Rdata"))
-
-
-# source("R/mcmc-viz.R",, echo = TRUE)
+save.image(file = here("data", "rmd-rdata", "05-viz.Rdata"))
 
 beepr::beep(2)
-
-# source("R/04-define-model.R", echo = TRUE)
-
-# source("R/05-run-model.R", echo = TRUE)
-
-# source("R/06-OCD.R")
-
-# source("R/07-ocd-viz.R")

code/R/01-setup.R

@@ -10,18 +10,19 @@
 # library("colorout")
 library("magrittr")
 library("tidyverse")
-library("ggplot2") # redundant but improves auto-complete
 library("broom")
 library("beepr")
 library("latex2exp")
-library("extrafont")
+# library("extrafont")
 
 
 
 library("rstan")
 options(mc.cores = parallel::detectCores())
 rstan_options(auto_write = TRUE)
 library("ggmcmc")
+library("tidybayes")
+
 # --- working directory -----------------------
 
 # set to project root
@@ -42,10 +43,14 @@ dir.create(here("tex/appendix"))
 
 # --- graphics settings -----------------------
 
-#  custom ggtheme, import from Github
-source("https://raw.githubusercontent.com/mikedecr/custom-R/master/theme-mgd/theme-mgd.R")
-theme_set(theme_mgd()) # set default theme
-# theme_set(theme_bw())
+# graphics theme
+update_geom_defaults("text", list(family = "Fira Sans"))
+theme_set(
+  ggthemes::theme_base(base_family = "Fira Sans", base_size = 14) + 
+  theme(plot.background = element_blank(), 
+        axis.ticks = element_line(lineend = "square"), 
+        axis.ticks.length = unit(0.25, "lines"))
+)
 
 dblue <- "#0072B2"
 rred <- "#D55E00"

code/R/02-recode-anes.R

@@ -10,19 +10,25 @@
 
 # --- ANES raw data -----------------------
 
-# if RDS file is absent, create it:
-if ("anes-cdf-2016.RDS" %in% list.files(here("data", "ANES-2016")) == FALSE) {
-  here("data", "ANES-2016", "ANES-2016/anes_timeseries_cdf.dta") %>% 
-    haven::read_dta() %>%
-    saveRDS(here("data", "ANES-2016", "anes-cdf-2016.RDS"))
+# if RDS file present, read the RDS file
+# if no RDS, read it from Box
+# (for Barry: dir contains .dta)
+
+# if RDS file is absent, read from box and pull into R:
+if ("anes-cdf-2016.RDS" %in% list.files(here("data", "ANES-2016"))) {
+  anes <- 
+    readRDS(here("data", "ANES-2016", "anes-cdf-2016.RDS")) %>%
+    print()
+  message("ANES data read locally")
 } else {
-  print("RDS file already found")
+  boxr::box_auth()
+  anes <- 
+    boxr::box_read(504157238177) %>%
+    print() %>%
+    saveRDS(here("data", "ANES-2016", "anes-cdf-2016.RDS"))
+  message("ANES data read from Box (& local copy saved)")
 }
 
-# 2016 RDS file, remove labels
-anes <- readRDS(here("data", "ANES-2016", "anes-cdf-2016.RDS")) %>%
-  mutate_all(labelled::remove_labels) %>%
-  print()