Skip to content
Snippets Groups Projects
Commit 78109aa9 authored by Ben Anderson's avatar Ben Anderson
Browse files

disabled theme_bw() for charts as seems to fail?

parent eae536f8
No related branches found
No related tags found
No related merge requests found
......@@ -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() +
......
......@@ -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)
```
......
......@@ -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}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment