RFinanceYJを使用して、東証一部の株価を一通り取得してみる。
RFinanceYJパッケージを使用して、日本株のデータを色々取得してみる練習。
まずは、下記の東証のHPから上場銘柄一覧の.xlsファイルをダウンロード。
http://www.tse.or.jp/market/data/listed_companies/index.html
とりあえず、今回は東証一部のみに絞ってみるので、下記をダウンロード。
http://www.tse.or.jp/market/data/listed_companies/b7gje60000023aiz-att/first-d-j.xls
ダウンロードしたファイルをRのワーキングディレクトリに移動して、
> require (RFinanceYJ)
# xlsファイルを直接読み込むための、read.xls関数を含むパッケージ
> require (gregmisc)> stocklist.j <- read.xls ("first-d-j.xls",header=T)
# 読み込んだxlsファイルからコードの列だけを取り出す。
> stocklist <- stocklist.j$コード# 2012年分のデータを取得
# 取得開始日や終了日はquoteStockXtsData関数のパラメーターで調節可能。
# 結構時間が掛かって不安になるので、各データの取得が終わる事に証券コードをコンソールに返すようにしておく。> for (i in stocklist) {
assign (paste("s",i, sep=""),quoteStockXtsData(paste(i,".t"), '2012-01-01'))
print (i)
}
とりあえず、今日はここまで。
取得したデータは日が経つ事に古くなってしまうので、更新する方法も考えないと。
2013年1月6日追記
少し内容をアップデートして更新。
http://d.hatena.ne.jp/yagi-k/20130106/1357542096