diff --git a/impetusModel/applyDroughtWEmodel.Rmd b/impetusModel/applyDroughtWEmodel.Rmd index 444af9a592182b7468e8bd975070f7fed3c729e6..ceaf368565b5793152dc58448d9dc901e5939523 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 7a8cb104c068492c8c54f77bf16263a3aebb508c..383a984c9251257684e0d49ea3ad9bef959a55c5 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 eb4eec1e29b85a908b2d5b1915a908d09111af6d..b1eecc5892ba30d71f0c6e88b67b0fc93136c4d3 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}