Hello help community，
我目前遇到chart_Series和add_TA问题。我想绘制我旁边添加的垂直线的名称。这个名字可以让我在线上方或离开它，但由于我在chart_Series中使用shiny，我希望找到一个解决方案，在放大图表后仍会显示该名称
我尝试name以及legend.name作为add_TA功能的一部分。这两者都没有带来满意的解决方案。 chart_Series中quantmod的文档在此级别上并不十分详细。我将非常感谢您的帮助，我感谢任何建议和提示！
以下示例代码应生成类似的图形结果：
library(quantmod)
data <- getSymbols("SPY", auto.assign = FALSE)
x_ti <- xts(rnorm(NROW(data)), order.by = index(data))
x_ti2 <- xts(rep(1, NROW(data)), order.by = index(data))
x_ti2[1, ] <- 0.5
chart_Series(data["2017"])
add_TA(x_ti2, col = "orange", pch = 9, type = 'p', cex = .7)