Description Usage Arguments Value Examples
This function extracts just the legend from a ggplot
1 |
plot |
A ggplot or gtable from which to retrieve the legend |
A gtable object holding just the legend or NULL
if there is no legend.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | library(ggplot2)
theme_set(theme_half_open())
p1 <- ggplot(mtcars, aes(mpg, disp)) + geom_line()
plot.mpg <- ggplot(mpg, aes(x = cty, y = hwy, colour = factor(cyl))) + geom_point(size=2.5)
# Note that these cannot be aligned vertically due to the legend in the plot.mpg
ggdraw(plot_grid(p1, plot.mpg, ncol=1, align='v'))
legend <- get_legend(plot.mpg)
plot.mpg <- plot.mpg + theme(legend.position='none')
# Now plots are aligned vertically with the legend to the right
ggdraw(plot_grid(plot_grid(p1, plot.mpg, ncol=1, align='v'),
plot_grid(NULL, legend, ncol=1),
rel_widths=c(1, 0.2)))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.