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