Reltrad Attempt.

reltradv2.R

graph <- gss %>% 
  filter(year == 2018) %>% 
  mutate(reltrad = replace_na(reltrad, 0)) %>% 
  mutate(trad = frcode(other == 59 | other == 60 | other == 61 | other == 62 | other == 64 ~ "Mormon",
                       race == 2 & relig == 1 ~ "Black\nProt.",
                       reborn == 2 & relig == 1 ~ "Non-Evan.\nProtestant",
                       reborn == 1 & race == 3 ~ "Non-White\nEvangelical",
                       reborn == 1 &  race == 1 ~ "White\nEvangelical",
                       reltrad == 4 ~ "Catholic",
                       reltrad == 5 ~ "Jewish",
                       relig == 6 ~ "Buddhist", 
                       relig == 7 ~ "Hindu",
                       relig == 10 ~ "Orthodox",
                       reltrad == 7 ~ "None", 
                       TRUE ~ "All\nOthers")) %>% 
  ct(trad, wt = wtsall)

graph %>% 
  ggplot(., aes(x = reorder(trad, -pct), y = pct, fill = pct)) +
  geom_col(color = "black") +
  theme_gg("Abel") +
  scale_fill_gradient(low = "#FF6B6B", high = "#556270") +
  geom_text(aes(y = pct + .0085, label = paste0(pct*100, '%')), position = position_dodge(width = .9), size = 4, family = "font") +
  scale_y_continuous(labels = percent) +
  labs(x = "", y = "", title = "RELTRAD as Identification Scheme", caption = "@pauldjupe\n@ryanburge\nData: GSS 2018") +
  ggsave("E://reltrad_scheme.png", type = "cairo-png", width = 9)