图表中有一些缺失的东西

Question

为了方便自己使用，我制作了以下功能，但是“MeanData60”行永远不会在结果图表上显示。

ShowStock <- function(Name)
{
    Data <- getSymbols(Name, auto.assign=FALSE);

    chartSeries(  Data, name=Name, subset="last 1 year", TA=c(addMACD())  )

    MeanData20 <- runMean(Data[,4], n=20)
    addTA(MeanData20, on=1, col="brown1")
    MeanData60 <- runMean(Data[,4], n=60)
    addTA(MeanData60, on=1, col="cadetblue1")
}

ShowStock("YHOO")

我不明白。 请帮助找出问题所在。