2015年の日経平均株価 #日経平均 #アベノミクス #金融緩和

株価データ出所:株式会社日本経済新聞社
Result

#########原数値(円)#########
    データ日付     終値     始値     高値     安値
738 2015-01-05 17408.71 17325.68 17540.92 17219.22
739 2015-01-06 16883.19 17101.58 17111.36 16881.73
740 2015-01-07 16885.33 16808.26 16974.61 16808.26
741 2015-01-08 17167.10 17067.40 17243.71 17016.09
742 2015-01-09 17197.73 17318.74 17342.65 17129.53
743 2015-01-13 17087.71 16970.88 17087.71 16828.27

    データ日付     終値     始値     高値     安値
976 2015-12-22 18886.70 18927.86 18943.46 18824.65
977 2015-12-24 18789.69 19071.41 19071.41 18780.94
978 2015-12-25 18769.06 18823.91 18870.70 18744.44
979 2015-12-28 18873.35 18838.91 18922.90 18764.54
980 2015-12-29 18982.23 18843.39 18991.01 18783.36
981 2015-12-30 19033.71 19070.83 19113.18 19017.27

算術平均
    終値     始値     高値     安値 
19203.77 19203.30 19313.06 19091.38 

中央値
    終値     始値     高値     安値 
19404.69 19383.11 19528.28 19274.58 

範囲
         終値     始値     高値     安値
[1,] 16795.96 16808.26 16864.34 16592.57
[2,] 20868.03 20920.60 20952.71 20838.22

変動係数(%)
    終値     始値     高値     安値 
5.577834 5.565353 5.425954 5.700926 

大発会=1
    データ日付      終値      始値      高値      安値
738 2015-01-05 1.0000000 1.0000000 1.0000000 1.0000000
739 2015-01-06 0.9698128 0.9870654 0.9755110 0.9804004
740 2015-01-07 0.9699357 0.9701357 0.9677149 0.9761336
741 2015-01-08 0.9861213 0.9850926 0.9830562 0.9882033
742 2015-01-09 0.9878808 0.9995994 0.9886967 0.9947913
743 2015-01-13 0.9815610 0.9795217 0.9741627 0.9772957

    データ日付     終値     始値     高値     安値
976 2015-12-22 1.084899 1.092474 1.079958 1.093235
977 2015-12-24 1.079327 1.100760 1.087253 1.090696
978 2015-12-25 1.078142 1.086475 1.075810 1.088577
979 2015-12-28 1.084133 1.087340 1.078786 1.089744
980 2015-12-29 1.090387 1.087599 1.082669 1.090837
981 2015-12-30 1.093344 1.100726 1.089634 1.104421

標本標準偏差
    終値     始値     高値     安値 
1071.154 1068.731 1047.918 1088.385 




#########前営業日差(円)#########
    データ日付 前日差-終値 前日差-始値 前日差-高値 前日差-安値
739 2015-01-06     -525.52     -224.10     -429.56     -337.49
740 2015-01-07        2.14     -293.32     -136.75      -73.47
741 2015-01-08      281.77      259.14      269.10      207.83
742 2015-01-09       30.63      251.34       98.94      113.44
743 2015-01-13     -110.02     -347.86     -254.94     -301.26
744 2015-01-14     -291.75       -9.06      -50.99      -57.71

    データ日付 前日差-終値 前日差-始値 前日差-高値 前日差-安値
976 2015-12-22      -29.32       82.36      -36.37      173.52
977 2015-12-24      -97.01      143.55      127.95      -43.71
978 2015-12-25      -20.63     -247.50     -200.71      -36.50
979 2015-12-28      104.29       15.00       52.20       20.10
980 2015-12-29      108.88        4.48       68.11       18.82
981 2015-12-30       51.48      227.44      122.17      233.91

算術平均
前日差-終値 前日差-始値 前日差-高値 前日差-安値 
   6.687243    7.181687    6.470206    7.399383 

中央値
前日差-終値 前日差-始値 前日差-高値 前日差-安値 
      23.71       23.95        5.98       27.27 

範囲
     前日差-終値 前日差-始値 前日差-高値 前日差-安値
[1,]     -895.15     -903.39     -889.25     -937.03
[2,]     1343.43      786.18      807.95      772.16

標本標準偏差
前日差-終値 前日差-始値 前日差-高値 前日差-安値 
   248.8388    232.6592    197.8984    229.4260 
Script
library(ggplot2)
library(scales)
variance<-function(x){var(x)*(length(x)-1)/length(x)}
#Reference http://cse.naro.affrc.go.jp/takezawa/r-tips/r/59.html

for(ddd in 1:2){
if(ddd==1){cat("#########原数値(円)#########")}else{cat("#########前営業日差(円)#########")}  
cat("\n")
print(head(dataset[[ddd]]))
cat("\n")
print(tail(dataset[[ddd]]))
cat("\n算術平均\n")
print(apply(dataset[[ddd]][,-1],2,mean))
cat("\n中央値\n")
print(apply(dataset[[ddd]][,-1],2,median))
cat("\n範囲\n")
print(apply(dataset[[ddd]][,-1],2,range))
if(ddd==1){
  cat("\n変動係数(%)\n")
  print(sqrt(apply(dataset[[ddd]][,-1],2,variance))/apply(dataset[[ddd]][,-1],2,mean)*100)
  cat("\n大発会=1\n")
  temp<-cbind(データ日付=dataset[[ddd]][,1,drop=F],apply(dataset[[ddd]][,-1],2,function(x){x/head(x,1)}))  
  print(head(temp))
  cat("\n")
  print(tail(temp))
}
cat("\n標本標準偏差\n")
print(sqrt(apply(dataset[[ddd]][,-1],2,variance)))
if(ddd==1){
g<-ggplot(data=dataset[[ddd]],aes(x=dataset[[ddd]][,1],y=dataset[[ddd]][,2]))+geom_line(size=1)
g<-g+geom_smooth(data=dataset[[ddd]],aes(x=dataset[[ddd]][,1],y=dataset[[ddd]][,2]),method=loess,lwd=2,color="red")
}else{  
g<-ggplot(data=dataset[[ddd]],aes(x=dataset[[ddd]][,1],y=dataset[[ddd]][,2]))+geom_bar(stat="identity",position="identity",color="blue")  
}
g<-g+xlab("")+scale_y_continuous(labels=comma)+ylab(colnames(dataset[[ddd]])[2])
g<-g+scale_x_date(labels=date_format("%Y/%m/%d"))
g<-g+theme(axis.title.x=element_text(size=20,family="Meiryo")) 
g<-g+theme(axis.title.y=element_text(size=20,family="Meiryo")) 
g<-g+theme(axis.text.x=element_text(size=20,angle=0,family="Meiryo")) 
g<-g+theme(axis.text.y=element_text(size=20,angle=0,family="Meiryo")) 
print(g)
cat("\n\n\n\n")
}

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

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

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

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

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

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