Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
グラフの例：円相場
[go: Go Back, main page]

グラフの例：円相場

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

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