ggvisの凡例に特定のポイントを追加するには？

Question

私はggvisでプロットしているデータフレームを基本的に持っていますが、カップルの特定のポイントを色付けし、それらのポイントの意味を示す表を追加しようとします。これまで私はこれらのポイントに色を追加することができましたが、そのポイントを識別する凡例を作成することはできません。

g1 <- subset(ex, p == 0.10) 

ex %>% ggvis(x = ~p, y = ~Pa_Achieved) %>% layer_lines() %>% 
    layer_points() %>% layer_points(data = g1, fill := "red") %>% 
    add_axis("x", title ="p") %>% 
    add_axis("y", title = "Pa", 
      properties=axis_props(labels=list(fontSize=12), 
           title=list(fontSize=12,dy=-25))) %>% 
    add_title(title = "Operating Characteristic Curve", 
      properties = axis_props(title=list(fontSize=20))) 

基本的に私は、これと他の三つの点に色を追加したい、と単純な凡例は、これらの点は、それぞれの色が何であるかを識別し、黒以外の点を残します。

Answer 1

変数ではなく定数から凡例を作成するには、:=の代わりに= ~が必要です。塗りつぶしに使用する色はscale_nominalで、凡例の表示方法はadd_legendで変更できます。

mtcarsを使用した例です。

mtcars %>% 
    ggvis(x = ~mpg, y = ~wt) %>% 
    layer_points() %>% 
    layer_points(data = subset(mtcars, mpg == 33.9), fill = ~"mpg 33.9") %>% 
    layer_points(data = subset(mtcars, mpg == 32.4), fill = ~"mpg 32.4") %>% 
    scale_nominal("fill", range = c("red", "blue")) %>% 
    add_legend("fill", title = "groups")