From fe1098a06d14d17091330e15197bcd0788cba47d Mon Sep 17 00:00:00 2001 From: Chen Gong <> Date: Mon, 29 Jan 2024 12:42:12 +0100 Subject: [PATCH] adding additional pages on tech capital cost --- .../cs2_04_energy_supply.Rmd | 100 +++++++++--------- .../cs2_05_energy_demand.Rmd | 66 ++++++------ .../compareScenarios2/cs2_10_tech_cost.Rmd | 44 ++++++++ ...s_function.Rmd => cs2_11_ces_function.Rmd} | 0 4 files changed, 127 insertions(+), 83 deletions(-) create mode 100644 inst/markdown/compareScenarios2/cs2_10_tech_cost.Rmd rename inst/markdown/compareScenarios2/{cs2_10_ces_function.Rmd => cs2_11_ces_function.Rmd} (100%) diff --git a/inst/markdown/compareScenarios2/cs2_04_energy_supply.Rmd b/inst/markdown/compareScenarios2/cs2_04_energy_supply.Rmd index e33d1550..f5ce6564 100644 --- a/inst/markdown/compareScenarios2/cs2_04_energy_supply.Rmd +++ b/inst/markdown/compareScenarios2/cs2_04_energy_supply.Rmd @@ -102,8 +102,8 @@ showLinePlots(data, "Cap|Electricity|Hydrogen") ``` ## PE Mix -### PE|Coal -```{r PE|Coal} +### PE Coal +```{r PE Coal} items <- c( "PE|Coal|Hydrogen", "PE|Coal|Electricity", @@ -115,8 +115,8 @@ items <- c( showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` -### PE|Gas -```{r PE|Gas} +### PE Gas +```{r PE Gas} items <- c( "PE|Gas|Hydrogen|w/ CC", "PE|Gas|Hydrogen|w/o CC", @@ -131,9 +131,9 @@ showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed") ``` -### PE|Biomass +### PE Biomass -```{r PE|Biomass} +```{r PE Biomass} items <- c( "PE|Biomass|Hydrogen|w/ CC", "PE|Biomass|Hydrogen|w/o CC", @@ -158,18 +158,18 @@ showLinePlots(data, "PE|Biomass") showLinePlots(data, "Primary Energy Production|Biomass|Energy Crops") ``` -### PE|Coal|Extraction -```{r PE|Coal|Extraction} +### PE Coal Extraction +```{r PE Coal Extraction} showLinePlots(data, "Res|Extraction|Coal") ``` -### PE|Oil|Extraction -```{r PE|Oil|Extraction} +### PE Oil Extraction +```{r PE Oil Extraction} showLinePlots(data, "Res|Extraction|Oil") ``` -### PE|Gas|Extraction -```{r PE|Gas|Extraction} +### PE Gas Extraction +```{r PE Gas Extraction} showLinePlots(data, "Res|Extraction|Gas") ``` @@ -205,8 +205,8 @@ showAreaAndBarPlots(data, items, tot, orderVars="user", scales = "fixed") -### SE|Electricity - Usage -```{r SE|Electricity - Usage} +### SE Electricity - Usage +```{r SE Electricity - Usage} tot <- "SE|Electricity" @@ -225,8 +225,8 @@ showAreaAndBarPlots(data, items, tot, orderVars="user", scales = "fixed") ``` -### SE|Heat -```{r SE|Heat} +### SE Heat +```{r SE Heat} tot <- "SE|Heat" items <- c( "SE|Heat|Electricity|Heat Pump", @@ -238,8 +238,8 @@ showAreaAndBarPlots(data, items, tot, orderVars="user", scales = "fixed") ``` -### SE|Hydrogen -```{r SE|Hydrogen} +### SE Hydrogen +```{r SE Hydrogen} tot <- "SE|Hydrogen" @@ -258,8 +258,8 @@ items <- c( showAreaAndBarPlots(data, items, tot, orderVars="user", scales = "fixed") ``` -### SE|Hydrogen - Usage -```{r SE|Hydrogen - Usage} +### SE Hydrogen - Usage +```{r SE Hydrogen - Usage} tot <- "SE|Hydrogen" @@ -277,8 +277,8 @@ showAreaAndBarPlots(data, items, tot, scales = "fixed") -### SE|Solids -```{r SE|Solids} +### SE Solids +```{r SE Solids} tot <- "SE|Solids" @@ -290,9 +290,9 @@ showAreaAndBarPlots(data, items, tot, scales = "fixed") ``` -### SE|Liquids +### SE Liquids -```{r SE|Liquids} +```{r SE Liquids} tot <- "SE|Liquids" @@ -311,8 +311,8 @@ items <- c( showAreaAndBarPlots(data, items, tot, orderVars="user", scales = "fixed") ``` -### SE|Gases -```{r SE|Gases} +### SE Gases +```{r SE Gases} tot <- "SE|Gases" @@ -335,35 +335,35 @@ showAreaAndBarPlots(data, items, tot, orderVars="user", scales = "fixed") ## Secondary Energy line plots - totals -### SE|Electricity -```{r SE|Electricity total line} +### SE Electricity +```{r SE Electricity total line} showLinePlots(data, "SE|Electricity") ``` -### SE|Heat -```{r SE|Heat total line} +### SE Heat +```{r SE Heat total line} showLinePlots(data, "SE|Heat") ``` -### SE|Hydrogen -```{r SE|Hydrogen total line} +### SE Hydrogen +```{r SE Hydrogen total line} showLinePlots(data, "SE|Hydrogen") ``` -### SE|Solids -```{r SE|Solids total line} +### SE Solids +```{r SE Solids total line} showLinePlots(data, "SE|Solids") ``` -### SE|Liquids -```{r SE|Liquids total line} +### SE Liquids +```{r SE Liquids total line} showLinePlots(data, "SE|Liquids") ``` -### SE|Gases -```{r SE|Gases total line} +### SE Gases +```{r SE Gases total line} showLinePlots(data, "SE|Gases") ``` @@ -373,8 +373,8 @@ showLinePlots(data, "SE|Gases") ## Secondary Energy line plots - detail -### SE|Electricity -```{r SE|Electricity detail line} +### SE Electricity +```{r SE Electricity detail line} showLinePlots(data, "SE|Electricity|Gas") showLinePlots(data, "SE|Electricity|Coal") showLinePlots(data, "SE|Electricity|Oil") @@ -391,8 +391,8 @@ showLinePlots(data, "SE|Electricity|Biomass") ``` -### SE|Heat -```{r SE|Heat detail line} +### SE Heat +```{r SE Heat detail line} showLinePlots(data, "SE|Heat|Coal") showLinePlots(data, "SE|Heat|Gas") @@ -401,8 +401,8 @@ showLinePlots(data, "SE|Heat|Electricity|Heat Pump") ``` -### SE|Hydrogen -```{r SE|Hydrogen detail line} +### SE Hydrogen +```{r SE Hydrogen detail line} showLinePlots(data, "SE|Hydrogen|Biomass|w/ CC") showLinePlots(data, "SE|Hydrogen|Biomass|w/o CC") @@ -416,16 +416,16 @@ showLinePlots(data, "SE|Hydrogen|Net Imports") ``` -### SE|Solids -```{r SE|Solids detail line} +### 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 +### SE Liquids -```{r SE|Liquids detail line} +```{r SE Liquids detail line} showLinePlots(data, "SE|Liquids|Fossil|Oil") @@ -441,8 +441,8 @@ showLinePlots(data, "SE|Liquids|Hydrogen") ``` -### SE|Gases -```{r SE|Gases detail line} +### 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/markdown/compareScenarios2/cs2_05_energy_demand.Rmd b/inst/markdown/compareScenarios2/cs2_05_energy_demand.Rmd index 682b638b..fb4f5158 100644 --- a/inst/markdown/compareScenarios2/cs2_05_energy_demand.Rmd +++ b/inst/markdown/compareScenarios2/cs2_05_energy_demand.Rmd @@ -19,23 +19,23 @@ items <- c( \newpage -#### FE|* Area Plots +#### FE Area Plots -```{r FE|* Area Plots} +```{r FE Area Plots} showAreaAndBarPlots(data, items, tot, orderVars = "user", scales = "fixed") showAreaAndBarPlots(data, items, tot, orderVars = "user", fill = TRUE) ``` -#### FE|* Line Plots +#### FE Line Plots -```{r FE|* Line Plots} +```{r FE Line Plots} showLinePlots(data, tot) walk(items, showLinePlots, data = data) ``` -#### FE|Electricity|Share +#### FE Electricity Share -```{r FE|Electricity|Share} +```{r FE Electricity Share} showLinePlots(data, "FE|Electricity|Share") ``` @@ -73,24 +73,24 @@ items2 <- c( \newpage -#### FE|Buildings|* Area Plots +#### FE Buildings Area Plots -```{r FE|Buildings|* Area Plots} +```{r FE Buildings Area Plots} showAreaAndBarPlots(data, items, tot, orderVars = "user", scales = "fixed") showAreaAndBarPlots(data, items, tot, orderVars = "user", fill = TRUE) showAreaAndBarPlots(data, items2, tot, orderVars = "user", scales = "fixed") ``` -#### FE|Buildings|* Line Plots +#### FE Buildings Line Plots -```{r FE|Buildings|* Line Plots} +```{r FE Buildings Line Plots} showLinePlots(data, tot) walk(items, showLinePlots, data = data) ``` -#### FE|Buildings|Electricity|Share +#### Electricity Share in Buildings Final Energy -```{r FE|Buildings|Electricity|Share} +```{r Electricity Share in Buildings Final Energy} showLinePlots(data, "FE|Buildings|Electricity|Share") ``` @@ -128,24 +128,24 @@ items2 <- c( \newpage -#### FE|Industry|* Area Plots +#### FE Industry Area Plots -```{r FE|Industry|* Area Plots} +```{r FE Industry Area Plots} showAreaAndBarPlots(data, items, tot, orderVars = "user", scales = "fixed") showAreaAndBarPlots(data, items, tot, orderVars = "user", fill = TRUE) showAreaAndBarPlots(data, items2, tot, orderVars = "user", scales = "fixed") ``` -#### FE|Industry|* Line Plots +#### FE Industry Line Plots -```{r FE|Industry|* Line Plots} +```{r FE Industry Line Plots} showLinePlots(data, tot) walk(items, showLinePlots, data = data) ``` -#### FE|Industry|Electricity|Share +#### Electricity Share in Industry Final Energy -```{r FE|Industry|Electricity|Share} +```{r Electricity Share in Industry Final Energy} showLinePlots(data, "FE|Industry|Electricity|Share") ``` @@ -250,8 +250,8 @@ items <- c( showAreaAndBarPlots(data, items, tot, orderVars = "user", scales = "fixed") ``` -### FE|Industry|* line plots -```{r FE|Industry|* line plots} +### FE Industry line plots +```{r FE Industry line plots} showLinePlots(data, "FE|Industry|Steel") showLinePlots(data, "FE|Industry|Steel|Primary") showLinePlots(data, "FE|Industry|Steel|Secondary") @@ -262,9 +262,9 @@ showLinePlots(data, c("FE|Industry|Other Industry", "FE|Industry|other")) ``` -### FE|Non-energy Use|Industry per carrier and SE origin +### FE Non-energy Use Industry per carrier and SE origin -```{r} +```{r FE Non-energy Use Industry per carrier and SE origin} tot <- "FE|Non-energy Use|Industry" items <- c( "FE|Non-energy Use|Industry|Solids|Fossil", @@ -281,7 +281,7 @@ showAreaAndBarPlots(data, items, tot) ### Specific Energy Consumption -```{r} +```{r Specific Energy Consumption} # estimated values for thermodynamic limits are hard coded here. Could be # improved @@ -361,24 +361,24 @@ items2 <- c( \newpage -#### FE|Transport|* Area Plots -- with Bunkers +#### FE Transport Area Plots -- with Bunkers -```{r FE|Transport|* Area Plots -- with Bunkers} +```{r FE Transport Area Plots -- with Bunkers} showAreaAndBarPlots(data, items, tot, orderVars = "user", scales = "fixed") showAreaAndBarPlots(data, items, tot, orderVars = "user", fill = TRUE) showAreaAndBarPlots(data, items2, tot, orderVars = "user", scales = "fixed") ``` -#### FE|Transport|* Line Plots -- with Bunkers +#### FE Transport Line Plots -- with Bunkers -```{r FE|Transport|* Line Plots -- with Bunkers} +```{r FE Transport Line Plots -- with Bunkers} showLinePlots(data, tot) walk(items, showLinePlots, data = data) ``` -#### FE|Transport|Electricity|Share +#### Electricity Share in Transport Final Energy -```{r FE|Transport|Electricity|Share} +```{r Electricity Share in Transport Final Energy} showLinePlots(data, "FE|Transport|Electricity|Share") ``` @@ -407,17 +407,17 @@ items2 <- c( \newpage -#### FE|Transport|* Area Plots -- w/o Bunkers +#### FE Transport Area Plots -- w/o Bunkers -```{r FE|Transport|* Area Plots -- w/o Bunkers} +```{r FE Transport Area Plots -- w/o Bunkers} showAreaAndBarPlots(data, items, tot, orderVars = "user", scales = "fixed") showAreaAndBarPlots(data, items, tot, orderVars = "user", fill = TRUE) showAreaAndBarPlots(data, items2, tot, orderVars = "user", scales = "fixed") ``` -#### FE|Transport|* Line Plots -- w/o Bunkers +#### FE Transport Line Plots -- w/o Bunkers -```{r FE|Transport|* Line Plots -- w/o Bunkers} +```{r FE Transport Line Plots -- w/o Bunkers} showLinePlots(data, tot) walk(items, showLinePlots, data = data) ``` diff --git a/inst/markdown/compareScenarios2/cs2_10_tech_cost.Rmd b/inst/markdown/compareScenarios2/cs2_10_tech_cost.Rmd new file mode 100644 index 00000000..4edf2469 --- /dev/null +++ b/inst/markdown/compareScenarios2/cs2_10_tech_cost.Rmd @@ -0,0 +1,44 @@ +# Technology capital costs + +## Electricity generating technology capital costs +### Renewables, storage and nuclear +```{r Renewables, storage and nuclear} +showLinePlots(data, "Tech|Electricity|Solar|PV|Capital Costs") +showLinePlots(data, "Tech|Electricity|Wind|Onshore|Capital Costs") +showLinePlots(data, "Tech|Electricity|Wind|Offshore|Capital Costs") +showLinePlots(data, "Tech|Electricity|Storage|Battery|For PV|Capital Costs") +showLinePlots(data, "Tech|Electricity|Nuclear|Capital Costs") +``` + +### Direct and indirect electrifications +```{r Direct and indirect electrifications} +showLinePlots(data, "Tech|Heat|Electricity|Heat Pump|Capital Costs") +showLinePlots(data, "Tech|Hydrogen|Electricity|Capital Costs") +showLinePlots(data, "Tech|Liquids|Hydrogen|Capital Costs") +``` + +### Carbon management technologies +```{r Carbon management technologies} +showLinePlots(data, "Tech|Hydrogen|Gas|w/ CC|Capital Costs") +showLinePlots(data, "Tech|CO2 Storage|Capital Costs|w/ Adj Costs") +showLinePlots(data, "Tech|DAC|Capital Costs|w/ Adj Costs") +``` + + +### Gas technologies +```{r Gas technologies} +showLinePlots(data, "Tech|Electricity|Gas|Combined Cycle w/ CC|Capital Costs") +showLinePlots(data, "Tech|Electricity|Gas|Gas Turbine|Capital Costs") +showLinePlots(data, "Tech|Electricity|Gas|Combined Heat and Power w/o CC|Capital Costs") +``` + + +### Coal technologies +```{r Coal technologies} +showLinePlots(data, "Tech|Electricity|Coal|Pulverised Coal w/ CC|Capital Costs") +showLinePlots(data, "Tech|Electricity|Coal|Gasification Combined Cycle w/o CC|Capital Costs") +showLinePlots(data, "Tech|Electricity|Coal|Combined Heat and Power w/o CC|Capital Costs") +showLinePlots(data, "Tech|Heat|Coal|Capital Costs") +``` + + diff --git a/inst/markdown/compareScenarios2/cs2_10_ces_function.Rmd b/inst/markdown/compareScenarios2/cs2_11_ces_function.Rmd similarity index 100% rename from inst/markdown/compareScenarios2/cs2_10_ces_function.Rmd rename to inst/markdown/compareScenarios2/cs2_11_ces_function.Rmd