edit si

analysis/paper/paper.Rmd

@@ -72,7 +72,9 @@ pacman::p_load(tidyverse,
                glue,
                ggridges,
                patchwork,
-               kableExtra)
+               kableExtra,
+               readxl,
+               flextable)
 
 pal <- wes_palette("Cavalcanti1", 5, type = "discrete")
 extrafont::loadfonts()
@@ -619,8 +621,6 @@ Global 1.5°C compatible decarbonisation scenarios achieve a similar climate out
 
 ```{r}
 
-library(readxl)
-
 df_scenario_info = read_excel(here("analysis/data/raw/scenarios.xlsx"), sheet="overview") %>%
   select(scenario, fe_gj_aeu = final_energy_gj_per_aeu_2050,
          ccs_required = primary_energy_fossil_w_ccs2050_ej,
@@ -630,8 +630,6 @@ df_scenario_info = read_excel(here("analysis/data/raw/scenarios.xlsx"), sheet="o
          ccs_required = round(ccs_required)) %>%
   select(scenario,fe_gj_aeu)
 
-library(flextable) 
-
 flextable(df_scenario_info) %>%
   autofit() %>%
   set_header_labels(scenario = "scenario", 

analysis/paper/si.Rmd

@@ -309,14 +309,16 @@ labels = read.csv(here("/analysis/preprocessing/income-stratified-footprints/Exi
 #  scroll_box(width = "100%", height = "200px")
 
 flextable(labels) %>%
-  autofit() %>%
+  #autofit() %>%
   set_header_labels(V2 = "exiobase industry production sector",
                     coicop = "coicop consumption category",
                     five_sectors = "aggregate consumption category") %>%
   set_caption("Mapping EXIOBASE industry 
              production sectors to COICOP consumption categories and 
              five aggregate consumption categories") %>%
-  fit_to_width(max_width = 7.5)
+  width(j=1,width = 4) %>%
+  width(j=2, width = 1.5) %>%
+  width(j=3, width = 1.5) 
 
 ```
 
@@ -471,25 +473,9 @@ country_year_coverage = data.frame(geo,
                                    year_2010,
                                    year_2005)
 
-#knitr::kable(country_year_coverage, caption = "Table S5: Country and year 
-#             coverage between EXIOBASE and the EUROSTAT HBS. Rows with black 
-#             text show countries that are represented in EXIOBASE, and an 'x' 
-#             for those years where EUROSTAT HBS data also exists for that country. 
-#             Rows with red text show countries where EUROSTAT HBS data exists, 
-#             but who are not represented individually in EXIOBASE (they are in 
-#             'rest-of-world' categories)",
-#             col.names = c("geo",
-#                           "2015",
-#                           "2010",
-#                           "2005",
-#                           "1999")) %>%
-#  kable_styling(latex_options = "HOLD_position") %>%
-#  row_spec(c(20,21,28,34), color = "red") %>%
-#  scroll_box(width = "100%", height = "200px")
-
 flextable(country_year_coverage) %>%
   autofit() %>%
-  set_header_labels(geo = "geo",
+  set_header_labels(geo = "Country",
                     year_2015 = "2015",
                     year_2010 = "2010",
                     year_2005 = "2005") %>%
@@ -500,6 +486,7 @@ flextable(country_year_coverage) %>%
              Rows with red text show countries where EUROSTAT HBS data exists, 
              but who are not represented individually in EXIOBASE (they are in 
              'rest-of-world' categories)") %>%
+  color(i=c(20,21,28,34),color='red') %>%
   fit_to_width(max_width = 7.5) 
 
 ```