CCES PolAct Interaction

cces_interaction.R

cces16 <- cces16 %>% 
  mutate(att = recode(pew_churatd, "1=6; 2=5; 3=4; 4=3; 5=2; 6=1; else = NA")) %>% 
  mutate(college = car::recode(educ, "1:4=0; 5:6=1; else = NA")) %>% 
  mutate(meet = recode(CC16_417a_1, "1=1; else =0")) %>% 
  mutate(sign = recode(CC16_417a_2, "1=1; else =0")) %>% 
  mutate(vol = recode(CC16_417a_3, "1=1; else =0")) %>% 
  mutate(money = recode(CC16_417a_4, "1=1; else =0")) %>% 
  mutate(blood = recode(CC16_417a_5, "1=1; else =0")) %>% 
  mutate(activity = meet + sign + vol + money + blood) %>% 
  mutate(den = case_when(religpew == 1 & religpew_protestant !=3 ~ "Denom",
                         religpew_protestant == 3 ~ "Non-Denom"))


reg1 <- lm(activity ~ att*den + educ +  pid7, data = cces16)


gg2 <- interact_plot(reg1, pred = att, modx = den, interval = TRUE, int.width = .76)