# NOT RUN {
library(ggplot2)
library(dplyr)
p <- ggplot(diamonds, aes(x=x, y=y, colour=cut)) + geom_point()
guidebox_as_column(p)
p <- p + guides(colour=guide_legend(ncol=2, byrow=TRUE))
guidebox_as_column(p)
# }
Run the code above in your browser using DataLab