日本銀行の時系列統計データ検索サイトから日次データを取得し,対ドル円相場をプロットする。
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時時点
月次データにはもう少し古いデータも入っている。
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時時点/月中平均