R 无法将移动平均线添加到股价时间序列图中

我需要画出股价图，并在上面加上移动平均线。 我尝试了下面的代码来生成绘图。但由于某些原因，ma线没有显示在绘图上。我很困惑。有人知道我在密码里做错了什么吗？为什么马行没有出现

library(quantmod)
library(forecast)
library(xts)
library(zoo)
start <- as.Date('2018-01-01')
end <- as.Date('2018-02-13')
getSymbols('APPL', src='yahoo', from=start, to=end)
appl <- APPL[, 'APPL.Adjusted']

plot(appl)
sma = ma(appl, order=20)
lines(sma, col='red')

库（quantmod）
图书馆（预测）
图书馆（xts）
图书馆（动物园）
启动使用以下命令将
ts
（通过应用
ma（）
函数获得）转换为
xts
对象：

sma = xts(ma(aapl, order=20), order.by=index(appl))
lines(sma, col='red')

plot（）
对象现在可以将移动平均值（MA）添加到绘图中

请记住，
ma（）
会进行一些调整，以使像您这样的均一订单ma居中。它通过对数据应用两个非中心MA来实现这一点，一个为20阶，另一个为2阶。因此，以下内容相当于您计算的MA：

ma( ma(appl, 20, centre=F), 2, centre=F)