动态地向dygraph r添加事件

Question

我有一个数据框，其中包含来自时间序列的异常值的选定日期。我想动态地将它们添加到我的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只有一个日期，有没有办法在多个日期执行此操作？

由于

Answer 1

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

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

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

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