Legend on bottom, two rows wrapped in ggplot2 in r
The solution above is presented for a single aesthetic. In some cases, you may want to wrap the legend into rows instead of columns across different aesthetics. For posterity, this is shown below.
library(ggplot2)ggplot(diamonds, aes(x=carat, y=price, col=clarity, shape=cut)) + geom_point() + theme(legend.position="bottom")The legend is cut off below:
To wrap the legend using rows, we specify legend.box="vertical". Below, we also reduce the margin for compactness.
ggplot(diamonds, aes(x=carat, y=price, col=clarity, shape=cut)) + geom_point() + theme(legend.position="bottom", legend.box="vertical", legend.margin=margin())