小编air*_*air的帖子

我感兴趣的是自动将 ggplot2 对象的图例提取为表格（而不是图形对象）。我们用一个例子来说明：

p <- ggplot(iris, aes(x=Sepal.Length, y= Petal.Length, color=Species)) +
       geom_point()
p

现在有一个上一个问题，它展示了如何提取图中使用的颜色：

 g <- ggplot_build(p)
 unique(g$data[[1]]["colour"])

      colour
 1   #F8766D
 51  #00BA38
 101 #619CFF

但我也对这些颜色在图例中对应的标签感兴趣，即我感兴趣的最终结果如下表：

colour    label
#F8766D   setosa
#00BA38   versicolor
#619CFF   virginica