edit figures

analysis/paper/paper.Rmd

@@ -520,6 +520,7 @@ a = (p1 + p2 + p3) +
 #        strip.placement="outside") 
 
 ggsave(here("analysis", "figures", "figure2.pdf"), device=cairo_pdf)
+
 ```
 
 ```{r figure2, out.width="100%", fig.cap="**Figure 2: Final consumption category household expenditure shares (a) and environmental intensities (b and c) of European expenditure deciles.**"}
@@ -612,6 +613,7 @@ hm = pdat %>% filter(indicator_type == "Energy GJ per adult eq") %>%
   summarise(value = sum(value))
 
 ggsave(here("analysis", "figures", "figure3.pdf"))
+
 ```
 
 ```{r values-in-text3}
@@ -826,6 +828,7 @@ a = p1 + map + plot_annotation(tag_levels = 'a') +
         legend.title = element_text(size=13))
 
 ggsave(here("analysis", "figures", "figure4.pdf"))
+
 ```
 
 ```{r figure4, out.width="100%", fig.cap="**Figure 4: Energy savings if all deciles used the best technology available in 2015: by a) expenditure decile and b) country.**"}