SBC conservative

sbc_conservative.R

graph <- gss %>% 
  filter(denom == 14) %>% 
  filter(attend ==  6 | attend == 7 | attend == 8) %>% 
  mutate(literal = car::recode(bible, "1=1; 2:3=0; else = NA")) %>% 
  group_by(year) %>% 
  mean_ci(literal)

graph %>% 
  ggplot(., aes(x = year, y = mean)) +
  geom_point(size=3, color="white") +
  geom_point(size=2, shape=1) +
  geom_point(size=1, shape=19) +
  geom_smooth(se = FALSE, linetype = "twodash", color = "black") +
  y_pct() + 
  theme_gg("Abel") +
  labs(x = "", y = "", title = "Southern Baptists Who are Biblical Literalists", caption = "@ryanburge\nData 1984-2018", subtitle = "Among Weekly Attenders") +
  ggsave("E://sbc_literalism.png", type = "cairo-png")

graph <- gss %>% 
  filter(denom == 14) %>% 
  filter(attend ==  6 | attend == 7 | attend == 8) %>% 
  mutate(gays = car::recode(homosex, "1:2=1; 3:4=0; else = NA")) %>% 
  group_by(year) %>% 
  mean_ci(gays)


graph %>% 
  ggplot(., aes(x = year, y = mean)) +
  geom_point(size=3, color="white") +
  geom_point(size=2, shape=1) +
  geom_point(size=1, shape=19) +
  geom_smooth(se = FALSE, linetype = "twodash", color = "darkorchid") +
  y_pct() + 
  theme_gg("Abel") +
  labs(x = "", y = "", title = "Southern Baptists Who Believe Homosexual Sex is Wrong", caption = "@ryanburge\nData 1984-2018", subtitle = "Among Weekly Attenders") +
  ggsave("E://sbc_homosex.png", type = "cairo-png")

graph <- gss %>% 
  filter(denom == 14) %>% 
  filter(attend ==  6 | attend == 7 | attend == 8) %>% 
  gss_pid3(partyid) %>% 
  group_by(year) %>% 
  ct(pid3) %>% 
  filter(pid3 == "Republican")


graph %>% 
  ggplot(., aes(x = year, y = pct)) +
  geom_point(size=3, color="white") +
  geom_point(size=2, shape=1) +
  geom_point(size=1, shape=19) +
  geom_smooth(se = FALSE, linetype = "twodash", color = "firebrick3") +
  y_pct() + 
  theme_gg("Abel") +
  labs(x = "", y = "", title = "Southern Baptists Who Are Republicans", caption = "@ryanburge\nData 1984-2018", subtitle = "Among Weekly Attenders") +
  ggsave("E://sbc_repub.png", type = "cairo-png")