edit

analysis/R/wrangler_functions.R

@@ -638,7 +638,7 @@ get_eu_ntile_summary_relative_long_adorned <- function(peu_q_count) {
                        total_energy_use_losses_tj,
                        total_energy_use_losses_dom_tj,
                        total_energy_use_losses_eu_tj,
-                       total_energy_use_losses_noneu_tj,
+                       total_energy_use_losses_noneu_tj
     ), sum)) %>%
     group_by(year) %>%
     mutate(total_fd_me = total_fd_me/sum(total_fd_me)*100,

analysis/paper/si.Rmd

@@ -1707,9 +1707,9 @@ mean_co2eq_of_energy_intens_top_decile = round((mean_co2eq_of_energy_intens %>%
 
 ```
 
-In 2010 but using the product-by-product version of EXIOBASE, total household final demand expenditure was `r exp_total` trn€, and the carbon footprint `r co2eq_total` MtCO2eq. We estimated the 90:10 ratios at `r exp_10_10` for expenditure, and `r co2eq_10_10` for the carbon footprint. Total expenditure ranged from `r exp_bottom_decile` trn€ to `r exp_top_decile` trn€ (or `r fd_pae_bottom_decile`€ to `r fd_pae_top_decile`€ per adult equivalent) across bottom and top decile, and the carbon footprint from `r co2eq_bottom_decile` MtCO2eq to `r co2eq_top_decile` MtCO2eq (or `r co2eq_pae_bottom_decile` tCO2eq/ae to `r co2eq_pae_top_decile` tCO2eq/ae). The 'net energy use' energy extension used for calculating the energy footprints in the main paper was not available for the product-by-product version of EXIOBASE version3.7.
+In 2010 but using the product-by-product version of EXIOBASE, total household final demand expenditure was `r exp_total` trn€, and the carbon footprint `r co2eq_total` MtCO2eq. We estimated the 90:10 ratios at `r exp_10_10` for expenditure, and `r co2eq_10_10` for the carbon footprint. Total expenditure ranged from `r exp_bottom_decile` trn€ to `r exp_top_decile` trn€ (or `r fd_pae_bottom_decile`€ to `r fd_pae_top_decile`€ per adult equivalent) across bottom and top decile, and the carbon footprint from `r co2eq_bottom_decile` MtCO2eq to `r co2eq_top_decile` MtCO2eq (or `r co2eq_pae_bottom_decile` tCO2eq/ae to `r co2eq_pae_top_decile` tCO2eq/ae). The 'net energy use' energy extension used for calculating the energy footprints in the main paper was not available for the product-by-product version used here, EXIOBASE version3.4.
 
-```{r figureS4-test, fig.width=12, fig.height=4, out.width="98%", fig.cap="***Figure S4: Household final demand expenditure and carbon footprint and intensity across European expenditure deciles in 2010 (product-by-product EXIOBASE version). Total expenditures (a), carbon footprint (b), carbon intensity of consumption as carbon footprint per expenditure (c). The 'net energy use' energy extension used for calculating the energy footprints in the main paper was not available for the product-by-product version of EXIOBASE version3.7.***"}
+```{r figureS4-test, fig.width=12, fig.height=4, out.width="98%", fig.cap="***Figure S4: Household final demand expenditure and carbon footprint and intensity across European expenditure deciles in 2010 (product-by-product EXIOBASE version). Total expenditures (a), carbon footprint (b), carbon intensity of consumption as carbon footprint per expenditure (c). The 'net energy use' energy extension used for calculating the energy footprints in the main paper was not available for the product-by-product version of EXIOBASE version3.4.***"}
 
 #a = p_top / p_bottom + plot_annotation(tag_levels = 'a') +
 #  plot_layout(guides = 'collect')  &