如何在 quantmod 图表上绘制计算线

Question

我想将自己计算的指标绘制到 quantmod 图表上。例如：最近 6 天的平均高点。有没有办法在图表上画出这样一个系列？我尝试了以下但没有成功。

SPY<-getSymbols("SPY", src = 'yahoo', from = '2007-01-01', auto.assign = FALSE)
SPY$Last6DaysHigh<-(Lag(SPY$SPY.Close,k=6)+Lag(SPY$SPY.Close,k=5)+
                    Lag(SPY$SPY.Close,k=4)+Lag(SPY$SPY.Close,k=3)+
                    Lag(SPY$SPY.Close,k=2)+Lag(SPY$SPY.Close,k=1))/6

Last6DaysHigh <- xts(!as.logical(SPY[,7]),index(SPY))
chart_Series(SPY,TA="add_TA(Last6DaysHigh,on=-1)")

Answer 1

这对我有用：

library(quantmod)
SPY <- getSymbols("SPY", auto.assign = FALSE)
SPY$Last6DaysHigh <- rowMeans(Lag(Cl(SPY),k=1:6))
chart_Series(SPY,TA="add_TA(SPY$Last6DaysHigh,on=-1)")

我怀疑这个问题与以下事实有关：您的代码试图绘制单个点，因为它绘制了一个逻辑向量，其中除了一个观察结果之外的所有观察结果都是错误的。

如何在 quantmod 图表上绘制计算线

How to draw a calculated line on quantmod chart

r

quantmod