绘制r中的时间序列标准差

Question

我想将时间序列的标准差绘制为阴影或嵌入时间序列的两条虚线，但我无法找到解决方案。 我想绘制这样的东西（这是实际的数据，但是我已经创建了一个动物园对象，我想使用那个ts），其中红色虚线表示标准偏差。

提前致谢

这是dput（df）

的摘录

structure(c(27.97, 27.95, 27.96, 27.95, 27.97, 27.98, 27.95, 
27.94, 27.92, 27.92, 27.9, 27.89, 27.88, 27.88, 27.87, 27.87, 
27.85, 27.86, 27.86, 27.84, 27.87, 27.87, 27.85, 27.86, 27.85, 
27.84, 27.82, 27.82, 27.83, 27.84, 27.83, 27.83, 27.83, 27.83, 
27.83, 27.83, 27.83, 27.82, 27.81, 27.8, 27.82, 27.82, 27.8, 
27.81, 27.78, 27.78, 27.81, 27.8, 27.81, 27.8, 27.79, 27.77, 
27.76, 27.76, 27.76, 27.76, 27.75, 27.72, 27.72, 27.72, 27.71, 
27.69, 27.71, 27.72, 27.72, 27.71, 27.71, 27.7, 27.71, 27.69, 
27.7, 27.67, 27.67, 27.66, 27.67, 27.66, 27.66, 27.68, 27.67, 
27.67, 27.65, 27.67, 27.66, 27.66, 27.64, 27.65, 27.66, 27.65, 
27.66, 27.63, 27.64, 27.6, 27.59, 27.57, 27.59, 27.59, 27.58)
,index = 1:4417, class = "zoo")

Answer 1

如果您想坚持zoo而不使用ggplot实施，那么香草lines()似乎可以做得很好。

在下面的代码中k1是我从zoo创建的dput对象。

plot.ts(k1, ylim=c(27.5, 28.5)) 
lines(k1+1*sd(k1), lwd=0.6, lty=2)
lines(k1-1*sd(k1), lwd=0.6, lty=2)

输出：