title: Plotting each variable in a time series on the same plot
body: <p>I'm working through the book Forecasting Principles and Practice by Rob J Hyndman and George Athanasopoulos. The book can be found here: <a href="https://otexts.com/fpp3/" rel="nofollow noreferrer">https://otexts.com/fpp3/</a></p>
  <p>The book is generally very good, but I'm stuck on a point in chapter 7, Multiple Linear Regression.</p>
  <p>Figure 7.4 shows, &quot;Quarterly percentage changes in industrial production and personal savings and quarterly changes in the unemployment rate for the US over the period 1970Q1-2019Q2.&quot; As a business professional, I see this is the most valuable plot in the whole book, but there is no code how to reproduce it. The advantage of this plot is it shows each of the factors as a separate plot, grouped by quarter, so it's very easy to understand the effects of each factor on the result.</p>
  <p>The plot can be found on this page: <a href="https://otexts.com/fpp3/regression-intro.html" rel="nofollow noreferrer">https://otexts.com/fpp3/regression-intro.html</a></p>
  <p>This R code works, but is not really close to reproducing the figure in the book, the book does not provide the code to generate the plot, and the figure in the book is vastly better to use when explaining time series predictions to customers and managers than this code:</p>
  <pre><code>library(tidyverse)
  
  library(fpp3)
  
  us_change %&gt;%
    autoplot(vars(Consumption, Income, Production, Savings, Unemployment))
  </code></pre>
  <p><a href="https://i.stack.imgur.com/1i5kt.png" rel="nofollow noreferrer">Quarterly percentage changes in industrial production and personal savings and quarterly changes in the unemployment rate for the US over the period 1970Q1-2019Q2.</a></p>
  <p>I have tried many variations of autoplot, gg_subseries, gg_tsdisplay, etc., but nothing is even close to the plot in the book. Any help would be warmly appreciated!</p>