| get_legend {ggpubr} | R Documentation |
Extract the legend labels from a ggplot object.
get_legend(p)
p |
an object of class ggplot or a list of ggplots. If p is a list, only the first legend is returned. |
an object of class gtable.
# Create a scatter plot
p <- ggscatter(iris, x = "Sepal.Length", y = "Sepal.Width",
color = "Species", palette = "jco",
ggtheme = theme_minimal())
p
# Extract the legend. Returns a gtable
leg <- get_legend(p)
# Convert to a ggplot and print
as_ggplot(leg)