在ggvis中添加带有layer_lines的虚线

Question

这很简单，但我无法找到解决方案。如何在以ggvis为单位的layers_lines中创建一行。我正在处理自定义类型的线性回归，我为我的问题提供了这个玩具示例：

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

使用ggvis清理Vega肯定会有所帮助。您需要使用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