From 4d9b11475a5e470142ad2600999ba3fe3ff341da Mon Sep 17 00:00:00 2001
From: orichters <90761609+orichters@users.noreply.github.com>
Date: Wed, 7 Aug 2024 13:41:08 +0200
Subject: [PATCH] Add Guardrail vs. SCC area plot to cs_01_summary.Rmd

---
 inst/compareScenarios/cs_01_summary.Rmd | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/inst/compareScenarios/cs_01_summary.Rmd b/inst/compareScenarios/cs_01_summary.Rmd
index ca586e7e..9060f01a 100644
--- a/inst/compareScenarios/cs_01_summary.Rmd
+++ b/inst/compareScenarios/cs_01_summary.Rmd
@@ -306,6 +306,10 @@ showAreaAndBarPlots(data, items, orderVars = "user", scales = "fixed")
 ```{r CO2 Prices}
 showLinePlots(data, "Price|Carbon")
 showRegiLinePlots(data, "Price|Carbon")
+
+if ("Price|Carbon|SCC" %in% data$variable) {
+  showAreaAndBarPlots(data, c("Price|Carbon|SCC", "Price|Carbon|Guardrail"), "Price|Carbon", scales = "fixed")
+}
 ```
 
 ```{r CO2 Prices per sector}