如何在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)")

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