0

我使用 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 轴。

4

1 回答 1

2

将要扩展的值放入另一个对象中,然后将要绘制图表的对象与另一个对象的索引合并。这将为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.

于 2013-09-29T12:36:20.600 回答