東京市場 ドル円レート 変動幅(最高値~最安値、9時時点~17時時点) #アベノミクス #金融緩和

Result
> head(dataset[,c(1,6:7)])
         Date ドル円 1日変動幅(円) ドル円 9時-17時変動幅(円)
4  1999-01-04                 1.24                     -1.08
5  1999-01-05                 1.70                      0.46
6  1999-01-06                 1.46                     -0.41
7  1999-01-07                 3.05                      1.96
8  1999-01-08                 1.88                     -0.07
11 1999-01-11                 1.10                     -0.09
> tail(dataset[,c(1,6:7)])
           Date ドル円 1日変動幅(円) ドル円 9時-17時変動幅(円)
6301 2016-04-01                 0.50                      0.24
6304 2016-04-04                 0.48                      0.09
6305 2016-04-05                 1.00                      0.76
6306 2016-04-06                 0.41                     -0.02
6307 2016-04-07                 1.38                      1.16
6308 2016-04-08                 0.85                     -0.59
> tail(dataset[,c(1,2,5)])
           Date 東京市場 ドル・円 スポット 9時時点 東京市場 ドル・円 スポット 17時時点
6301 2016-04-01                                112.52                                 112.28
6304 2016-04-04                                111.68                                 111.59
6305 2016-04-05                                111.23                                 110.47
6306 2016-04-06                                110.39                                 110.41
6307 2016-04-07                                109.73                                 108.57
6308 2016-04-08                                108.48                                 109.07
Script
tmp<-read.table("clipboard",header=TRUE,sep="\t",stringsAsFactors=F,na.strings=c("NA","-","-"),check.names=FALSE)
tmp[,1]<-as.Date(tmp[,1])
buf<-na.omit(tmp)
dataset<-data.frame(buf[,1,drop=F],apply(buf[,-1,drop=F],2,as.numeric),check.names=FALSE)
dataset<-data.frame(dataset,dataset[,3]-dataset[,4],dataset[,2]-dataset[,5],check.names=FALSE)
colnames(dataset)[6:7]<-c("ドル円 1日変動幅(円)","ドル円 9時-17時変動幅(円)")
################
windowsFonts(Meiryo=windowsFont("Meiryo"))
head(dataset[,c(1,6:7)])
tail(dataset[,c(1,6:7)])
tail(dataset[,c(1,2,5)])
for(ddd in 6:7){
par(mfrow=c(2,1),family="Meiryo",mar=c(2,2,2,2))
if(ddd==6){nbreak<-seq(0,ceiling(max(dataset[,ddd])/0.2))*0.2}else{
nbreak<-seq(floor(min(dataset[,ddd])),ceiling(max(dataset[,ddd])),by=0.2)
}
h<-hist(dataset[,ddd],breaks=nbreak,plot=F)
h$density<-round(h$counts/sum(h$counts)*100,1)
title<-paste("東京市場 ドル円レート",head(dataset[,1],1),"-",tail(dataset[,1],1),sep="")
plot(h,freq=F,xlab=colnames(dataset)[ddd],ylab="%",main=title,labels=T)
plot(dataset[,1],dataset[,ddd],type="h",xlab=colnames(dataset)[1],ylab=colnames(dataset)[ddd],main=title)
}

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

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

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

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

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

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