日本の需要不足失業率 #アベノミクス

Script
funcPlot<-function(dataset){
print(head(dataset,10));print(tail(dataset,10))
datasource<-"独立行政法人労働政策研究・研修機構"
par(mar=c(5,4,4,5))
plot(
  dataset[,1],dataset[,2],
  type="o",
  xlab=colnames(dataset)[1],
  ylab=colnames(dataset)[2],
  family="Meiryo",
  panel.first=grid(nx=NULL,ny=NULL,lty=2,equilogs=T),
  col="blue"
)
par(new=T)
plot(
  dataset[,1],dataset[,3],
  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)[3],side=4,line=2)
legend("topleft",col=c("blue","red"),lty=1,legend=c(colnames(dataset)[2],colnames(dataset)[3]))
par(new=T)
title(sub=paste("Data Source:",datasource))  
}
funcPlot(dataset)
#summary part
summary(dataset[,2])
summary(dataset[,3])
Result
> funcPlot(dataset)
         Date 完全失業率(四半期平均) 需要不足失業率(四半期平均)
1  1970-03-01                   1.06                      -0.40
2  1970-06-01                   1.11                      -0.39
3  1970-09-01                   1.21                      -0.36
4  1970-12-01                   1.26                      -0.35
5  1971-03-01                   1.17                      -0.34
6  1971-06-01                   1.21                      -0.30
7  1971-09-01                   1.23                      -0.27
8  1971-12-01                   1.34                      -0.22
9  1972-03-01                   1.42                      -0.20
10 1972-06-01                   1.38                      -0.25
          Date 完全失業率(四半期平均) 需要不足失業率(四半期平均)
174 2013-06-01                   4.05                       0.44
175 2013-09-01                   3.96                       0.37
176 2013-12-01                   3.86                       0.29
177 2014-03-01                   3.63                       0.17
178 2014-06-01                   3.62                       0.16
179 2014-09-01                   3.58                       0.13
180 2014-12-01                   3.47                       0.09
181 2015-03-01                   3.46                       0.06
182 2015-06-01                   3.33                       0.00
183 2015-09-01                   3.38                      -0.01

> summary(dataset[,2])
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.060   2.115   2.790   3.119   4.220   5.430 

> summary(dataset[,3])
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
-0.5400  0.0850  0.3600  0.4436  0.6250  1.9300 

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

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

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

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

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

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