Shiny - dygraphs：在图例中显示所有错误栏值答案

【问题标题】：Shiny - dygraphs: Show all error-bar values in legendShiny - dygraphs：在图例中显示所有错误栏值
【发布时间】：2019-10-08 21:42:14
【问题描述】：

我正在使用dygraphs for R，前几天我打开了以下issue on GitHub，但是，我还没有收到答复。因此，我希望这里有人能够回答我的问题。

我想知道是否可以在图例中显示预测区间的所有值，即下限、实际、上限，而不是将它们作为三个单独的普通dySeries？我喜欢上/下条带来的阴影外观，但我也希望能够将鼠标悬停在一个点上并查看该特定点的所有值，而不仅仅是中间的值。如果这样的功能不存在，是否有一个简单的解决方法，可能使用fillGraph = TRUE 或其他什么？

library(dygraphs)

hw <- HoltWinters(ldeaths)
p <- predict(hw, n.ahead = 72, prediction.interval = TRUE)

dygraph(p, main = "Predicted Lung Deaths (UK)") %>%
  dySeries(c("lwr", "fit", "upr"), label = "Deaths")

上面的代码是web page的例子，和我的问题类似。我只是想在悬停时查看图例中的lwr 和upr 值。

【问题讨论】：

标签： shiny dygraphs r-dygraphs

【解决方案1】：

所以我找到了一个解决方法，供任何寻找类似东西的人使用。

library(dygraphs)

hw <- HoltWinters(ldeaths)
p <- predict(hw, n.ahead = 72, prediction.interval = TRUE)

max <- p[,2]
min <- p[,3]

p <- ts.union(p, max, min)

dygraph(p, main = "Predicted Lung Deaths (UK)") %>%
  dySeries(c("p.lwr", "p.fit", "p.upr"), label = "Deaths") %>%
  dySeries("max", label = "Max", pointSize = 0.01, strokeWidth = 0.001) %>%
  dySeries("min", label = "Max", pointSize = 0.01, strokeWidth = 0.001)

显然，这可以根据您的需要进行修改（例如点的颜色等）。此方法的主要思想是创建两个包含带中使用的相同信息的新列，然后使这些线条太小而看不见。

【讨论】：