読者です 読者をやめる 読者になる 読者になる

廿TT

譬如水怙牛過窓櫺 頭角四蹄都過了 因甚麼尾巴過不得

R(ggplot2)で移動平均

標準の plot

#テストデータの生成
set.seed(1)
y=cumsum(rnorm(100))
plot.ts(y, type="l")

f:id:abrahamcow:20150211012359p:plain

この系列に移動平均線を加えるのには latticeExtra パッケージの simpleSmoothTs 関数を使うと便利です。

library(latticeExtra)
ma <- simpleSmoothTs(y,width=7) #7期移動平均
lines(ma, col=2, lwd=2)

f:id:abrahamcow:20150211012640p:plain

参考: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)

f:id:abrahamcow:20150211012859p:plain

注意点

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

参考:テクニカル分析入門-移動平均線|FX初心者も安心のFXスプレッド。FXチャートの見方も学べます!アイネットFX