日本のマネタリーベース 2014年8月分(出所:日本銀行) #マネタリーベース #アベノミクス

2014年8月のマネタリーベースは242兆3138億円、前月よりも減少。

前年同月比はプラス40.5%、前年同月比は2014年2月のプラス55.7%をピークとして低下傾向にあり。

同月の日銀当座預金残高は151兆2314億円、前月よりも減少。

前年同月比はプラス79.3%、前年同月比は2014年2月のプラス162.3%をピークとして低下傾向にあり。
mb

> dataset<-read.table(file="mb.csv",header=TRUE,sep=",")

> dataset[,1]<-as.Date(dataset[,1])

> tmp<-as.Date("2013/1/1")

> dataset<-subset(dataset,tmp<=dataset[,1])

> dataset
          date      mb mbyy     cab cabyy
370 2013-01-01 1319205 10.9  435197  31.2
371 2013-02-01 1293148 15.0  424196  51.2
372 2013-03-01 1347413 19.8  473674  72.2
373 2013-04-01 1495975 23.1  619433  70.6
374 2013-05-01 1541412 31.6  663050 108.1
375 2013-06-01 1635375 36.0  761590 114.5
376 2013-07-01 1703890 38.0  823519 116.4
377 2013-08-01 1724437 42.0  843254 133.8
378 2013-09-01 1817012 46.1  937486 139.2
379 2013-10-01 1868687 45.8  987576 130.5
380 2013-11-01 1897244 52.5 1011535 160.5
381 2013-12-01 1934594 46.6 1018478 133.8
382 2014-01-01 2004141 51.9 1086710 149.7
383 2014-02-01 2013223 55.7 1112480 162.3
384 2014-03-01 2085929 54.8 1178882 148.9
385 2014-04-01 2220795 48.5 1314470 112.2
386 2014-05-01 2243719 45.6 1336433 101.6
387 2014-06-01 2332465 42.6 1430031  87.8
388 2014-07-01 2431068 42.7 1521889  84.8
389 2014-08-01 2423138 40.5 1512314  79.3

> png(file="mb.png")

> par(mfrow=c(2,2))

> plot(dataset[,1],dataset[,2],type="h",xlab="date",ylab="Monetary Base(100millionJPY)")

> plot(dataset[,1],dataset[,3],type="h",xlab="date",ylab="y-y(%):Monetary Base")

> plot(dataset[,1],dataset[,4],type="h",xlab="date",ylab="CurrentAccountBalances(100millionJPY)")

> plot(dataset[,1],dataset[,5],type="h",xlab="date",ylab="y-y(%):CurrentAccountBalances")

> dev.off()
windows 
      2