From 78109aa91382c683ffe7fa06847e211ce94917f4 Mon Sep 17 00:00:00 2001
From: Ben Anderson <dataknut@icloud.com>
Date: Thu, 15 Feb 2018 10:06:56 +1300
Subject: [PATCH] disabled theme_bw() for charts as seems to fail?
---
impetusModel/applyDroughtWEmodel.Rmd | 8 ++++----
impetusModel/baselineModel_v2_0.Rmd | 4 ++--
impetusModel/computeHistoricalMonthly.Rmd | 4 ++--
3 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/impetusModel/applyDroughtWEmodel.Rmd b/impetusModel/applyDroughtWEmodel.Rmd
index 444af9a..ceaf368 100644
--- a/impetusModel/applyDroughtWEmodel.Rmd
+++ b/impetusModel/applyDroughtWEmodel.Rmd
@@ -848,8 +848,8 @@ myDrPlot
ggsave("Fig4_Compare_sum_model_v1_3.pdf", dpi = 400)
# Grey scale version if required
-myDrPlot <- myDrPlot + theme_bw()
-ggsave("Fig4_Compare_sum_model_v1_3_gs.pdf", plot = myDrPlot, dpi = 400)
+#myDrPlot <- myDrPlot + theme_bw()
+#ggsave("Fig4_Compare_sum_model_v1_3_gs.pdf", plot = myDrPlot, dpi = 400)
# 2.0 ----
myPlot <- ggplot(plotTotalDT[model == "v2_0"], aes(x = obsDate)) +
@@ -949,8 +949,8 @@ myPlot
ggsave("Fig5_Chart_savings_v1_3_by_month.pdf", plot = myPlot, dpi = 400)
# Grey scale version if required
-myPlot <- myPlot + theme_bw()
-ggsave("Fig5_Chart_savings_v1_3_by_month_gs.pdf", plot = myPlot, dpi = 400)
+#myPlot <- myPlot + theme_bw()
+#ggsave("Fig5_Chart_savings_v1_3_by_month_gs.pdf", plot = myPlot, dpi = 400)
myPlot <- ggplot(plotTotalDT[model == "v2_0"], aes(x = obsDate, y = pcSaved, colour = metered)) +
geom_point() +
diff --git a/impetusModel/baselineModel_v2_0.Rmd b/impetusModel/baselineModel_v2_0.Rmd
index 7a8cb10..383a984 100644
--- a/impetusModel/baselineModel_v2_0.Rmd
+++ b/impetusModel/baselineModel_v2_0.Rmd
@@ -798,8 +798,8 @@ myPlot
ggsave("Fig2_CompareWithEST.pdf", plot = myPlot, dpi = 400)
# Grey scale version if required
-myPlot <- myPlot + theme_bw()
-ggsave("Fig5_Chart_savings_v1_3_by_month_gs.pdf", plot = myPlot, dpi = 400)
+#myPlot <- myPlot + theme_bw()
+#ggsave("Fig5_Chart_savings_v1_3_by_month_gs.pdf", plot = myPlot, dpi = 400)
```
diff --git a/impetusModel/computeHistoricalMonthly.Rmd b/impetusModel/computeHistoricalMonthly.Rmd
index eb4eec1..b1eecc5 100644
--- a/impetusModel/computeHistoricalMonthly.Rmd
+++ b/impetusModel/computeHistoricalMonthly.Rmd
@@ -820,8 +820,8 @@ myPlot
ggsave("Fig3_Final_model_v1_3_2012_by_month.pdf", dpi = 400)
# Grey scale version if required
-myPlot <- myPlot + theme_bw()
-ggsave("Fig3_Final_model_v1_3_2012_by_month_gs.pdf", plot = myPlot, dpi = 400)
+#myPlot <- myPlot + theme_bw()
+#ggsave("Fig3_Final_model_v1_3_2012_by_month_gs.pdf", plot = myPlot, dpi = 400)
```
```{r final model v1_3 2012 all dates}
--
GitLab