R/ts_plot.R

In fsolt/dcpo_gayrights: Dynamic Comparative Public Opinion

# make this a function!

#ts_plot <- function(df, rows = 7, cols = 5, npages) {
rows <- 7
cols <- 5
npages <- 3
#a_res <- df

pages <- c("1:35", "36:70", "71:105")
t_res1 <- t_res1 %>%
  group_by(country) %>%
  mutate(last_est = last(estimate)) %>%
  ungroup()
for (i in 1:npages) {
  cpage <- unique(t_res1$country)[((i-1)*rows*cols)+1:i*rows*cols]
  cpage <- unique(t_res1$country)[c(eval(parse(text=pages[i])))]
  cp <- t_res1[t_res1$country %in% cpage, ]
  cp$country <- factor(cp$country, levels = cpage)

  plotx <- ggplot(data=cp, aes(x=year, y=estimate)) +
    geom_line() + theme_bw() +
    theme(legend.position="none") +
    coord_cartesian(xlim=c(1970,2020)) +
    labs(x = NULL, y = "Tolerance") +
    geom_ribbon(aes(ymin = lb, ymax = ub, linetype=NA), alpha = .25) +
    facet_wrap(~country, ncol = 5) +
    theme(axis.text.x = element_text(angle = 45, hjust = 1),
          strip.background = element_rect(fill = "white", colour = "white"))

  pdf(file=paste0("paper/figures/ts",i,".pdf"), width=6, height = 9)
  plot(plotx)
  graphics.off()
}