From 2bbaff77717c4e14ded4a38949a6a0652494cbab Mon Sep 17 00:00:00 2001 From: lecfab Date: Wed, 18 Sep 2024 19:22:26 +0200 Subject: [PATCH] cs2: light structural changes, a few plots added --- inst/compareScenarios/cs_01_summary.Rmd | 32 ++-- inst/compareScenarios/cs_04_energy_supply.Rmd | 165 ++++++++++-------- inst/compareScenarios/cs_10_tech_cost.Rmd | 10 +- 3 files changed, 114 insertions(+), 93 deletions(-) diff --git a/inst/compareScenarios/cs_01_summary.Rmd b/inst/compareScenarios/cs_01_summary.Rmd index a47da7ca..4964cf64 100644 --- a/inst/compareScenarios/cs_01_summary.Rmd +++ b/inst/compareScenarios/cs_01_summary.Rmd @@ -17,7 +17,7 @@ items <- c( showAreaAndBarPlots(data, items, tot, scales = "fixed") ``` -## GHG by sector +### GHG by sector ```{r GHG by sector (w/ gross emissions, excl. negative emissions from CCS of non-fossil carbon)} tot <- "Emi|GHG" @@ -107,7 +107,7 @@ items <- c( showAreaAndBarPlots(data, items, scales = "fixed") ``` -## FE per capita (by sector, time domain, area plot) +### FE per capita - area plot, time domain ```{r FE per capita (by sector, time domain, area plot)} items <- c( @@ -118,7 +118,7 @@ items <- c( showAreaAndBarPlots(data, items, tot = "FE pCap", scales = "fixed") ``` -## FE per capita (by sector, time domain, line graph) +### FE per capita - line graph, time domain ```{r FE per capita (by sector, time domain, line graph)} dIea <- data %>% @@ -132,7 +132,7 @@ items <- c( showMultiLinePlots(dIea, items, scales = "fixed") ``` -## FE per capita (by sector, GDP) +### FE per capita - line graph, GDP domain ```{r FE per capita (by sector, GDP)} dIea <- data %>% @@ -162,7 +162,7 @@ items <- c( showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` -## FE by carrier (detailed) +### FE by carrier (detailed) ```{r FE by carrier (detailed)} items <- c( @@ -187,7 +187,7 @@ items <- c( showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` -## FE Industry by carrier (incl. non-energy use) +### FE Industry by carrier (incl. non-energy use) ```{r FE Industry by carrier (incl. non-energy use)} items <- c( @@ -202,7 +202,7 @@ items <- c( showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` -## FE Buildings by carrier +### FE Buildings by carrier ```{r FE Buildings by carrier} items <- c( @@ -217,7 +217,7 @@ items <- c( showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` -## FE Transport by carrier +### FE Transport by carrier ```{r FE Transport by carrier} items <- c( @@ -230,7 +230,7 @@ items <- c( showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` -## FE CDR by carrier +### FE CDR by carrier ```{r FE CDR by carrier} @@ -245,14 +245,14 @@ showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` -## FE Non-energy Use by carrier +### 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|Gases", "FE|Non-energy Use|Industry|Liquids", - "FE|Non-energy Use|Industry|Gases") -showAreaAndBarPlots(data, items) + "FE|Non-energy Use|Industry|Solids") +showAreaAndBarPlots(data, items, orderVars = "user") ``` ## SE Electricity by carrier @@ -263,19 +263,19 @@ tot <- "SE|Electricity" items <- c( "SE|Electricity|Net Imports", + "SE|Electricity|Hydrogen", "SE|Electricity|Solar|CSP", "SE|Electricity|Solar|PV", "SE|Electricity|Wind|Onshore", "SE|Electricity|Wind|Offshore", "SE|Electricity|Hydro", - "SE|Electricity|Hydrogen", "SE|Electricity|Nuclear", "SE|Electricity|Geothermal", "SE|Electricity|Biomass|w/ CC", "SE|Electricity|Biomass|w/o CC", - "SE|Electricity|Oil", "SE|Electricity|Gas|w/ CC", "SE|Electricity|Gas|w/o CC", + "SE|Electricity|Oil", "SE|Electricity|Coal|w/ CC", "SE|Electricity|Coal|w/o CC", NULL) @@ -295,8 +295,8 @@ items <- c( "PE|Nuclear", "PE|Geothermal", "PE|Biomass", - "PE|Oil", "PE|Gas", + "PE|Oil", "PE|Coal", NULL) diff --git a/inst/compareScenarios/cs_04_energy_supply.Rmd b/inst/compareScenarios/cs_04_energy_supply.Rmd index d2b5cda1..0c5d26d9 100644 --- a/inst/compareScenarios/cs_04_energy_supply.Rmd +++ b/inst/compareScenarios/cs_04_energy_supply.Rmd @@ -8,8 +8,8 @@ items <- c( "Energy Investments|Electricity|Grid|BEV Chargers", "Energy Investments|Electricity|Grid|VRE support", "Energy Investments|Electricity|Grid|Normal", - "Energy Investments|Electricity|Hydrogen", "Energy Investments|Electricity|Storage", + "Energy Investments|Electricity|Hydrogen", "Energy Investments|Electricity|Solar", "Energy Investments|Electricity|Wind", "Energy Investments|Electricity|Hydro", @@ -17,9 +17,9 @@ items <- c( "Energy Investments|Electricity|Geothermal", "Energy Investments|Electricity|Biomass|w/ CC", "Energy Investments|Electricity|Biomass|w/o CC", - "Energy Investments|Electricity|Oil", "Energy Investments|Electricity|Gas|w/ CC", "Energy Investments|Electricity|Gas|w/o CC", + "Energy Investments|Electricity|Oil", "Energy Investments|Electricity|Coal|w/ CC", "Energy Investments|Electricity|Coal|w/o CC", NULL) @@ -28,20 +28,19 @@ showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` ## Capacities Electricity - +### Mix of Electricity Capacities ```{r Capacities Electricity} items <- c( - "Cap|Electricity|Solar", - if ("Cap|Electricity|Wind|Offshore" %in% levels(data$variable)) - c("Cap|Electricity|Wind|Onshore", "Cap|Electricity|Wind|Offshore") - else - "Cap|Electricity|Wind", "Cap|Electricity|Storage|Battery", + "Cap|Electricity|Hydrogen", + "Cap|Electricity|Solar|CSP", + "Cap|Electricity|Solar|PV", + "Cap|Electricity|Wind|Offshore", + "Cap|Electricity|Wind|Onshore", "Cap|Electricity|Hydro", "Cap|Electricity|Nuclear", "Cap|Electricity|Geothermal", "Cap|Electricity|Biomass", - "Cap|Electricity|Hydrogen", "Cap|Electricity|Gas|w/ CC", "Cap|Electricity|Gas|w/o CC", "Cap|Electricity|Oil|w/o CC", @@ -52,7 +51,30 @@ items <- c( showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` -## Capacities electricity line plots +### Coal +```{r Cap Coal} +showLinePlots(data, "Cap|Electricity|Coal") +``` + +### Oil +```{r Cap Oil} +showLinePlots(data, "Cap|Electricity|Oil") +``` + +### Gas +```{r Cap Gas} +showLinePlots(data, "Cap|Electricity|Gas") +``` + +### Biomass +```{r Cap Biomass} +showLinePlots(data, "Cap|Electricity|Biomass") +``` + +### Geothermal +```{r Cap Geothermal} +showLinePlots(data, "Cap|Electricity|Geothermal") +``` ### Nuclear ```{r Cap Nuclear} @@ -74,34 +96,54 @@ showLinePlots(data, "Cap|Electricity|Wind|Offshore") ### Solar ```{r Cap Solar} showLinePlots(data, "Cap|Electricity|Solar") +showLinePlots(data, "Cap|Electricity|Solar|PV") +showLinePlots(data, "Cap|Electricity|Solar|CSP") ``` -### Coal -```{r Cap Coal} -showLinePlots(data, "Cap|Electricity|Coal") +### Hydrogen +```{r Cap Hydrogen} +showLinePlots(data, "Cap|Electricity|Hydrogen") ``` -### Gas -```{r Cap Gas} -showLinePlots(data, "Cap|Electricity|Gas") +### Storage Battery +```{r Cap Hydro} +showLinePlots(data, "Cap|Electricity|Storage|Battery") ``` -### Oil -```{r Cap Oil} -showLinePlots(data, "Cap|Electricity|Oil") + +## PE Extraction (before trade) +### PE Coal Extraction +```{r PE Coal Extraction} +showLinePlots(data, "Res|Extraction|Coal") ``` -### Biomass -```{r Cap Biomass} -showLinePlots(data, "Cap|Electricity|Biomass") +### PE Oil Extraction +```{r PE Oil Extraction} +showLinePlots(data, "Res|Extraction|Oil") ``` -### Hydrogen -```{r Cap Hydrogen} -showLinePlots(data, "Cap|Electricity|Hydrogen") +### PE Gas Extraction +```{r PE Gas Extraction} +showLinePlots(data, "Res|Extraction|Gas") ``` -## PE Mix +### PE Biomass Production +```{r PE Biomass Production} +items <- c( + "PE|Production|Biomass|Lignocellulosic|Energy Crops", + "PE|Production|Biomass|Lignocellulosic|Residues", + "PE|Production|Biomass|1st Generation", + NULL) +showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") +``` + +### PE Biomass Production - Energy Crops +```{r PE Biomass - Energy Crops} +showLinePlots(data, "Primary Energy Production|Biomass|Energy Crops") +``` + + +## PE Consumption (after trade) ### PE Coal ```{r PE Coal} items <- c( @@ -131,6 +173,13 @@ items <- c( showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` +### PE Oil +```{r PE Oil} +items <- c( + "PE|Oil", + NULL) +showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") +``` ### PE Biomass ```{r PE Biomass} @@ -148,15 +197,6 @@ items <- c( showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` -### PE Oil -```{r PE Oil} -items <- c( - "PE|Oil", - NULL) -showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") -``` - -## Primary Energy line plots ### PE Coal - Line ```{r PE Coal} showLinePlots(data, "PE|Coal") @@ -177,32 +217,13 @@ showLinePlots(data, "PE|Gas") showLinePlots(data, "PE|Biomass") ``` -### PE Biomass - Energy Crops - Line -```{r PE Biomass - Energy Crops} -showLinePlots(data, "Primary Energy Production|Biomass|Energy Crops") -``` - ### PE Geothermal - Line ```{r PE Geothermal} showLinePlots(data, "PE|Geothermal") ``` -### PE Coal Extraction -```{r PE Coal Extraction} -showLinePlots(data, "Res|Extraction|Coal") -``` - -### PE Oil Extraction -```{r PE Oil Extraction} -showLinePlots(data, "Res|Extraction|Oil") -``` - -### PE Gas Extraction -```{r PE Gas Extraction} -showLinePlots(data, "Res|Extraction|Gas") -``` -## Secondary Energy Mixes +## SE Mix ### SE Electricity ```{r SE Electricity} @@ -211,19 +232,19 @@ tot <- "SE|Electricity" items <- c( "SE|Electricity|Net Imports", + "SE|Electricity|Hydrogen", "SE|Electricity|Solar|CSP", "SE|Electricity|Solar|PV", "SE|Electricity|Wind|Onshore", "SE|Electricity|Wind|Offshore", "SE|Electricity|Hydro", - "SE|Electricity|Hydrogen", "SE|Electricity|Nuclear", "SE|Electricity|Geothermal", "SE|Electricity|Biomass|w/ CC", "SE|Electricity|Biomass|w/o CC", - "SE|Electricity|Oil", "SE|Electricity|Gas|w/ CC", "SE|Electricity|Gas|w/o CC", + "SE|Electricity|Oil", "SE|Electricity|Coal|w/ CC", "SE|Electricity|Coal|w/o CC", NULL) @@ -402,9 +423,7 @@ showAreaAndBarPlots(data, items, tot, orderVars = "user", scales = "fixed") ``` - - -## Secondary Energy line plots - totals +## SE Totals - line plots ### SE Electricity ```{r SE Electricity total line} @@ -421,13 +440,11 @@ showLinePlots(data, "SE|Heat") showLinePlots(data, "SE|Hydrogen") ``` - ### SE Solids ```{r SE Solids total line} showLinePlots(data, "SE|Solids") ``` - ### SE Liquids ```{r SE Liquids total line} showLinePlots(data, "SE|Liquids") @@ -441,24 +458,26 @@ showLinePlots(data, "SE|Gases") -## Secondary Energy line plots - detail +## SE Details - line plots ### SE Electricity ```{r SE Electricity detail line} -showLinePlots(data, "SE|Electricity|Gas") + showLinePlots(data, "SE|Electricity|Coal") showLinePlots(data, "SE|Electricity|Oil") +showLinePlots(data, "SE|Electricity|Gas") +showLinePlots(data, "SE|Electricity|Biomass") +showLinePlots(data, "SE|Electricity|Geothermal") showLinePlots(data, "SE|Electricity|Nuclear") showLinePlots(data, "SE|Electricity|Hydro") -showLinePlots(data, "SE|Electricity|Hydrogen") showLinePlots(data, "SE|Electricity|Wind") showLinePlots(data, "SE|Electricity|Wind|Onshore") showLinePlots(data, "SE|Electricity|Wind|Offshore") showLinePlots(data, "SE|Electricity|Solar") showLinePlots(data, "SE|Electricity|Solar|PV") showLinePlots(data, "SE|Electricity|Solar|CSP") -showLinePlots(data, "SE|Electricity|Biomass") +showLinePlots(data, "SE|Electricity|Hydrogen") ``` @@ -475,30 +494,29 @@ showLinePlots(data, "SE|Heat|Electricity|Heat Pump") ### SE Hydrogen ```{r SE Hydrogen detail line} -showLinePlots(data, "SE|Hydrogen|Biomass|w/ CC") -showLinePlots(data, "SE|Hydrogen|Biomass|w/o CC") showLinePlots(data, "SE|Hydrogen|Coal|w/ CC") showLinePlots(data, "SE|Hydrogen|Coal|w/o CC") -showLinePlots(data, "SE|Hydrogen|Electricity|VRE Storage Electrolysis") -showLinePlots(data, "SE|Hydrogen|Electricity|Standard Electrolysis") showLinePlots(data, "SE|Hydrogen|Gas|w/ CC") showLinePlots(data, "SE|Hydrogen|Gas|w/o CC") +showLinePlots(data, "SE|Hydrogen|Biomass|w/ CC") +showLinePlots(data, "SE|Hydrogen|Biomass|w/o CC") +showLinePlots(data, "SE|Hydrogen|Electricity|VRE Storage Electrolysis") +showLinePlots(data, "SE|Hydrogen|Electricity|Standard Electrolysis") showLinePlots(data, "SE|Hydrogen|Net Imports") ``` ### SE Solids ```{r SE Solids detail line} + showLinePlots(data, "SE|Solids|Coal") showLinePlots(data, "SE|Solids|Biomass") showLinePlots(data, "SE|Solids|Traditional Biomass") ``` ### SE Liquids - ```{r SE Liquids detail line} - showLinePlots(data, "SE|Liquids|Fossil|Oil") showLinePlots(data, "SE|Liquids|Fossil|Coal|w/ CC") showLinePlots(data, "SE|Liquids|Fossil|Coal|w/o CC") @@ -507,13 +525,12 @@ showLinePlots(data, "SE|Liquids|Fossil|Gas|w/o CC") showLinePlots(data, "SE|Liquids|Biomass|w/ CC") showLinePlots(data, "SE|Liquids|Biomass|w/o CC") showLinePlots(data, "SE|Liquids|Hydrogen") - - ``` ### SE Gases ```{r SE Gases detail line} + showLinePlots(data, c("SE|Gases|Fossil|Natural Gas", "SE|Gases|Gas")) showLinePlots(data, "SE|Gases|Fossil|Coal") showLinePlots(data, "SE|Gases|Biomass") diff --git a/inst/compareScenarios/cs_10_tech_cost.Rmd b/inst/compareScenarios/cs_10_tech_cost.Rmd index fe40ac8b..05c45b69 100644 --- a/inst/compareScenarios/cs_10_tech_cost.Rmd +++ b/inst/compareScenarios/cs_10_tech_cost.Rmd @@ -42,9 +42,13 @@ showLinePlots(data, "Tech|Heat|Coal|Capital Costs") ## Learning renewables and storage vs. cumulative capacity (regional comparison) ```{r Learning renewables and storage vs. cumulative capacity (regional comparison)} showMultiLinePlotsByVariable(data, "Tech|Electricity|Solar|PV|Capital Costs", "Cumulative Cap|Electricity|Solar", scales = "fixed") -showMultiLinePlotsByVariable(data, "Tech|Electricity|Wind|Onshore|Capital Costs", "Cumulative Cap|Electricity|Wind|Onshore", scales = "fixed", showHistorical = FALSE) -showMultiLinePlotsByVariable(data, "Tech|Electricity|Wind|Offshore|Capital Costs", "Cumulative Cap|Electricity|Wind|Offshore", scales = "fixed", showHistorical = FALSE) -showMultiLinePlotsByVariable(data, "Tech|Electricity|Storage|Battery|For PV|Capital Costs", "Cumulative Cap|Electricity|Storage|Battery|For PV", scales = "fixed", showHistorical = FALSE) +showMultiLinePlotsByVariable(data, "Tech|Electricity|Solar|PV|Capital Costs", "Cumulative Cap|Electricity|Solar", scales = "fixed", logscale = "xy") +showMultiLinePlotsByVariable(data, "Tech|Electricity|Wind|Onshore|Capital Costs", "Cumulative Cap|Electricity|Wind|Onshore", scales = "fixed") +showMultiLinePlotsByVariable(data, "Tech|Electricity|Wind|Onshore|Capital Costs", "Cumulative Cap|Electricity|Wind|Onshore", scales = "fixed", logscale = "xy") +showMultiLinePlotsByVariable(data, "Tech|Electricity|Wind|Offshore|Capital Costs", "Cumulative Cap|Electricity|Wind|Offshore", scales = "fixed") +showMultiLinePlotsByVariable(data, "Tech|Electricity|Wind|Offshore|Capital Costs", "Cumulative Cap|Electricity|Wind|Offshore", scales = "fixed", logscale = "xy") +showMultiLinePlotsByVariable(data, "Tech|Electricity|Storage|Battery|For PV|Capital Costs", "Cumulative Cap|Electricity|Storage|Battery|For PV", scales = "fixed") +showMultiLinePlotsByVariable(data, "Tech|Electricity|Storage|Battery|For PV|Capital Costs", "Cumulative Cap|Electricity|Storage|Battery|For PV", scales = "fixed", logscale = "xy") ``` ## Capital cost of non-renewables vs. years (regional comparison)