我有一个数据框,其中包含从时间序列中选择的离群值日期。我想将它们作为事件线动态添加到我的图文中。 我的数据看起来像这样
> 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 仅需要一个日期,有没有办法对多个日期执行此操作?
谢谢
我发现你可以像这样构建dygraph图:
p <- dygraph(df_sub)
p <- p %>% dyEvent(x = '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')
}