Add reporting and calculations for feedstocks and plastics

inst/markdown/compareScenarios2/cs2_01_summary.Rmd

@@ -155,7 +155,7 @@ items <- c(
 showAreaAndBarPlots(data, items, scales = "fixed")
 ```
 
-## FE Industry by carrier
+## FE Industry by carrier (incl. non-energy use)
 
 ```{r FE Industry by carrier}
 items <- c(
@@ -204,6 +204,17 @@ items <- c(
 showAreaAndBarPlots(data, items, 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}

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)
 ```
 

inst/markdown/compareScenarios2/cs2_05_energy_demand.Rmd

@@ -190,6 +190,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"
@@ -215,6 +222,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

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")
+```