R图表系列添加带点的额外图表

我有一个关于

chartSeries

和

addTA

/

点的问题。默认的
R
函数。我正试图在
图表系列
下添加一个额外的图表，该图表使用不同颜色的点绘制（颜色取自函数并使用
点。默认值
），但不幸的是，我无法使用
addTA
添加这些点。我能够在现有图表中添加一行（这两个都不是我想要的）。
points.default
函数只需将这些点添加到chartSeries中，这不是我想要的。我正在寻找一条简单的点直线，我可以用我的
color\u fct
对其进行不同的着色，并将其添加到我的
chartSeries
下面。我感谢您的帮助，并提前向您表示感谢

示例代码：

getSymbols("YHOO")
data <- YHOO
chartSeries(data, type = c("auto", "candlesticks", "matchsticks","bars","line"))
hero<-rep(1,length(data$Close))
c(data, xts(hero))
#addTA provides me with a straight line and the coloring fct is not working
plot(addTA(data$hero,pch = 15,cex = 1.5, on = 2, col = color_fct))
#points.default provides me with perfect coloring, but the points are plotted in the middle of the chart
help<- rep(1, length(data$Close))
points.default(x=(1:length(data$High)),y=help+1, col= color_fct,pch = 15,cex = 1.5)

getSymbols（“YHOO”）
数据如果您愿意使用较新的
图表系列
而不是
图表系列
：

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 # work around to get an xts object with all the same values (of 1) to plot if points are not visible on the subplot

chart_Series(data["2017"])
add_TA(x_ti, col = "purple", pch = 15, type = 'p', cex = .7)
# plot straight line in subplot:
add_TA(x_ti2, col = "orange", pch = 9, type = 'p', cex = .7)

不幸的是，我发现了一个bug。我用的是带滑块的闪亮。滑块在
图表\u系列
上工作正常，但直线有问题。每次我缩放它时，它都会固定左侧的值。如果缩放到右侧，左侧的值将保持不变，而
chart\u Series
将在右侧放大。有没有一个选项可以让
zoom\u图表
也可以放大你的答案？据我所知，你的代码添加了一个独立于图表系列的单独图表。这是正确的假设吗？有没有一种方法可以将两个图表连接起来？使用Shiny时，您可以将所有项目一起绘制成图表：
chart_Series（data[“2017”），TA='add_-TA（x_-ti，col=“purple”，pch=15，type=“p”，cex=.7）；add_-TA（x_-ti2，col=“orange”，pch=9，type=“p”，cex=.7）
此外，您与Shiny的“bug”实际上是另一个问题。如果你希望得到答案，你应该用可复制的闪亮代码提出另一个问题。啊，好的，对不起，谢谢你的建议。我对stackoverflow还是新手，还不完全了解规则。我会用闪亮的代码打开一篇新帖子。你的输入真的帮助了我和我对代码的理解，谢谢！