Base R horizontal legend - with multiple rows
<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>