title: Saving plots over multiple pages using autoplot()
body: <p>I use the <strong>autoplot()</strong> for my topdown forecast (fable package).</p>
  <p>I use a function as you can see below.</p>
  <pre><code> plotting = function(ts,fc,bound){
                  fc %&gt;%
                          filter(is_aggregated(material)) %&gt;%
                          autoplot(
                                  ts %&gt;% 
                                  filter(yearmonth(date) &gt;= yearmonth(&quot;2018 Jan&quot;)),
                                  level = 80
                          ) +
                          labs(y = &quot;Sales&quot;) +
                          facet_wrap(bound, scales = &quot;free_y&quot;)
          }
  </code></pre>
  <p>The problem is that this function creates multiple plots on one single page what is way too much.</p>
  <p>After producing the plots I want to save them as .jpegs with that function:</p>
  <pre><code>        lapply(names(forecast_plots),
                 function(x)ggsave(filename=paste(x,&quot;.jpeg&quot;,sep=&quot;&quot;),
                                   plot=forecast_plots[[x]]))
  
  </code></pre>
  <p>So how can I distribute the graphs? At least when I save them..</p>