From 2370e7ba3781cbb4ea0976fba621c86155a10ad0 Mon Sep 17 00:00:00 2001
From: Ben Anderson <dataknut@icloud.com>
Date: Mon, 25 Jun 2018 17:04:04 +1200
Subject: [PATCH] amending figs for paper v2.0
---
.../changeOverTime/changingPeakDemandMtus1974_2014_v2.0.Rmd | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/Theme-1/changeOverTime/changingPeakDemandMtus1974_2014_v2.0.Rmd b/Theme-1/changeOverTime/changingPeakDemandMtus1974_2014_v2.0.Rmd
index 2aad594..b8504c1 100644
--- a/Theme-1/changeOverTime/changingPeakDemandMtus1974_2014_v2.0.Rmd
+++ b/Theme-1/changeOverTime/changingPeakDemandMtus1974_2014_v2.0.Rmd
@@ -966,7 +966,7 @@ myCaption <- "Synthetic MTUS 1974 - 2014, UK sample (%, weighted)"
ba_createStackedPlot(aggHhDemandActsWtDT, yVar = "pcAnyHHMainWt", fillVar = "actLabel", yLabel = "% halfhours (main act)", facetVars = "ba_survey ~ r_wday")
```
-Compare in home & out of home but without looking at day of the week (paper Fig 1). Adjust height of chart to fit single A4 page?
+Compare 1974 & 2014 but without looking at day of the week & in-home only (paper v2.0, Fig 2, revised). Adjust height of chart to fit single A4 page?
```{r repeat all acts but split by at home vs not at home, fig.height=10, fig.width=8}
@@ -1003,7 +1003,9 @@ plotDT <- ba_DEMANDreLabelSvyAggActs(wt) # as.data.table creates char from svy r
# for paper
myCaption <- "Synthetic MTUS 1974 - 2014, UK sample (%, weighted)"
-ba_createGreyStackedPlot(plotDT, yVar = "pcAnyHHMainWt", fillVar = "actLabel", yLabel = "% halfhours (main act)", facetVars = "ba_survey ~ inHome")
+dt <- plotDT[inHome == "At own home"]
+ba_createStackedPlot(dt, yVar = "pcAnyHHMainWt", fillVar = "actLabel", yLabel = "% halfhours (main act)", facetVars = "ba_survey ~ inHome") +
+ scale_fill_distiller(palette = "Spectral")
```
Now plot % point change ignoring day of the week (paper Fig 2, adjust height & width to suit single A4)
--
GitLab