グラフの例:円相場

日本銀行の時系列統計データ検索サイトから日次データを取得し,対ドル円相場をプロットする。

d = read.csv("http://www.stat-search.boj.or.jp/ssi/mtshtml/csv/d.csv",
             header=FALSE, skip=6, fileEncoding="SJIS", strip.white=TRUE)
t = as.POSIXct(d$V1)
plot(t, d$V4, type="l", xlab="", ylab="Yen/USD") # 17時時点
Yen/USD rate

月次データにはもう少し古いデータも入っている。

m = read.csv("http://www.stat-search.boj.or.jp/ssi/mtshtml/csv/m.csv",
             header=FALSE, skip=6, fileEncoding="SJIS", strip.white=TRUE)
t = as.POSIXct(paste0(m$V1, "/15"))  # 毎月15日とする
plot(t, m$V14, type="l", xlab="", ylab="Yen/USD")  # 17時時点/月中平均
Yen/USD rate