RStudio_ct_selection_untitled_6AC9F703

issue_fun <- function(df, var, name){
  
  df %>% 
    mutate(evan = case_when(is_evangelical == 1 ~ 1, TRUE ~ 0)) %>% 
    mutate(prot = case_when(religion == 1 ~ 1, TRUE ~ 0)) %>% 
    mutate(white = case_when(race_ethnicity == 1 ~ 1, TRUE ~ 0)) %>% 
    mutate(add = evan + prot + white) %>% 
    mutate(rep = case_when(pid3 == 2 ~ 1, TRUE ~ 0)) %>% 
    mutate(nevan = case_when(add <= 2 ~ 1, TRUE ~ 0)) %>% 
    mutate(group = frcode(add == 3 & rep == 1 ~ "White Evangelical Republicans", 
                          nevan == 1 & rep == 1 ~ "All Other Republicans")) %>% 
    group_by(group) %>% 
    mutate(fb = case_when({{var}} == 1 ~ 1, 
                          {{var}} == 2 ~ 0)) %>% 
    mean_ci(fb) %>% 
    mutate(type = name) %>% 
    na.omit()
  
}


# https://git.io/JfYZd