r语言 - 在图表系列图上将一条线延伸到未来 20 天

Question

我使用 quantmod 在图表中添加了一条线。但是，我怎样才能让它在接下来的 20 天内扩展到未来呢？

library(quantmod)
getSymbols("SPY", from="2013-01-01", to="2013-09-28")
chartSeries(SPY, TA="addLines(h=c(max(SPY[,c(1:4)])))")

另外，如何将其值添加到辅助y轴上？

我也试过：

 chart_Series(SPY, subset="2013::", type = "candlesticks" ) 
 segments(1, 150, 800, 150)

但是我无法向前更改 x 轴。

Answer 1

将要扩展的值放入另一个对象中，然后将要绘制图表的对象与另一个对象的索引合并。 这将为未来几天创建充满NA的行。

futureLine <- xts(,end(SPY)+1:20)  # create empty object with days we want
futureLine$max <- max(Hi(SPY))     # fill in data
chart_Series(merge(SPY,index(futureLine)), TA="add_TA(futureLine, on=1)")

常规chartSeries不喜欢这种方法，因为它似乎删除了所有仅包含NA的行。