#recode vars function
recode.f <- function(df, var) {
  var <- read.csv(paste0("dat/yg_recoded/yg_", var, ".csv"), stringsAsFactors = F)
  df <- df %>% left_join(., var) 
  return(df) }

#recode vars -- (after creating codebooks from tbl above)
dat <- dat %>% recode.f(., "pid") %>% recode.f(., "ge15") %>% recode.f(., "ge17") %>%
          recode.f(., "race") %>% recode.f(., "educ") %>% recode.f(., "income") %>% recode.f("emp") %>%
            recode.f(., "religion") %>% recode.f(., "sexuality") %>% recode.f(., "marital") %>% recode.f(., "children") %>%
              recode.f(., "tenure") %>% recode.f(., "constit") %>% recode.f(., "region") %>% 
                recode.f(., "Winner17") %>% rename(region_bes = Region) %>% recode.f(., "region_bes") %>% select(-region_bes)
colnames(dat)