Dygraphs:填充系列上方的区域

Dygraphs: fill area above series

Dygraphs 中有一个选项可以填充线下的区域:

library(dygraphs)
lungDeaths <- cbind(ldeaths, mdeaths, fdeaths)
dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
  dySeries("fdeaths", stepPlot = TRUE, color = "red", fillGraph = TRUE)   

我的问题是:如何填充线以上的区域?

这是我目前能得到的最接近的。您必须创建阴影图的错觉。您必须创建一个 top 虚拟数据集来完成此操作以绘制您所询问的内容。在此之后,您可以设置轴限制以获得您所询问的内容。

注意: 考虑到我们要将它们堆叠,底部部分很难包含在内。这并不理想(下面发布的内容)。

library(dygraphs)

top <- structure(rep(10000, 72), .Tsp = c(1974, 1979.91666666667, 12), class = "ts")


lungDeaths <- cbind(top, ldeaths, mdeaths, fdeaths)


dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
  dyLegend(show = "never", hideOnMouseOut = FALSE)%>%
  dyOptions(stackedGraph = TRUE)%>%
  dyRangeSelector()%>%
  dyAxis("y", valueRange = c(0, 8000))

如果你想要下面有一个大的差距,然后尝试添加一些其他的虚拟值,就像这样。

lungDeaths <- cbind(top, ldeaths, mdeaths, fdeaths, top)

dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
  dyLegend(show = "never", hideOnMouseOut = FALSE)%>%
  dyOptions(stackedGraph = TRUE)%>%
  dyRangeSelector()%>%
  dyAxis("y", valueRange = c(8000, 20000))