在动物园时间序列中绘制Lowess平滑线

Question

我正在尝试将低值平滑线添加到动物园时间序列中，但无法显示低值线。

我确定它与索引不匹配有关，但我无法弄清楚如何绕过它......

x.Date <- as.Date(paste(2003, 02, c(1, 3, 7, 9, 14,19,24,29), sep = "-"))
x <- zoo(rnorm(8), x.Date)
lo = lowess(x)
plot(x, type='p')
lines(lo,col='purple')

新的时间序列和任何建议表示赞赏。

Answer 1

这应该有效：

lines(index(x), lo$y,col='purple')

index只从动物园对象中获取时间索引，并且我只使用了来自lowess的y值。