get_legend: Extract the legend

In kelli-jean/easyR:

Description

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

Usage

get_legend(ggplot_obj)

Arguments

ggplot_obj

ggplot that has a legend

Value

The ggplot's legend

Author(s)

Kelli-Jean Chun, [e-mail]

Examples

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))

kelli-jean/easyR documentation built on May 29, 2019, 3:02 a.m.