From e03fa046245b05b9c9005ff2fc97942a226d1625 Mon Sep 17 00:00:00 2001
From: jaccard <jaccard@pik-potsdam.de>
Date: Fri, 22 Jan 2021 07:43:14 +0100
Subject: [PATCH] edit tables si-test
---
analysis/paper/.~lock.si_test.docx# | 1 -
analysis/paper/si_test.Rmd | 44 ++++++++++++++---------------
2 files changed, 22 insertions(+), 23 deletions(-)
delete mode 100644 analysis/paper/.~lock.si_test.docx#
diff --git a/analysis/paper/.~lock.si_test.docx# b/analysis/paper/.~lock.si_test.docx#
deleted file mode 100644
index d3f6951..0000000
--- a/analysis/paper/.~lock.si_test.docx#
+++ /dev/null
@@ -1 +0,0 @@
-,jaccard,jaccard-Latitude-E6440,21.01.2021 12:40,file:///home/jaccard/.config/libreoffice/4;
\ No newline at end of file
diff --git a/analysis/paper/si_test.Rmd b/analysis/paper/si_test.Rmd
index 27593e0..6e067f7 100644
--- a/analysis/paper/si_test.Rmd
+++ b/analysis/paper/si_test.Rmd
@@ -306,8 +306,8 @@ flextable(footprint) %>%
footprint decomposed by income quintile, through multiplication of
EE-MRIO household final demand expenditure per income quintile and
sector by the total intensity vector (TIV) calculated in the EE-MRIO
- (with only one total intensity per sector).") #%>%
- #fit_to_width(7.5)
+ (with only one total intensity per sector).") %>%
+ fit_to_width(max_width = 7.5)
```
@@ -340,8 +340,8 @@ flextable(labels) %>%
five_sectors = "aggregate consumption category") %>%
set_caption("Mapping EXIOBASE industry
production sectors to COICOP consumption categories and
- five aggregate consumption categories") #%>%
- #fit_to_width(7.5)
+ five aggregate consumption categories") %>%
+ fit_to_width(max_width = 7.5)
```
@@ -561,8 +561,8 @@ flextable(country_year_coverage) %>%
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)") #%>%
- #fit_to_width(7.5)
+ 'rest-of-world' categories)") %>%
+ fit_to_width(max_width = 7.5)
```
@@ -646,8 +646,8 @@ flextable(hbs_bp_pps) %>%
pps_hh_sector2_bp = "s2 (pps hh bp)") %>%
set_caption("Same as Table S1 but now
with base price shares of purchaser price per sector, and
- sectoral expenditure per quintile in pps hh base price.") #%>%
- #fit_to_width(7.5)
+ sectoral expenditure per quintile in pps hh base price.") %>%
+ fit_to_width(max_width = 7.5)
```
@@ -692,8 +692,8 @@ flextable(hbs_bp_shares) %>%
pm_sector2_bp = "s2 (pm bp)") %>%
set_caption("Quintile shares per sector
in base price, with new 'pps hh' per quintile in base price and
- new sectoral pm values in base price.") #%>%
- #fit_to_width(7.5)
+ new sectoral pm values in base price.") %>%
+ fit_to_width(max_width = 7.5)
```
@@ -751,8 +751,8 @@ flextable(eemrio_bp) %>%
q3_eemrio = "q3 fd",
q4_eemrio = "q4 fd",
q5_eemrio = "q5 fd") %>%
- set_caption("Identical to Table 2.") #%>%
- #fit_to_width(7.5)
+ set_caption("Identical to Table 2.") %>%
+ fit_to_width(max_width = 7.5)
```
@@ -840,8 +840,8 @@ flextable(hbs_bp_pps) %>%
pps_hh_sector2_bp = "s2 (pps hh bp)") %>%
set_caption("Same as Table S1 but now
with base price shares of purchaser price per sector, and
- sectoral expenditure per income quintile in pps hh base price.") #%>%
- #fit_to_width(7.5)
+ sectoral expenditure per income quintile in pps hh base price.") %>%
+ fit_to_width(max_width = 7.5)
```
@@ -880,8 +880,8 @@ flextable(hbs_bp_shares) %>%
set_caption("Income quintile shares per sector
in base price, with new 'pps hh' per income quintile in base price and
new sectoral pm values in base price ('pps hh bp' is the sum of
- 's1 (pps hh bp)' and 's2 (pps hh bp)').") #%>%
- #fit_to_width(7.5)
+ 's1 (pps hh bp)' and 's2 (pps hh bp)').") %>%
+ fit_to_width(max_width = 7.5)
```
@@ -945,8 +945,8 @@ flextable(hbs_alt_method_fd) %>%
hh_sector2 = "hh fd s2") %>%
set_caption("Same as Table S9 but
with total EE-MRIO household final demand in purchaser price
- instead of base price.") #%>%
- #fit_to_width(7.5)
+ instead of base price.") %>%
+ fit_to_width(max_width = 7.5)
```
@@ -982,8 +982,8 @@ flextable(eemrio_alt_method) %>%
q4 = "q4 fd",
q5 = "q5 fd") %>%
set_caption("EE-MRIO
- household final demand per quintile and sector.") #%>%
- #fit_to_width(7.5)
+ household final demand per quintile and sector.") %>%
+ fit_to_width(max_width = 7.5)
```
@@ -1038,8 +1038,8 @@ flextable(footprint_alt_method) %>%
q5_footprint = "q5 fp") %>%
set_caption("EE-MRIO household
final demand per quintile and sector multiplied by the TIV to
- calculate footprint per quintile and sector.") #%>%
- #fit_to_width(7.5)
+ calculate footprint per quintile and sector.") %>%
+ fit_to_width(max_width = 7.5)
```
--
GitLab