追記:関数化しました。
標準の plot
#テストデータの生成 set.seed(1) y=cumsum(rnorm(100)) plot.ts(y, type="l")
この系列に移動平均線を加えるのには latticeExtra パッケージの simpleSmoothTs 関数を使うと便利です。
library(latticeExtra) ma <- simpleSmoothTs(y,width=7) #7期移動平均 lines(ma, col=2, lwd=2)
ggplot2 でやる
一発で移動平均線を描画してくれる stat_smooth みたいな関数はないようです。
df1 <- data.frame(x=1:100,y,ma) library(ggplot2) p1 <-ggplot(df1) + geom_line(aes(x=x,y=y)) p1 + geom_line(aes(x=x,y=ma),colour=2,size=1.1)