动态地将事件添加到动态图r

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

> 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',]

我正在尝试创建一个函数，它接受一个组名并创建一个以异常值作为事件线的动态图

在我的示例g1中，有两个日期带有异常值

由于基本功能如下所示：

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

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

我想动态地传递两个日期并获得两个事件行。由于dyEvent只接受一个日期，有没有办法对多个日期执行此操作

---

谢谢

我发现你可以像这样绘制动态曲线图：

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

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')
}

---

我发现你可以建立这样的动态曲线图：

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

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')
}

---

我想禁止使用动态从SO问题。它很少有助于理解请求的内容。而是显示所有输入和所需输出。类似的问题也存在于complex这个词上，它实际上应该只指R存储模式。而且：你应该像往常一样，包括所有你希望我需要的库调用。我想禁止使用动态从SO问题。它很少有助于理解请求的内容。而是显示所有输入和所需输出。类似的问题也存在于complex这个词上，它实际上应该只指R存储模式。而且：你应该像往常一样，包括所有你希望我需要的图书馆电话。