R/get-legend.r
get-legend.Rd
extract legend from a plot
get_legend(plot)
a gg or gtable object
a 'gtable' object of the legend
Guangchuang Yu