Religious Composition
gss <- gss %>% | |
mutate(reltrad = car::recode(reltrad, "NA = 0; 5 =0; 6=0")) | |
hhh1 <- gss %>% | |
filter(year == 1978) %>% | |
filter(partyid == 0 | partyid == 1 | partyid == 2) %>% | |
ct(reltrad, wt = wtssall) %>% | |
mutate(year = 1978) %>% | |
mutate(party = "Democrat") | |
hhh2 <- gss %>% | |
filter(year == 1988) %>% | |
filter(partyid == 0 | partyid == 1 | partyid == 2) %>% | |
ct(reltrad, wt = wtssall) %>% | |
mutate(year = 1988) %>% | |
mutate(party = "Democrat") | |
hhh3 <- gss %>% | |
filter(year == 1998) %>% | |
filter(partyid == 0 | partyid == 1 | partyid == 2) %>% | |
ct(reltrad, wt = wtssall) %>% | |
mutate(year = 1998) %>% | |
mutate(party = "Democrat") | |
hhh4 <- gss %>% | |
filter(year == 2008) %>% | |
filter(partyid == 0 | partyid == 1 | partyid == 2) %>% | |
ct(reltrad, wt = wtssall) %>% | |
mutate(year = 2008) %>% | |
mutate(party = "Democrat") | |
hhh5 <- gss %>% | |
filter(year == 2018) %>% | |
filter(partyid == 0 | partyid == 1 | partyid == 2) %>% | |
ct(reltrad, wt = wtssall) %>% | |
mutate(year = 2018) %>% | |
mutate(party = "Democrat") | |
dem <- bind_df("hhh") %>% | |
mutate(reltrad = frcode(reltrad == 1 ~ " Evangelical ", | |
reltrad == 2 ~ " Mainline ", | |
reltrad == 3 ~ " Black Prot. ", | |
reltrad == 4 ~ " Catholic ", | |
reltrad == 7 ~ " No Religion ", | |
reltrad == 0 ~ " Other Faith ")) | |
dem %>% | |
ggplot(., aes(x=1, y = pct, fill = fct_rev(reltrad))) + | |
geom_col(color = "black") + | |
coord_flip() + | |
facet_wrap(~ year, ncol =1) + | |
theme_gg("Abel") + | |
theme(legend.position = "bottom") + | |
scale_fill_paletteer_d(awtools, mpalette) + | |
scale_y_continuous(labels = percent) + | |
guides(fill = guide_legend(reverse=T, nrow =1)) + | |
theme(axis.title.y=element_blank(), axis.text.y=element_blank(), axis.ticks.y=element_blank()) + | |
geom_text(aes(label = paste0(pct*100, '%')), position = position_stack(vjust = 0.5), size = 4, family = "font", color = "white") + | |
theme(panel.grid.major.y = element_blank()) + | |
theme(panel.grid.minor.y = element_blank()) + | |
theme(plot.title = element_text(size = 16)) + | |
labs(x = "", y = "", title = "How has the Religious Composition of Democrats Changed Over Time?", caption = "@ryanburge\nData: GSS 1978-2018") + | |
ggsave("E://dem_gss_time.png", type = "cairo-png") | |
hhh1 <- gss %>% | |
filter(year == 1978) %>% | |
filter(partyid == 4 | partyid == 5 | partyid == 6) %>% | |
ct(reltrad, wt = wtssall) %>% | |
mutate(year = 1978) %>% | |
mutate(party = "Republican") | |
hhh2 <- gss %>% | |
filter(year == 1988) %>% | |
filter(partyid == 4 | partyid == 5 | partyid == 6) %>% | |
ct(reltrad, wt = wtssall) %>% | |
mutate(year = 1988) %>% | |
mutate(party = "Republican") | |
hhh3 <- gss %>% | |
filter(year == 1998) %>% | |
filter(partyid == 4 | partyid == 5 | partyid == 6) %>% | |
ct(reltrad, wt = wtssall) %>% | |
mutate(year = 1998) %>% | |
mutate(party = "Republican") | |
hhh4 <- gss %>% | |
filter(year == 2008) %>% | |
filter(partyid == 4 | partyid == 5 | partyid == 6) %>% | |
ct(reltrad, wt = wtssall) %>% | |
mutate(year = 2008) %>% | |
mutate(party = "Republican") | |
hhh5 <- gss %>% | |
filter(year == 2018) %>% | |
filter(partyid == 4 | partyid == 5 | partyid == 6) %>% | |
ct(reltrad, wt = wtssall) %>% | |
mutate(year = 2018) %>% | |
mutate(party = "Republican") | |
dem <- bind_df("hhh") %>% | |
mutate(reltrad = frcode(reltrad == 1 ~ " Evangelical ", | |
reltrad == 2 ~ " Mainline ", | |
reltrad == 3 ~ " Black Prot. ", | |
reltrad == 4 ~ " Catholic ", | |
reltrad == 7 ~ " No Religion ", | |
reltrad == 0 ~ " Other Faith ")) | |
dem %>% | |
ggplot(., aes(x=1, y = pct, fill = fct_rev(reltrad))) + | |
geom_col(color = "black") + | |
coord_flip() + | |
facet_wrap(~ year, ncol =1) + | |
theme_gg("Abel") + | |
theme(legend.position = "bottom") + | |
scale_fill_paletteer_d(awtools, mpalette) + | |
scale_y_continuous(labels = percent) + | |
guides(fill = guide_legend(reverse=T, nrow =1)) + | |
theme(axis.title.y=element_blank(), axis.text.y=element_blank(), axis.ticks.y=element_blank()) + | |
geom_text(aes(label = paste0(pct*100, '%')), position = position_stack(vjust = 0.5), size = 4, family = "font", color = "white") + | |
theme(panel.grid.major.y = element_blank()) + | |
theme(panel.grid.minor.y = element_blank()) + | |
theme(plot.title = element_text(size = 15)) + | |
labs(x = "", y = "", title = "How has the Religious Composition of Republicans Changed Over Time?", caption = "@ryanburge\nData: GSS 1978-2018") + | |
ggsave("E://gop_gss_time.png", type = "cairo-png") | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment