Merge pull request pik-piam#489 from mellamoSimon/feedstocks-final

Add reporting and calculations for energy and emissions from chemical feedstocks and plastics
pweigmann · Dec 18, 2023 · 09b72be · 09b72be
2 parents eec8ce9 + 7e24a6d
commit 09b72be
Show file tree

Hide file tree

Showing 6 changed files with 720 additions and 83 deletions.
diff --git a/R/reportEmi.R b/R/reportEmi.R
diff --git a/R/reportFE.R b/R/reportFE.R
diff --git a/inst/markdown/compareScenarios2/cs2_01_summary.Rmd b/inst/markdown/compareScenarios2/cs2_01_summary.Rmd
@@ -157,7 +157,7 @@ items <- c(
 showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed")
 ```
 
-## FE Industry by carrier
+## FE Industry by carrier (incl. non-energy use)
 
 ```{r FE Industry by carrier}
 items <- c(
@@ -212,6 +212,17 @@ items <- c(
 showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed")
 ```
 
+
+## FE Non-energy Use by carrier
+
+```{r FE Non-energy Use by carrier}
+items <- c(
+  "FE|Non-energy Use|Industry|Solids",
+  "FE|Non-energy Use|Industry|Liquids",
+  "FE|Non-energy Use|Industry|Gases")
+showAreaAndBarPlots(data, items)
+```
+
 ## SE Electricity by carrier
 
 ```{r SE Electricity by carrier}

diff --git a/inst/markdown/compareScenarios2/cs2_03_emissions.Rmd b/inst/markdown/compareScenarios2/cs2_03_emissions.Rmd
@@ -71,7 +71,10 @@ items <- c(
   "Emi|CO2|Energy|Supply|Non-electric",
   "Emi|CO2|Energy|Supply|Electricity w/ couple prod",
   "Emi|CO2|CDR|DACCS",
-  "Emi|CO2|CDR|EW")
+  "Emi|CO2|CDR|EW",
+  "Emi|CO2|Plastics incineration",
+  "Emi|CO2|Feedstocks unknown fate"
+  )
 showAreaAndBarPlots(data, items, tot, scales = "fixed")
 ```
 
@@ -229,8 +232,45 @@ showLinePlots(data, "Emi|CO2|Energy|Demand|Transport|International Bunkers")
 
 ```{r CO2 Process Emissions}
 items <- c(
-  "Emi|CO2|Industrial Processes", # scenario
-  "Emi|CO2|FFaI|Industry|Process") # historical
+  "Emi|CO2|Industrial Processes"#, # scenario
+  # "Emi|CO2|FFaI|Industry|Process"
+  ) # historical
+showLinePlots(data, items)
+```
+
+```{r CO2 Process Emissions}
+tot <- c("Emi|CO2|Industrial Processes")
+items <- c(
+      "Emi|CO2|Industrial Processes|Chemicals",
+      "Emi|CO2|Industrial Processes|Cement"
+      )
+showAreaAndBarPlots(data, items, tot, scales = "fixed")
+```
+
+### Process Emissions Cement
+
+```{r}
+items <- c(
+  "Emi|CO2|Industrial Processes|Cement",
+  "Emi|CO2|Industrial Processes|Minerals" # to display historical data from UNFCCC
+  ) 
+showLinePlots(data, items)
+```
+
+
+### Process Emissions Chemicals
+
+```{r}
+items <- c(
+  "Emi|CO2|Industrial Processes|Chemicals") 
+showLinePlots(data, items)
+```
+
+### Process Emissions Metals
+
+```{r}
+items <- c(
+  "Emi|CO2|Industrial Processes|Metals") 
 showLinePlots(data, items)
 ```
 

diff --git a/inst/markdown/compareScenarios2/cs2_05_energy_demand.Rmd b/inst/markdown/compareScenarios2/cs2_05_energy_demand.Rmd
@@ -205,6 +205,13 @@ items <- c(
 showAreaAndBarPlots(data, items, tot, scales = "fixed")
 ```
 
+### FE Total Chemicals
+```{r FE Total Chemicals}
+items <- c(
+  "FE|Industry|Chemicals") 
+showLinePlots(data, items)
+```
+
 ### FE mix Other Industry
 ```{r FE mix Other Industry}
 tot <- "FE|Industry|Other Industry"
@@ -231,6 +238,25 @@ showLinePlots(data, "FE|Industry|Chemicals")
 showLinePlots(data, c("FE|Industry|Other Industry", "FE|Industry|other"))
 ```
 
+
+### FE|Non-energy Use|Industry per carrier and SE origin
+
+```{r}
+tot <- "FE|Non-energy Use|Industry"
+items <- c(
+  "FE|Non-energy Use|Industry|Solids|Fossil",
+  "FE|Non-energy Use|Industry|Solids|Biomass",
+  "FE|Non-energy Use|Industry|Liquids|Fossil",
+  "FE|Non-energy Use|Industry|Liquids|Biomass",
+  "FE|Non-energy Use|Industry|Liquids|Hydrogen",
+  "FE|Non-energy Use|Industry|Gases|Fossil",
+  "FE|Non-energy Use|Industry|Gases|Biomass",
+  "FE|Non-energy Use|Industry|Gases|Hydrogen")
+showAreaAndBarPlots(data, items, tot)
+```
+
+
+
 ### Specific Energy Consumption
 ```{r}
 # estimated values for thermodynamic limits are hard coded here. Could be

diff --git a/inst/markdown/compareScenarios2/cs2_09_carbon_management.Rmd b/inst/markdown/compareScenarios2/cs2_09_carbon_management.Rmd
@@ -37,3 +37,27 @@ showAreaAndBarPlots(data,
                              'Carbon Management|Usage'),
                     tot = 'Carbon Management|Carbon Capture')
 ```
+
+# Materials
+
+## Total plastics production
+```{r }
+showLinePlots(data, "Carbon Management|Materials|Plastics")
+```
+
+## Plastics production by origin
+```{r }
+showAreaAndBarPlots(data, 
+                        vars = c("Carbon Management|Materials|Plastics|Fossil",
+                                 "Carbon Management|Materials|Plastics|Biomass",
+                                 "Carbon Management|Materials|Plastics|Synfuels"), 
+                        scales = "fixed")
+```
+
+## Plastics production by fate
+```{r }
+showAreaAndBarPlots(data, 
+                        vars = c("Carbon Management|Materials|Plastics|Incineration",
+                                 "Carbon Management|Materials|Plastics|Other destination"), 
+                        scales = "fixed")
+```