title: Combined centered legend
body: <p>I am using <code>patchwork</code> to create a combined plot with a common legend that is centered on the top.</p>
  <pre><code>library(ggplot2)
  library(patchwork)
  
  x1 &lt;- ggplot(iris,aes(Sepal.Width, Petal.Length, col=Species))+
         geom_point()
  
  x2 &lt;- ggplot(iris,aes(Petal.Width, Petal.Length, col=Species))+
         stat_ellipse(show.legend=F)
  
  wrap_plots(x1, x2, guides=&quot;collect&quot;) +
    theme(legend.position=&quot;top&quot;,
          legend.direction=&quot;horizontal&quot;)
  </code></pre>
  <p>This is what I get.</p>
  <p><a href="https://i.stack.imgur.com/wlr4F.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/wlr4F.png" alt="enter image description here" /></a></p>
  <p>This is what I was expecting.</p>
  <pre><code>ggpubr::ggarrange(x1, x2, common.legend=T)
  </code></pre>
  <p><a href="https://i.stack.imgur.com/FzQHN.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/FzQHN.png" alt="enter image description here" /></a></p>