R

国際商品価格

Quandl パッケージ

(参考)
Quandl : Database Browser 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
library(Quandl)
library(xts)
library(scales)
library(ggplot2)
library(gridExtra)
#library(devtools)
#install_github('sinhrks/ggfortify')
library(ggfortify)
#
#商品価格 : All Commodity Price Index
qd = Quandl("ODA/PALLFNF_INDEX", collapse="monthly", start_date="2006-01-01", type="ts")
#
#qd
#png("CommodityPrice01.png")
autoplot(qd)+labs(x="",y="",title="All Commodity Price Index(2006/1_2016/5)")
#dev.off()

リーマンショック前と現在のAll Commodity Price Indexの推移を比較

リーマン・ブラザーズの破綻（2008年9月15日）

1
2
3
4
5
#png("CommodityPrice02.png")
p1<-autoplot(window(qd,c(2006,09),c(2008,08)))+labs(x="",y="",title="All Commodity Price Index(2006/09_2008/8)")
p2<-autoplot(window(qd,c(2014,06),c(2016,05)))+labs(x="",y="",title="All Commodity Price Index(2014/06_2016/05)")
grid.arrange(p1,p2)
#dev.off()