Description Usage Arguments Value Author(s) Examples
Returns the legend from a ggplot object Function taken from this stackoverflow post: https://stackoverflow.com/questions/11883844/inserting-a-table-under-the-legend-in-a-ggplot2-histogram
1 | get_legend(ggplot_obj)
|
ggplot_obj |
ggplot that has a legend |
The ggplot's legend
Kelli-Jean Chun, kjchunz@gmail.com
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | library(ggplot2)
library(gridExtra)
library(grid)
cars = mtcars
cars$cyl = factor(cars$cyl)
p1 = ggplot(cars, aes(x=wt, y=mpg, group=cyl, colour=cyl)) +
geom_point() +
theme(legend.position="bottom")
p2 = ggplot(cars, aes(x=wt, y=hp, group=cyl, colour=cyl)) +
geom_point()
legend = get_legend(p1)
grid.arrange(arrangeGrob(remove_legend(p1),
remove_legend(p2),
ncol=2),
legend,
heights=c(10,1))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.