R 使用数据帧中的数据的动态图注释

我在一个闪亮的应用程序中使用动态图绘制了一个时间序列。现在，我想使用具有日期列和事件名称的数据框在图表上放置注释。当我在注释语句中指定数据框的行号，但我希望对数据框中的所有点进行注释时，它就起作用了。数据框中的行将根据用户输入进行更改

用例代码：

colnames(ci)<-colnames(fspanel2aplot)       
    dygraph(ci) %>%
      dySeries(colnames(ci)[2], color = "green",strokeWidth = 2,pointSize = 5) %>%
      dySeries(colnames(ci)[3], color = "black",strokeWidth = 2,axis = 'y2') %>%
      dyLegend(width = 650) %>%
      dyAxis("y", label = "Fundamental Indicator") %>% 
      dyAxis("y2", label = "Technical Indicator") %>%
      dyRangeSelector() %>%
      dyOptions(colors = RColorBrewer::brewer.pal(5, "Set2"),
                axisLineWidth = 1.5, fillGraph = FALSE,
                drawGrid = FALSE, axisLabelFontSize=12,
                connectSeparatedPoints = TRUE,labelsKMB=TRUE) %>%
      dyAnnotation(DTFRAME$EX_DT[1], text = "A", tooltip = DTFRAME$RATIO[1],series=colnames(ci)[3])

colnames（ci）%
dySeries（colnames（ci）[2]，color=“green”，strokeWidth=2，pointSize=5）%
dySeries（colnames（ci）[3]，color=“black”，strokeWidth=2，axis='y2'）%>%
动态图例（宽度=650）%>%
动态轴（“y”，label=“基本指标”）%>%
dyAxis（“y2”，label=“技术指标”）%>%
dyRangeSelector（）%>%
dyOptions（colors=RColorBrewer:：brewer.pal（5，“Set2”），
axisLineWidth=1.5，fillGraph=FALSE，
drawGrid=FALSE，axisLabelFontSize=12，
connectSeparatedPoints=TRUE，labelsKMB=TRUE）%>%
dyAnnotation（DTFRAME$EX_DT[1]，text=“A”，tooltip=DTFRAME$RATIO[1]，series=colnames（ci）[3]）

我可以使用循环将DTFRAME中的所有注释放置到动态图上吗

多谢各位

---

SD

你能提供你的数据样本吗

dput（ci）

请以行名称和两个系列基本和技术的形式提供日期。请提供样本数据！谢谢大家。我从另一篇文章中得到了答案——我从这篇文章中得到了答案