extract legend from a plot
get_legend(plot)
plot
a gg or gtable object
a 'gtable' object of the legend
Guangchuang Yu