グラフまとめ

日銀資産の推移

積み上げ折れ線グラフ　plotrix パッケージ

OSはzorin os

データは日本銀行時系列統計データ 日本銀行関連（BJ）を基に作成した。

  • 変数名を短く
  • 欠損値や空白は0に変更
  • 資産合計から長期国債,CP等,社債,ETF,REIT,貸出金の金額をひいて、「その他」とした。

d2010_201506.RData

1
2
3
4
5
6
7
load(url("http://statrstart.github.io/data/d2010_201506.RData"))
#変数名が文字化けを起こす可能性があるので、変数名を付け直す。
names(d2010_201506)<-c("系列名称","資産合計","長期国債","CP等","社債","ETF","REIT","貸出金","その他")
library(plotrix)
library(RColorBrewer)
日銀総裁の交代は平成25年(2013年) 3月
subset(d2010_201506, 系列名称=="13-Mar")

系列名称 資産合計 長期国債 CP等 社債 ETF REIT 貸出金 その他
39 13-Mar 164.8127 91.3492 1.2457 2.8872 1.544 0.1189 25.487 42.1807 

1
2
3
4
5
6
7
8
9
10
11
#png("shisan01.png",width=1000,height=800)
#par(family="TakaoMincho")
stackpoly(d2010_201506[,3:9],ylim=c(0,350),col=brewer.pal(7, "Set3"),stack=T,axis4=F,
xaxlab=d2010_201506[,1],main="日銀資産の推移（単位：兆円）")
#legend("topleft",colnames(d2010_201506[,3:9]),fill=brewer.pal(7, "Set3"))
legend("topleft",rev(colnames(d2010_201506[,3:9])),fill=rev(brewer.pal(7, "Set3")))
#日銀総裁交代(平成25年(2013年) 3月)時期に縦線
abline(v=39,col="red",lty=2)
text(19.5,300,"白川総裁",adj=0.5,col="blue",cex=2)
text(52.5,300,"黒田総裁",adj=0.5,col="blue",cex=2)
#dev.off()

CP等,社債,ETF,REITをとりだして積み上げ折れ線グラフ

1
2
3
4
5
6
7
8
9
10
#png("shisan02.png",width=1000,height=800)
#par(family="TakaoMincho")
stackpoly(d2010_201506[,4:7],ylim=c(0,12),col=brewer.pal(7, "Set3")[2:5],stack=T,axis4=F,
xaxlab=d2010_201506[,1],main="日銀資産(CP等,社債,ETF,REIT)の推移（単位：兆円）")
#legend("topleft",colnames(d2010_201506[,4:7]),fill=brewer.pal(7, "Set3")[2:5])
legend("topleft",rev(colnames(d2010_201506[,4:7])),fill=rev(brewer.pal(7, "Set3")[2:5]))
abline(v=39,col="red",lty=2)
text(19.5,10,"白川総裁",adj=0.5,col="blue",cex=2)
text(52.5,10,"黒田総裁",adj=0.5,col="blue",cex=2)
#dev.off()