R/extract_legend.R

In welch16/rwlib: These is a package with the functions that I use the most.

Defines functions extract_legend

Documented in extract_legend

##' extract the legend of a \code{ggplot} object
##'
##' @param plot a \code{ggplot} object
##' @export
##'
extract_legend <- function(plot)
{
  legend = ggplotGrob(plot)$grobs

  legend[[which(sapply(legend,function(x)x$name) == "guide-box")]]

}