diff --git a/inst/compareScenarios/cs_03_emissions.Rmd b/inst/compareScenarios/cs_03_emissions.Rmd index ee6a708f..c49ddd36 100644 --- a/inst/compareScenarios/cs_03_emissions.Rmd +++ b/inst/compareScenarios/cs_03_emissions.Rmd @@ -201,6 +201,58 @@ showLinePlots( showLinePlots(data, "Emi|CO2|Industry") ``` +### Waste Emissions + +#### Total Waste Emissions + +```{r total waste CO2} + + +tot <- "Emi|CO2|Energy|Waste" +items <- c( + "Emi|CO2|Energy|Waste|Feedstocks unknown fate", + "Emi|CO2|Energy|Waste|Plastics Incineration" + ) + +showAreaAndBarPlots(data, items, tot, scales = "fixed") +``` + +#### Waste Emissions from Plastics-Incineration +```{r CO2 waste plastics incineration} + +showLinePlots(data, "Emi|CO2|Energy|Waste|Plastics Incineration") +``` + +#### Waste Emissions from Non-plastic Materials +```{r CO2 waste non-plastic Materials} + +showLinePlots(data, "Emi|CO2|Energy|Waste|Feedstocks unknown fate") +``` + +#### Waste Emissions Attributed to Electricity +```{r CO2 waste attributed to electricity} + +showLinePlots(data, "Emi|CO2|Energy|Supply|Electricity|Waste") +``` + +#### Waste Emissions Attributed to Heat +```{r CO2 waste attributed to heat} + +showLinePlots(data, "Emi|CO2|Energy|Supply|Heat|Waste") +``` + +#### Waste Emissions Attributed to Industry +```{r CO2 waste attributed to industry} + +showLinePlots(data, "Emi|CO2|Energy|Demand|Industry|Waste") +``` + +#### Waste Emissions Attributed to Buildings +```{r CO2 waste attributed to buildings} + +showLinePlots(data, "Emi|CO2|Energy|Demand|Buildings|Waste") +``` + ### Transport @@ -222,7 +274,7 @@ showLinePlots(data, "Emi|CO2|Energy|Demand|Transport|International Bunkers") showLinePlots(data, "Emi|CO2|Industrial Processes") ``` -```{r CO2 Process Emissions} +```{r CO2 Process Emissions by Sector} tot <- c("Emi|CO2|Industrial Processes") items <- c( "Emi|CO2|Industrial Processes|Chemicals",