r - 将自定义 TA 添加到 chart.Posn()

Question

我有同样的问题：将技术指标添加到chart.Posn

但是，我正在使用自定义指标，它绘制在头寸图表的顶部。有人可以帮助我吗？我正在使用的指标是专有的，但任何定义的自定义指标解决方案都会有所帮助。

这是我的 chart.Posn() 调用：

chart.Posn(Portfolio = strategy, 
           Symbol = tickers, 
           theme = myTheme, 
           Dates = "2016-01-20::2016-01-20",
           TA = "add_TA(range_expansion_index(OHLC(mktdata)))")

这就是我的输出的样子（我在红框中突出显示了问题）：

Answer 1

对我有用的解决方案是 add_TA 函数。例如，

rei <- my_function(close_prices, period = 5) 

chart.Posn(Portfolio = strategy_nm, 
           Symbol = tickers, 
           theme = myTheme)

add_TA(rei, col = "black", lwd = 1.5, legend = "REI", type = 'l')