日本のマネーストック 2014年8月分(出所:日本銀行)

M2、M3ともに前年同月比は低下傾向にあり。
日本のマネーストック

          date MoneyStock.M2 MoneyStock.M3     yyM2     yyM3
118 2013-01-01      830.1342      1138.692 2.693080 2.274127
119 2013-02-01      828.4334      1136.731 2.926056 2.435800
120 2013-03-01      834.1194      1141.673 3.056090 2.515575
121 2013-04-01      843.9985      1151.884 3.186235 2.582908
122 2013-05-01      844.2189      1152.026 3.484602 2.806574
123 2013-06-01      849.8579      1158.720 3.809252 3.058069
124 2013-07-01      850.7059      1161.000 3.731213 3.005453
125 2013-08-01      850.0568      1160.434 3.762063 3.032288
126 2013-09-01      850.9968      1161.274 3.861173 3.113882
127 2013-10-01      852.2770      1162.766 4.133107 3.315073
128 2013-11-01      855.2043      1165.727 4.356929 3.492904
129 2013-12-01      863.0314      1174.818 4.249996 3.416221
130 2014-01-01      866.1649      1178.128 4.340346 3.463334
131 2014-02-01      861.4454      1173.019 3.984871 3.192293
132 2014-03-01      863.8618      1174.402 3.565725 2.866803
133 2014-04-01      873.1567      1183.870 3.454769 2.776754
134 2014-05-01      871.8619      1182.569 3.274388 2.651286
135 2014-06-01      875.6503      1187.471 3.034907 2.481281
136 2014-07-01      876.0451      1189.469 2.978609 2.452137
137 2014-08-01      875.1841      1188.748 2.955955 2.439967
#各種条件設定
username<-Sys.info()['user']
path01<-paste("C:/Users/",username,"/Desktop/R_Data_Read/",sep="")
path02<-paste("C:/Users/",username,"/Desktop/R_Graph/",sep="")
path03<-paste("C:/Users/",username,"/Desktop/R_Data_Write/",sep="")
setwd(path01)
#パッケージ読込
library(urca) #ca.po()
library(tseries)
library(forecast)
library(MASS) #truehist()
library(lmtest) #dwtest
library(systemfit)
#フォルダ内のファイルを変数化
for(iii in 1:length(dir(path01)))
{#sepia
tmp<-read.table(file=dir(path01)[iii],header=TRUE,sep=",")
#オリジナルデータが2014/09形式の場合
tmp[,1]<-paste(as.integer(substr(tmp[,1],1,4)),"/",as.integer(substr(tmp[,1],6,7)),"/1",sep="")
tmp[,1]<-as.Date(tmp[,1])
colnames(tmp)[1]<-"date" #小文字
assign(paste("dataset",iii,sep=""),tmp)
cat(paste("dataset",iii,"\n",sep=""))
print(head(tmp))
print(tail(tmp))
}#sepia
##################################################
dataset1[,2]<-dataset1[,2]/(10^4)
dataset1[,3]<-dataset1[,3]/(10^4)
dataset1[,4]<-0 #dummy
dataset1[,5]<-0 #dummy
for(nnn in 13:length(dataset1[,1])){
dataset1[,4][nnn]<-(dataset1[,2][nnn]-dataset1[,2][nnn-12])/dataset1[,2][nnn-12]*100
dataset1[,5][nnn]<-(dataset1[,3][nnn]-dataset1[,3][nnn-12])/dataset1[,3][nnn-12]*100
}
colnames(dataset1)[4]<-"yyM2"
colnames(dataset1)[5]<-"yyM3"
dataset1<-subset(dataset1,as.Date("2013/1/1")<=dataset1[,1])
Date<-dataset1[,1]
M2<-dataset1[,2]
M3<-dataset1[,3]
yyM2<-dataset1[,4]
yyM3<-dataset1[,5]
setwd(path02)
png(file="日本のマネーストック.png",width=1200,height=800)
par(mar=c(5,5,5,5),ps=20,cex.axis=1,cex.lab=1,cex.main=1,cex.sub=1)
layout(matrix(c(1,2,3,4),nrow=2))
barplot(names.arg=format(Date,"%Y%m"),M2,main="M2 単位:兆円.縦軸は対数表示",log="y")
barplot(names.arg=format(Date,"%Y%m"),M3,main="M3 単位:兆円.縦軸は対数表示",log="y")
barplot(names.arg=format(Date,"%Y%m"),yyM2,main="前年同月比:M2 単位:%")
barplot(names.arg=format(Date,"%Y%m"),yyM3,main="前年同月比:M3 単位:%")
title(paste("\n",dir(path01)[1],",","日本のマネーストック 対象期間:",format(dataset1[,1][1],"%Y/%b"),
"-",format(dataset1[,1][length(dataset1[,1])],"%Y/%b"),sep=""),outer=T)
dev.off()
dataset1