get_legend function

replace cowplot::get_legend, to silence warning Multiple components found; returning the first one. To return all, use `return_all = TRUE