Shiny

Question

前几天我正在使用dygraphs for R and I opened the following issue on GitHub，但是我还没有收到答复。因此，我希望这里有人能够回答我的问题。

我想知道是否可以在图例中显示预测区间的所有值，即 lower、actual、upper，而无需将它们作为三个单独的普通 dySeries？我喜欢 upper/lower 条带来的阴影外观，但我也希望能够将鼠标悬停在一个点上并查看该特定点的所有值，而不仅仅是中间的值。如果不存在这样的功能，是否有一个简单的解决方法，可能使用 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 值。

Answer 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)

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

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

Shiny - dygraphs: Show all error-bar values in legend

dygraphs

r-dygraphs