R（ggplot2）で移動平均

追記：関数化しました。

abrahamcow.hatenablog.com

標準の 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)

参考：R で移動平均 - 裏 RjpWiki

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)

注意点

テクニカル分析とか罫線分析とか呼ばれる、株価の予測に移動平均を用いる手法は統計的・科学的根拠はないオカルトですので注意してください。

参考：移動平均線 | アイネット証券