动态地将事件添加到 dygraph r答案

【问题标题】：dynamically add events to dygraph r动态地将事件添加到 dygraph r
【发布时间】：2015-09-29 15:06:24
【问题描述】：

我有一个数据框，其中包含来自异常值的时间序列中的选定日期。我想将它们作为事件线动态添加到我的 dygraph 中。我的数据是这样的

> head(data)
  Group Date
1 g1 2013-08-26
2 g1 2013-08-27
3 g2 2013-08-29
4 g2 2013-12-31
5 g3 2014-01-08

df_sub <- data[data$Group=='g1',]

我正在尝试创建一个函数，该函数接受组名并创建一个以异常值作为事件线的 dygraph。

在我的例子中。对于 g1，有两个日期有异常值。

因为基本功能是这样的：

p <- dygraph(df_sub) %>% dyEvent(date = '2013-08-26', label='xyz', labelLoc='bottom')

我想动态传递两个日期并获取两个事件行。由于 dyEvent 只需要一个日期，有没有办法为多个日期执行此操作？

谢谢

【问题讨论】：

我想禁止在 SO 问题中使用“动态”。它对理解请求的内容很少有帮助。而是显示所有输入和所需的输出。类似的问题与“复杂”一词有关，它实际上应该只指 R 存储模式。并且：您应该像往常一样包含您希望我需要的所有 library() 调用。

【解决方案1】：

我发现您可以像这样构建 dygraph 图：

p <- dygraph(df_sub)
p <- p %>% dyEvent(date = '2013-08-26', label='xyz', labelLoc='bottom')

然后调用 p 调用情节。因此，您可以使用 for cycle 创建更多事件行：

p <- dygraph(df_sub)
for (i in 1:dim(df_sub)[1]){
p <- p %>% dyEvent(date = df_sub$Date[i], label='xyz', labelLoc='bottom')
}

【讨论】：