diff --git a/Theme-1/changeOverTime/changingPeakDemandMtus1974_2014_v2.0.Rmd b/Theme-1/changeOverTime/changingPeakDemandMtus1974_2014_v2.0.Rmd
index 2aad5941c9ace96574a7a37a4962ddb6cda9e31e..b8504c1abc858feb1125121a6e813074129745ef 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)