| grab_legend {GGally} | R Documentation |
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 'grid.newpage()' command and a new blank rectangle should be printed |
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")) grab_legend(right) grab_legend(bottom) grab_legend(top) grab_legend(left)