anti_abortion_rip.R

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)