TOPIX(2013年)のカレンダープロット

お、おお、こんなのあるんだ。昔、似たような感じの話で

で試したコードよりも簡素化されていて大変よい。大変良いので真似てみた。

ここでは、今目下私が開発中のRFinanceYJパッケージを代替するようなパッケージ、その名もRFinanceJパッケージを使って、TOPIXデータを取得する*1

RFinanceJパッケージのインストールは、github経由で以下のように行う。devtoolsが既にあるならそこはインストールしなくても当然いい。

install.packages("devtools")
library(devtools)
install_github("teramonagi/RFinanceJ")
library(RFinanceJ)

データの取得は以下のような感じで。関数はrfinancejでもその省略系のrfjでもどちらでもOK。

dat <- rfj('998405.t', "data.frame", "2013-1-1", "2013-12-31", "daily", "yahoo")

取得したデータの日付列は"date"限定らしいので、そのように変更しておく。magrittrパッケージを使えば以下のようにスマートにかける!

library(magrittr)
#一列名の列名を"date"に変更
dat := setNames(c("date", colnames(dat)[-1]))

ここまでくればあとはopenairパッケージで簡単にカレンダープロットを作れる。

library(openair)
calendarPlot(dat, pollutant = "Close", year = "2013", cols="jet")

結果は↓。う、美しい、そしてアベノミクス万歳の一年であったことがわかる。

*1:ちなみに、日本の金融・経済系のいいデータソースをご存知でしたら教えてください