Добавление пунктирной линии с layer_lines в ggvis

Question

Это довольно просто, но я не смог найти решение. Как я могу сделать строку в layer_lines, разбитой в ggvis. Я имею дело с пользовательским типом линейной регрессии и я обеспечиваю эту игрушку пример для моей проблемы:

library(ggvis) 
W=seq(0,10,0.1) 
data=data.frame(fit=3+2*W,upper=4+2*W,lower=2+2*W) 
base <- data %>% ggvis(x= ~fit,y= ~W)%>%layer_lines() %>% 
layer_lines(x= ~lower,y= ~W)%>%layer_lines(x= ~upper,y= ~W) 

Это создает это изображение:

Я хочу верхний и нижняя линию, чтобы разбиться , Большое вам спасибо за помощь!

Answer 1

Это определенно помогает освежить Vega для использования ggvis. Вам необходимо использовать свойство strokeDash.

library(ggvis) 

W <- seq(0, 10, 0.1) 

data <- data.frame(fit=3+2*W, upper=4+2*W, lower=2+2*W) 

data %>% 
    ggvis(x= ~fit, y= ~W) %>% 
    layer_lines() %>% 
    layer_lines(x= ~lower, y= ~W, strokeDash:=6) %>% 
    layer_lines(x= ~upper, y= ~W, strokeDash:=6) -> base 

base