日本の完全失業率と被保護世帯数 #アベノミクス

Script
funcPlot<-function(dataset){
print(head(dataset,10));print(tail(dataset,10))
datasource<-"国立社会保障・人口問題研究所、総務省"
par(mar=c(5,4,4,5))
plot(
  dataset[,1],dataset[,3],
  type="o",
  xlab=colnames(dataset)[1],
  ylab=colnames(dataset)[3],
  family="Meiryo",
  panel.first=grid(nx=NULL,ny=NULL,lty=2,equilogs=T),
  col="blue"
)
par(new=T)
plot(
  dataset[,1],dataset[,4],
  type="o",
  xlab="",
  ylab="",
  family="Meiryo",
  panel.first=grid(nx=NULL,ny=NULL,lty=2,equilogs=T),
  col="red",
  xaxt="n",
  yaxt="n"
)
axis(4)
mtext(colnames(dataset)[4],side=4,line=2)
legend("topleft",col=c("blue","red"),lty=1,legend=c(colnames(dataset)[3],colnames(dataset)[4]))
par(new=T)
title(sub=paste("Data Source:",datasource))  
}
funcPlot(dataset)
dataset<-subset(dataset,as.Date("1989/1/1")<=dataset[,1])
funcPlot(dataset)
#summary part
summary(dataset[,3])
adf.test(dataset[,3])
adf.test(diff(dataset[,3]))
summary(dataset[,4])
adf.test(dataset[,4])
adf.test(diff(dataset[,4]))
Result
> funcPlot(dataset)
         Date 被保護世帯数(一ヶ月平均) 被保護世帯数前年比(%) 完全失業率(男女計,%)
2  1953-01-01                   680289                 -3.15                  2.3
3  1954-01-01                   658321                 -3.23                  2.5
4  1955-01-01                   661036                  0.41                  2.3
5  1956-01-01                   618301                 -6.46                  1.9
6  1957-01-01                   579037                 -6.35                  2.1
7  1958-01-01                   591907                  2.22                  2.2
8  1959-01-01                   613532                  3.65                  1.7
9  1960-01-01                   611456                 -0.34                  1.4
10 1961-01-01                   612666                  0.20                  1.3
11 1962-01-01                   624012                  1.85                  1.3
         Date 被保護世帯数(一ヶ月平均) 被保護世帯数前年比(%) 完全失業率(男女計,%)
52 2003-01-01                   941270                  8.08                  5.3
53 2004-01-01                   998887                  6.12                  4.7
54 2005-01-01                  1041508                  4.27                  4.4
55 2006-01-01                  1075820                  3.29                  4.1
56 2007-01-01                  1105275                  2.74                  3.9
57 2008-01-01                  1148766                  3.93                  4.0
58 2009-01-01                  1274231                 10.92                  5.1
59 2010-01-01                  1410049                 10.66                  5.1
60 2011-01-01                  1498375                  6.26                  4.6
61 2012-01-01                  1558510                  4.01                  4.3

> funcPlot(dataset)
         Date 被保護世帯数(一ヶ月平均) 被保護世帯数前年比(%) 完全失業率(男女計,%)
38 1989-01-01                   654915                 -3.83                  2.3
39 1990-01-01                   623755                 -4.76                  2.1
40 1991-01-01                   600697                 -3.70                  2.1
41 1992-01-01                   585972                 -2.45                  2.2
42 1993-01-01                   586106                  0.02                  2.5
43 1994-01-01                   595407                  1.59                  2.9
44 1995-01-01                   601925                  1.09                  3.2
45 1996-01-01                   613106                  1.86                  3.4
46 1997-01-01                   631488                  3.00                  3.4
47 1998-01-01                   663060                  5.00                  4.1
         Date 被保護世帯数(一ヶ月平均) 被保護世帯数前年比(%) 完全失業率(男女計,%)
52 2003-01-01                   941270                  8.08                  5.3
53 2004-01-01                   998887                  6.12                  4.7
54 2005-01-01                  1041508                  4.27                  4.4
55 2006-01-01                  1075820                  3.29                  4.1
56 2007-01-01                  1105275                  2.74                  3.9
57 2008-01-01                  1148766                  3.93                  4.0
58 2009-01-01                  1274231                 10.92                  5.1
59 2010-01-01                  1410049                 10.66                  5.1
60 2011-01-01                  1498375                  6.26                  4.6
61 2012-01-01                  1558510                  4.01                  4.3

> summary(dataset[,3])
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
 -4.760   1.465   3.970   3.597   6.373  10.920 

> adf.test(dataset[,3])

	Augmented Dickey-Fuller Test

data:  dataset[, 3]
Dickey-Fuller = -1.7272, Lag order = 2, p-value = 0.6763
alternative hypothesis: stationary

> adf.test(diff(dataset[,3]))

	Augmented Dickey-Fuller Test

data:  diff(dataset[, 3])
Dickey-Fuller = -3.2202, Lag order = 2, p-value = 0.1076
alternative hypothesis: stationary

> summary(dataset[,4])
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  2.100   3.125   4.100   3.896   4.700   5.400 

> adf.test(dataset[,4])

	Augmented Dickey-Fuller Test

data:  dataset[, 4]
Dickey-Fuller = -1.2371, Lag order = 2, p-value = 0.863
alternative hypothesis: stationary

> adf.test(diff(dataset[,4]))

	Augmented Dickey-Fuller Test

data:  diff(dataset[, 4])
Dickey-Fuller = -2.5305, Lag order = 2, p-value = 0.3703
alternative hypothesis: stationary

2016年03月29日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第4週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月22日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第3週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月15日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第2週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移