MAGA vs GOP
gg <- cces19 %>% | |
filter(pid7 == 5 | pid7 == 6 | pid7 == 7) %>% | |
cces_trad(religpew) %>% | |
mutate(app = frcode(CC19_308a == 1 ~ "MAGA", | |
CC19_308a == 2 | CC19_308a == 3 | CC19_308a == 4 ~ "GOP")) %>% | |
group_by(trad2) %>% | |
ct(app, wt = commonweight, show_na = FALSE) | |
gg %>% | |
ggplot(., aes(x = 1, y = pct, fill = fct_rev(app))) + | |
geom_col(color = "black") + | |
coord_flip() + | |
facet_wrap(~ trad2, ncol =1, strip.position = "left") + | |
scale_fill_manual(values = c("firebrick3", "#ED820E")) + | |
theme_rb() + | |
theme(legend.position = "bottom") + | |
scale_y_continuous(labels = percent) + | |
theme(strip.text.y.left = element_text(angle=0)) + | |
guides(fill = guide_legend(reverse=T, nrow = 1)) + | |
theme(axis.title.y=element_blank(), axis.text.y=element_blank(), axis.ticks.y=element_blank()) + | |
theme(panel.grid.minor.y=element_blank(), panel.grid.major.y=element_blank()) + | |
geom_text(aes(label = ifelse(pct >.05, paste0(pct*100, '%'), '')), position = position_stack(vjust = 0.5), size = 4, family = "font", color = "black") + | |
labs(x = "", y = "", title = "How Republicans Would Fracture By Religious Group", subtitle = "", caption = "@ryanburge\nData: CCES 2019") + | |
ggsave("E://maga_v_gop.png", width = 9, height = 6) | |
gg <- cces19 %>% | |
filter(race == 1) %>% | |
filter(religpew == 1 | religpew == 2) %>% | |
filter(pid7 == 5 | pid7 == 6 | pid7 == 7) %>% | |
cces_attend(pew_churatd) %>% | |
mutate(app = frcode(CC19_308a == 1 ~ "MAGA", | |
CC19_308a == 2 | CC19_308a == 3 | CC19_308a == 4 ~ "GOP")) %>% | |
group_by(att) %>% | |
ct(app, wt = commonweight, show_na = FALSE) %>% | |
na.omit() | |
gg %>% | |
ggplot(., aes(x = att, y = pct, fill = app)) + | |
geom_col(color = "black") + | |
scale_fill_manual(values = c("#ED820E", "firebrick3")) + | |
theme_rb(legend = TRUE) + | |
y_pct() + | |
geom_text(aes(label = paste0(pct*100, '%')), position = position_stack(vjust = 0.5), size = 5, family = "font") + | |
theme(plot.title = element_text(size = 14)) + | |
labs(x = "", y = "", title = "How Republicans Would Fracture By Church Attendance", subtitle = "Among White Christians", caption = "@ryanburge\nData: CCES 2019") + | |
ggsave("E://att_maga_gop.png", type = 'cairo-png', width = 5) | |
fun <- function(df, var, name){ | |
df %>% | |
filter(pid7 == 5 | pid7 == 6 | pid7 == 7) %>% | |
mutate(app = frcode(CC19_308a == 1 ~ "MAGA", | |
CC19_308a == 2 | CC19_308a == 3 | CC19_308a == 4 ~ "GOP")) %>% | |
mutate(vv = case_when({{var}} == 1 ~ 1, | |
{{var}} == 2 ~ 0)) %>% | |
group_by(app) %>% | |
mean_ci(vv, wt = commonweight, ci = .84) %>% | |
mutate(type = name) %>% | |
na.omit() | |
} | |
ttt1 <- cces19 %>% fun(CC19_321a, "Allow as a\nMatter of Choice") | |
ttt2 <- cces19 %>% fun(CC19_321b, "Only Rape,Incest,\nLife of Mother") | |
ttt3 <- cces19 %>% fun(CC19_321c, "Ban After 20 Weeks") | |
ttt4 <- cces19 %>% fun(CC19_321d, "Prohibit Federal Funds\nFor Abortion Services") | |
ttt5 <- cces19 %>% fun(CC19_321e, "Make Completely Illegal") | |
graph <- bind_df("ttt") | |
graph %>% | |
ggplot(., aes(x = type, y = mean, fill = app)) + | |
geom_col(color = "black", position = "dodge") + | |
theme_rb(legend = TRUE) + | |
y_pct() + | |
error_bar() + | |
lab_bar(top = FALSE, type = mean, sz = 5, pos = .045) + | |
scale_fill_manual(values = c("#ED820E", "firebrick3")) + | |
labs(x = "", y = "Share in Favor", title = "Abortion Politics for the MAGA and GOP Parties", caption = '@ryanburge\nData: CCES 2019') + | |
ggsave("E://ab_policy_maga_gop.png", type = "cairo-png") | |
ttt1 <- cces19 %>% fun(CC19_322a, "Don't Use Defense\nFunds for Border Wall") | |
ttt2 <- cces19 %>% fun(CC19_322b, "Withhold Funds\nfrom Sancuary Cities") | |
ttt3 <- cces19 %>% fun(CC19_322c, "Reduce Legal\nImmigration by 50%") | |
ttt4 <- cces19 %>% fun(CC19_322d, "Pathway to Citizenship") | |
ttt5 <- cces19 %>% fun(CC19_322e, "Increase Border\nPatrol Funding") | |
graph <- bind_df("ttt") | |
graph %>% | |
ggplot(., aes(x = type, y = mean, fill = app)) + | |
geom_col(color = "black", position = "dodge") + | |
theme_rb(legend = TRUE) + | |
y_pct() + | |
error_bar() + | |
lab_bar(top = FALSE, type = mean, sz = 5, pos = .045) + | |
scale_fill_manual(values = c("#ED820E", "firebrick3")) + | |
labs(x = "", y = "Share in Favor", title = "Immigration Politics for the MAGA and GOP Parties", caption = '@ryanburge\nData: CCES 2019') + | |
ggsave("E://imm_policy_maga_gop.png", type = "cairo-png") | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment