Grab the legend and print it as a plot
Grab the legend and print it as a plot
grab_legend(p) ## S3 method for class 'legend_guide_box' print(x, ..., plotNew = FALSE)
p |
ggplot2 plot object |
x |
legend object that has been grabbed from a ggplot2 object |
... |
ignored |
plotNew |
boolean to determine if the |
# Small function to display plots only if it's interactive p_ <- GGally::print_if_interactive library(ggplot2) histPlot <- qplot( x = Sepal.Length, data = iris, fill = Species, geom = "histogram", binwidth = 1/4 ) (right <- histPlot) (bottom <- histPlot + theme(legend.position = "bottom")) (top <- histPlot + theme(legend.position = "top")) (left <- histPlot + theme(legend.position = "left")) p_(grab_legend(right)) p_(grab_legend(bottom)) p_(grab_legend(top)) p_(grab_legend(left))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.