title: Base R horizontal legend - with multiple rows
body: <p>I wish to create a horizontal legend with multiple rows using base R (not ggplot).
  There is an option for multiple columns but not multiple rows in legend(). Is there a way to do this? Example to play with below where the horizontal legend it too wide for the plot.</p>
  
  <pre><code>MyCol &lt;- topo.colors(20)
  barplot(rep(1,20), yaxt="n", col=MyCol)
  x &lt;- 1:20
  MyLab &lt;- paste("Zone",x)
  legend("bottom",MyLab,fill=MyCol,horiz=T)
  </code></pre>