Skip to content

Instantly share code, notes, and snippets.

@ryanburge
Created Jun 27, 2022
Embed
What would you like to do?
graph <- cces20 %>%
mutate(ab = frcode(CC20_332f == 1 ~ "Favor",
CC20_332f == 2 ~ "Oppose")) %>%
ct(ab, show_na = FALSE, wt = commonweight)
graph %>%
ggplot(., aes(x = ab, y = pct, fill = ab)) +
geom_col(color = "black") +
coord_flip() +
theme_rb() +
scale_y_continuous(labels = percent, limits = c(0, 1)) +
lab_bar(top = TRUE, type = pct, pos = .075, sz =6.5) +
scale_fill_manual(values = c('#e22f34', "#26b5f8")) +
labs(x = "", y = "", title = "Make abortions illegal in all circumstances", caption = "@ryanburge\nData: CES 2020")
save("ab_illegal1.png", ht = 2.75, wd = 6)
gg <- cces20 %>%
filter(CC20_332f == 1) %>%
mutate(gender = frcode(gender == 1 ~ "Men",
gender == 2 ~ "Women")) %>%
ct(gender, show_na = FALSE, wt = commonweight)
gg %>%
mutate(lab = round(pct, 2)) %>%
ggplot(., aes(x = 1, y = pct, fill = fct_rev(gender))) +
geom_col(color = "black") +
coord_flip() +
# facet_wrap(~ type, ncol =1, strip.position = "left") +
scale_fill_manual(values = c("#ffcd00", "#2dc3f2")) +
theme_rb() +
theme(legend.position = "bottom") +
scale_y_continuous(labels = percent) +
theme(strip.text.y.left = element_text(angle=0, hjust = 1)) +
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()) +
theme(legend.text = element_text(size = 24)) +
geom_text(aes(label = ifelse(pct >.05, paste0(lab*100, '%'), '')), position = position_stack(vjust = 0.5), size = 8, family = "font", color = "black") +
labs(x = "", y = "", title = "Gender Breakdown of Those Opposed to Abortion ", subtitle = "", caption = "@ryanburge\nData: CES 2020")
save("ab_ban_gender.png", wd = 9, ht = 3)
gg <- cces20 %>%
filter(CC20_332f == 1) %>%
cces_race(race) %>%
ct(race, show_na = FALSE, wt = commonweight) %>%
mutate(grp = "Anti-Abortion")
gg1 <- cces20 %>%
# filter(CC20_332f == 1) %>%
cces_race(race) %>%
ct(race, show_na = FALSE, wt = commonweight) %>%
mutate(grp = "Entire Sample")
graph <- bind_rows(gg, gg1)
graph %>%
mutate(lab = round(pct, 2)) %>%
ggplot(., aes(x = 1, y = pct, fill = fct_rev(race))) +
geom_col(color = "black") +
coord_flip() +
facet_wrap(~ grp, ncol =1, strip.position = "left") +
scale_fill_manual(values=met.brewer("Cross", 5)) +
theme_rb() +
theme(legend.position = "bottom") +
scale_y_continuous(labels = percent) +
theme(strip.text.y.left = element_text(angle=0, hjust = 1)) +
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()) +
theme(legend.text = element_text(size = 16)) +
geom_text(aes(label = ifelse(pct >.05, paste0(lab*100, '%'), '')), position = position_stack(vjust = 0.5), size = 8, family = "font", color = "black") +
geom_text(aes(label = ifelse(race == "White" & pct >.05, paste0(lab*100, '%'), '')), position = position_stack(vjust = 0.5), size = 8, family = "font", color = "white") +
labs(x = "", y = "", title = "Racial Breakdown of Those Opposed to Abortion ", subtitle = "", caption = "@ryanburge\nData: CES 2020")
save("ab_ban_race.png", wd = 9, ht = 3.5)
gg1 <- cces20 %>%
filter(CC20_332f == 1) %>%
mutate(pid = frcode(CC20_340a == 1 ~ "Very Lib.",
CC20_340a == 2 ~ "Lib.",
CC20_340a == 3 ~ "Somewhat Lib.",
CC20_340a == 4 ~ "Middle of the Road",
CC20_340a == 5 ~ "Somewhat Cons.",
CC20_340a == 6 ~ "Cons.",
CC20_340a == 7 ~ "Very Cons.")) %>%
ct(pid, wt = commonweight, show_na = FALSE) %>%
mutate(grp = "Anti-Abortion")
gg2 <- cces20 %>%
# filter(CC20_332f == 1) %>%
mutate(pid = frcode(CC20_340a == 1 ~ "Very Lib.",
CC20_340a == 2 ~ "Lib.",
CC20_340a == 3 ~ "Somewhat Lib.",
CC20_340a == 4 ~ "Middle of the Road",
CC20_340a == 5 ~ "Somewhat Cons.",
CC20_340a == 6 ~ "Cons.",
CC20_340a == 7 ~ "Very Cons.")) %>%
ct(pid, wt = commonweight, show_na = FALSE) %>%
mutate(grp = "Entire Sample")
graph <- bind_rows(gg1, gg2)
graph %>%
mutate(lab = round(pct, 2)) %>%
ggplot(., aes(x = 1, y = pct, fill = fct_rev(pid))) +
geom_col(color = "black") +
coord_flip() +
facet_wrap(~ grp, ncol =1, strip.position = "left") +
scale_fill_manual(values = c("#8D021F", "#B2182B","#EF8A62","azure4", "#67A9CF", "#2166AC", "#000080", "darkorchid")) +
theme_rb() +
theme(legend.position = "bottom") +
scale_y_continuous(labels = percent) +
theme(strip.text.y.left = element_text(angle=0, hjust = 1)) +
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()) +
theme(legend.text = element_text(size = 12)) +
geom_text(aes(label = ifelse(pct >.05, paste0(lab*100, '%'), '')), position = position_stack(vjust = 0.5), size = 8, family = "font", color = "black") +
geom_text(aes(label = ifelse(pid == "Very Lib." & pct >.05, paste0(lab*100, '%'), '')), position = position_stack(vjust = 0.5), size = 8, family = "font", color = "white") +
labs(x = "", y = "", title = "Ideological Position of Anti-Abortion Americans", subtitle = "", caption = "@ryanburge\nData: CES 2020")
save("ab_ban_id7.png", wd = 9, ht = 3.5)
graph1 <- cces20 %>%
filter(CC20_332f == 1) %>%
mutate(relig = frcode(religpew == 1 ~ "Protestant",
religpew == 2 ~ "Catholic",
religpew == 3 ~ "Mormon",
religpew == 4 ~ "Orthodox",
religpew == 5 ~ "Jewish",
religpew == 6 ~ "Muslim",
religpew == 7 ~ "Buddhist",
religpew == 8 ~ "Hindu",
religpew == 9 ~ "Atheist",
religpew == 10 ~ "Agnostic",
religpew == 11 ~ "Nothing in\nParticular",
religpew == 12 ~ "Something\nElse")) %>%
ct(relig, wt = commonweight, show_na = FALSE) %>%
mutate(grp = "Anti-Abortion")
graph2 <- cces20 %>%
# filter(CC20_332f == 1) %>%
mutate(relig = frcode(religpew == 1 ~ "Protestant",
religpew == 2 ~ "Catholic",
religpew == 3 ~ "Mormon",
religpew == 4 ~ "Orthodox",
religpew == 5 ~ "Jewish",
religpew == 6 ~ "Muslim",
religpew == 7 ~ "Buddhist",
religpew == 8 ~ "Hindu",
religpew == 9 ~ "Atheist",
religpew == 10 ~ "Agnostic",
religpew == 11 ~ "Nothing in\nParticular",
religpew == 12 ~ "Something\nElse")) %>%
ct(relig, wt = commonweight, show_na = FALSE) %>%
mutate(grp = "Entire Sample")
gg <- bind_rows(graph1, graph2)
gg %>%
mutate(lab = round(pct, 2)) %>%
ggplot(., aes(x = relig, y = pct, fill = grp)) +
geom_col(color = "black", position = "dodge") +
theme_rb(legend = TRUE) +
y_pct() +
scale_fill_manual(values = c("#dc1c13", "#14133d")) +
lab_bar(top = TRUE, type = lab, pos = .015, sz = 4.5) +
labs(x = "", y = "", title = "Religious Composition of Anti-Abortion Americans", caption = "@ryanburge\nData: CES 2020")
save("anti_ab_religpew.png")
graph1 <- cces20 %>%
filter(CC20_332f == 1) %>%
cces_attend(pew_churatd) %>%
ct(att, wt = commonweight, show_na = FALSE) %>%
mutate(grp = "Anti-Abortion")
graph2 <- cces20 %>%
# filter(CC20_332f == 1) %>%
cces_attend(pew_churatd) %>%
ct(att, wt = commonweight, show_na = FALSE) %>%
mutate(grp = "Entire Sample")
gg <- bind_rows(graph1, graph2)
gg %>%
mutate(lab = round(pct, 2)) %>%
ggplot(., aes(x = 1, y = pct, fill = fct_rev(att))) +
geom_col(color = "black") +
coord_flip() +
facet_wrap(~ grp, ncol =1, strip.position = "left") +
scale_fill_manual(values=met.brewer("Lakota", 6)) +
theme_rb() +
theme(legend.position = "bottom") +
scale_y_continuous(labels = percent) +
theme(strip.text.y.left = element_text(angle=0, hjust = 1)) +
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()) +
theme(legend.text = element_text(size = 12)) +
geom_text(aes(label = ifelse(pct >.05, paste0(lab*100, '%'), '')), position = position_stack(vjust = 0.5), size = 8, family = "font", color = "black") +
geom_text(aes(label = ifelse(att == "Never" & pct >.05, paste0(lab*100, '%'), '')), position = position_stack(vjust = 0.5), size = 8, family = "font", color = "white") +
labs(x = "", y = "", title = "Religious Service Attendance of Anti-Abortion Americans", subtitle = "", caption = "@ryanburge\nData: CES 2020")
save("ab_ban_att.png", wd = 9, ht = 3.25)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment