r - 从 googleVis 向折线图添加垂直线

Question

我想做的是从 googleVis 包中向 R 中的折线图添加一条垂直线。有谁知道这是否支持？例如，给定以下简单的折线图，我想在 x=2 处添加一条垂直线。这甚至可能吗？

# Simple example. Must bring in 'googleVis' package first.  

df <- data.frame(country=c(1,2,3), val1=c(1,3,4), val2=c(23,12,32))
Line1 <- gvisLineChart(df, xvar="country", yvar=c("val1", "val2"))
plot(Line1) 

Answer 1

通过询问开发人员，我意识到了如何做到这一点。您使用 NA 来获取垂直参考线，如下所示：

library(googleVis)
dat <- data.frame(x=c(2,2,1,3,4),
              y1=c(0,3,NA,NA,NA),
              y2=c(NA,NA,0,3,2))
plot(gvisScatterChart(dat,
                  options=list(lineWidth=2,
                               pointSize=2))
)