edit fig.2 caption

analysis/paper/paper.Rmd

@@ -455,7 +455,7 @@ pdat_int_energy = get_sector_summary_by_eu_ntile_direct(eu_q_count) %>%
 library(viridis)
 pdat = pdat_int_co2eq %>%
   bind_rows(pdat_int_energy) %>%
-  bind_rows(pdat_basket)
+  bind_rows(pdat_basket) 
 
 pdat$facet = factor(pdat$indicator, levels = c("Expenditure share (%)", "Energy intensity (MJ/€)", "Carbon intensity (kgCO2eq/€)"))
 
@@ -474,7 +474,7 @@ a = ggplot(pdat, aes(x=value, y=five_sectors, color=eu_q_rank)) +
 ggsave(here("analysis", "figures", "figure2.pdf"), device=cairo_pdf)
 ```
 
-```{r figure2, out.width="100%", fig.cap="Sectoral expenditure shares and carbon intensities of European expenditure deciles. Share of expenditure per final demand sector of total spending per decile in percent (a) and carbon intensity per final demand sector in kgCO2eq/€."}
+```{r figure2, out.width="100%", fig.cap="Sectoral expenditure shares and carbon intensities of European expenditure deciles. Share of expenditure per final demand sector of total spending per decile in percent (a) and carbon intensity per final demand sector in kgCO2eq/€. Our 'services' category includes the EXIOBASE production sector 'real estate services'."}
 knitr::include_graphics(here::here("analysis", "figures", "figure2.pdf"))
 ```