edit si

analysis/paper/si.Rmd

@@ -53,6 +53,66 @@ extrafont::loadfonts()
 library(here)
 ```
 
+```{r , eval = FALSE}
+
+co2_combustion = read_csv(here("TIV_co2_combustion_air_2011_ixi.csv"))[,-1]
+co2_noncombustion_cement = read_csv(here("TIV_co2_noncombustion_cement_air_2011_ixi.csv"))[,-1]
+co2_noncombustion_lime = read_csv(here("TIV_co2_noncombustion_lime_air_2011_ixi.csv"))[,-1]
+co2_waste_fossil = read_csv(here("TIV_co2_waste_fossil_air_2011_ixi.csv"))[,-1]
+co2_waste_biogenic = read_csv(here("TIV_co2_biogenic_air_2011_ixi.csv"))[,-1]
+co2_agriculture = read_csv(here("TIV_co2_agriculture_peatdecay_air_2011_ixi.csv"))[,-1]
+
+ch4_combustion = read_csv(here("TIV_ch4_CO2eq_combustion_air_2011_ixi.csv"))[,-1]
+ch4_noncombustion_gas = read_csv(here("TIV_ch4_CO2eq_noncombustion_gas_air_2011_ixi.csv"))[,-1]
+ch4_noncombustion_oil = read_csv(here("TIV_ch4_CO2eq_noncombustion_oil_air_2011_ixi.csv"))[,-1]
+ch4_noncombustion_anthracite = read_csv(here("TIV_ch4_CO2eq_noncombustion_anthracite_air_2011_ixi.csv"))[,-1]
+ch4_noncombustion_bituminouscoal = read_csv(here("TIV_ch4_CO2eq_noncombustion_bituminouscoal_air_2011_ixi.csv"))[,-1]
+ch4_noncombustion_cokingcoal = read_csv(here("TIV_ch4_CO2eq_noncombustion_cokingcoal_air_2011_ixi.csv"))[,-1]
+ch4_noncombustion_lignite = read_csv(here("TIV_ch4_CO2eq_noncombustion_lignite_air_2011_ixi.csv"))[,-1]
+ch4_noncombustion_subbituminouscoal = read_csv(here("TIV_ch4_CO2eq_noncombustion_subbituminouscoal_air_2011_ixi.csv"))[,-1]
+ch4_noncombustion_oilrefinery = read_csv(here("TIV_ch4_CO2eq_noncombustion_oilrefinery_air_2011_ixi.csv"))[,-1]
+ch4_agriculture = read_csv(here("TIV_ch4_CO2eq_agriculture_air_2011_ixi.csv"))[,-1]
+ch4_waste = read_csv(here("TIV_ch4_CO2eq_waste_air_2011_ixi.csv"))[,-1]
+
+n2o_combustion = read_csv(here("TIV_n2o_CO2eq_combustion_air_2011_ixi.csv"))[,-1]
+n2o_agriculture = read_csv(here("TIV_n2o_CO2eq_agriculture_air_2011_ixi.csv"))[,-1]
+
+sf6 = read_csv(here("TIV_sf6_CO2eq_air_2011_ixi.csv"))[,-1]
+hfc = read_csv(here("TIV_hfc_CO2eq_air_2011_ixi.csv"))[,-1]
+pfc = read_csv(here("TIV_pfc_CO2eq_air_2011_ixi.csv"))[,-1]
+
+TIV_co2eq = cbind(t(co2_combustion),
+                  t(co2_noncombustion_cement),
+                  t(co2_noncombustion_lime),
+                  t(co2_waste_fossil),
+                  t(co2_waste_biogenic),
+                  t(co2_agriculture),
+                  t(ch4_combustion),
+                  t(ch4_noncombustion_gas),
+                  t(ch4_noncombustion_oil),
+                  t(ch4_noncombustion_anthracite),
+                  t(ch4_noncombustion_bituminouscoal),
+                  t(ch4_noncombustion_cokingcoal),
+                  t(ch4_noncombustion_lignite),
+                  t(ch4_noncombustion_subbituminouscoal),
+                  t(ch4_noncombustion_oilrefinery),
+                  t(ch4_agriculture),
+                  t(ch4_waste),
+                  t(n2o_combustion),
+                  t(n2o_agriculture),
+                  t(sf6),
+                  t(hfc),
+                  t(pfc)) 
+
+write.csv(TIV_co2eq, here("tiv_co2eq.csv"))
+
+energy_use = t(read_csv(here("TIV_energy_carrier_use_2011_ixi.csv"))[,-1])
+
+write.csv(energy_use, here("tiv_energy_use.csv"))
+
+```
+
+
 # Supplementary Materials and Methods
 
 In this paper our first aim was to decompose an Environmentally-Extended Multi-Regional Input-Output (EE-MRIO) model's household final demand expenditure by income quantile, and then multiply this income-stratified expenditure by 'total' intensities calculated in the EE-MRIO to estimate national income-stratified footprints. An EE-MRIO is used for estimating national footprints from final demand expenditure. Final demand expenditure on different production sectors, in monetary units, is multiplied by 'total' intensities per production sector to calculate the footprint (for one year). The 'total' intensities per production sector estimate the total physical amount of environmental extension, whether emissions, energy, etc., anywhere along the supply chain per monetary unit of final demand expenditure. In this way, the total amount of environmental pressure in that year is allocated to each country based on their final demand expenditure (this 'footprint' approach is also called consumption-based accounting as opposed to territorial-based accounting). The 'total' intensities per production sector are calculated using standard EE-MRIO calculations.