ggplot_buildオブジェクトから凡例ラベルを抽出する際にエラーが発生しました

Question

データポイント（X、Y）に割り当てられたラベルと色を抽出したいと思います。私はthis solutionで言及されたアプローチを使用してそれらを抽出しようとしました。

head(dataPlot) 
# Source: local data frame [6 x 3] 
# Groups: EFOValue [2] 
# 
# # A tibble: 6 x 3 
#   X  Y  EFOValue 
#  <dbl> <dbl>   <chr> 
# 1 0.505115 0.348486 adipose tissue 
# 2 0.365520 0.414446 adipose tissue 
# 3 0.365520 0.414446 adipose tissue 
# 4 0.526531 0.341508 adrenal gland 
# 5 0.526531 0.341508 adrenal gland 
# 6 0.412384 0.385316 adrenal gland 


p2 <- ggplot(dataPlot, aes(x=X, y=Y, color=EFOValue)) + geom_point() 
g2 <- ggplot_build(p2) 
data.frame(colours = unique(g2$data[[1]]["colour"]), 
      label = levels(g2$plot$data[, g2$plot$labels$colour]) 

サンプルコードは、サンプルデータセットirisで期待通りに機能しました。 このデータセットの場合、dataPlot、出力プロットは期待どおりです。

しかし、私はが空であることに気付きました。g2オブジェクトでは値の抽出が不可能でした。これの理由と、このggplotのアプローチでのエラーをどのように克服するのかを教えてください。これを行うための他の選択肢があります：それぞれのレベルに色を割り当てることによって、プロットシステムに色を渡すかのどちらかです。

Answer 1

司会者の要求に応じて回答を投稿することで、将来のユーザーがその恩恵を受けることができます。

---

私はこの問題を発見しました。問題は、着色のために使用される変数EFOValueが因子変数ではないということです。したがって、levels()関数は、空のスロット（または望ましい出力）を生成しません。