r - 在动物园时间序列中绘制 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只是从动物园对象中获取时间索引，我做了 lo$y 只使用来自lowess的y值。