# 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()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.