R 在GGVIS中添加具有多行的图例

我想用ggvis显示多行

资料

结果令人满意，但我无法添加图例，也无法以某种方式标记这三条线

如果我使用

add_legend

我会得到一个错误：

    df %>% 
   ggvis( ~label,  ~avFteHours) %>% layer_lines() %>%
   layer_lines( ~label,   ~wlFteHours, stroke:="blue") %>%
   layer_lines( ~label,   ~ftehours, stroke:="red") %>%
   add_legend()

   Error: length(scales_props) not greater than 0

---

这是我的尝试。自从上次我使用了

ggvis

已经有一段时间了，但这似乎是实现预期结果的一种方法。您将看到使用以下代码的五行代码。如有必要，将数据子集并使用代码

library(tidyr)
library(ggvis)

gather(df, variables, values, -(subfunctionname:label)) -> mydf


ggvis(mydf, ~label, ~values, stroke = ~ variables) %>%
layer_lines()

如果您只需要指定颜色的三因素级别，以下是一种方法

library(dplyr)
library(tidyr)
library(ggvis)

gather(df, variables, values, -(subfunctionname:label)) %>%
filter(variables %in% c("avFteHours", "wlFteHours", "ftehours")) %>%
droplevels -> mydf

ggvis(mydf, ~label, ~values, stroke = ~ variables) %>%
layer_lines() %>%
scale_nominal("stroke", range = c("red", "black", "blue"))

---

我想知道你是否能把你想要的身材装进板条箱。如果你需要其他帮助，请告诉我。

library(tidyr)
library(ggvis)

gather(df, variables, values, -(subfunctionname:label)) -> mydf


ggvis(mydf, ~label, ~values, stroke = ~ variables) %>%
layer_lines()

library(dplyr)
library(tidyr)
library(ggvis)

gather(df, variables, values, -(subfunctionname:label)) %>%
filter(variables %in% c("avFteHours", "wlFteHours", "ftehours")) %>%
droplevels -> mydf

ggvis(mydf, ~label, ~values, stroke = ~ variables) %>%
layer_lines() %>%
scale_nominal("stroke", range = c("red", "black", "blue"))