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