Rで解析：香港証券取引所の情報を取得「StockChina」パッケージ

香港証券取引所の情報をリアルタイムに取得するパッケージです。需要があるか不明ですが、役に立つ方もいると思うので紹介します。なお、株式情報のデータはSina FinanceのAPIを利用し取得しているようです。

Sina Finance
http://finance.sina.com.cn/

パッケージバージョンは0.3.1。実行コマンドはR version 3.2.2で確認しています。

パッケージのインストール

下記、コマンドを実行してください。

#パッケージのインストール
install.packages("StockChina")
#windowsでインストール時にエラーが出る場合は下記を実行
#install.packages("https://cran.r-project.org/bin/windows/contrib/3.2/StockChina_0.3.1.zip",
#                 repos = NULL, method = "libcurl")

実行コマンド

詳細はコメント、パッケージのヘルプを確認してください。

#&#12521;&#12452;&#12502;&#12521;&#12522;&#12398;&#35501;&#12415;&#36796;&#12415;
library("StockChina")

#&#19978;&#28023;&#24066;&#22580;&#32207;&#21512;&#12398;&#24773;&#22577;&#12434;&#21462;&#24471;:indec.CN&#12467;&#12510;&#12531;&#12489;
#t,as.data.frame&#12467;&#12510;&#12531;&#12489;&#12391;&#12487;&#12540;&#12479;&#12434;data.frame&#12395;&#12377;&#12427;
t(as.data.frame(index.CN("sh"))
  [,1]
  index             "Shanghai Index"
  index.value       "2737.5996"
  change            "81.9387"
  change.percentage "3.09"
  volume.hand       "186673100"
  amount.10k        "18000681"
  
  #&#12473;&#12488;&#12483;&#12463;&#12467;&#12540;&#12489;&#12434;&#25351;&#23450;&#12375;&#12390;&#24773;&#22577;&#12434;&#21462;&#24471;:stock.CN&#12467;&#12510;&#12531;&#12489;
  #http://finance.sina.com.cn/&#12398;API&#12434;&#21033;&#29992;&#12375;&#12390;&#12356;&#12427;&#12424;&#12358;&#12391;&#12377;&#12290;
  #&#20013;&#29028;&#33021;&#28304;&#12398;&#24773;&#22577;
  #t,as.data.frame&#12467;&#12510;&#12531;&#12489;&#12391;&#12487;&#12540;&#12479;&#12434;data.frame&#12395;&#12377;&#12427;
  symbol <- "601898"
  t(as.data.frame(stock.CN(symbol)))
  [,1]          
  code         "601898"      
  open         "4.650"       
  prev.close   "4.670"       
  current      "4.810"       
  high         "4.850"       
  low          "4.640"       
  volume       "18714441"    
  amount       "89251785.000"
  bid.volume.1 "244033"      
  bid.price.1  "4.800"       
  bid.volume.2 "31100"       
  bid.price.2  "4.790"       
  bid.volume.3 "90531"       
  bid.price.3  "4.780"       
  bid.volume.4 "79300"       
  bid.price.4  "4.770"       
  bid.volume.5 "26700"       
  bid.price.5  "4.760"       
  ask.volume.1 "94200"       
  ask.price.1  "4.810"       
  ask.volume.2 "90700"       
  ask.price.2  "4.820"       
  ask.volume.3 "86990"       
  ask.price.3  "4.830"       
  ask.volume.4 "80816"       
  ask.price.4  "4.840"       
  ask.volume.5 "100750"      
  ask.price.5  "4.850"       
  date         "2016-01-29"  
  time         "15:00:00"  
  
  #&#35079;&#25968;&#25351;&#23450;&#12391;&#12365;&#12414;&#12377;
  #&#20013;&#29028;&#33021;&#28304;,&#24179;&#23433;&#37504;&#34892;&#12398;&#24773;&#22577;
  symbols <- c("601898", "000001")
  sapply(symbols, stock.CN)
  601898         000001        
  code         "601898"       "000001"      
  open         "4.650"        "9.74"        
  prev.close   "4.670"        "9.69"        
  current      "4.810"        "10.00"       
  high         "4.850"        "10.08"       
  low          "4.640"        "9.69"        
  volume       "18714441"     "54443576"    
  amount       "89251785.000" "540544459.55"
  bid.volume.1 "244033"       "218908"      
  bid.price.1  "4.800"        "9.99"        
  bid.volume.2 "31100"        "74700"       
  bid.price.2  "4.790"        "9.98"        
  bid.volume.3 "90531"        "47800"       
  bid.price.3  "4.780"        "9.97"        
  bid.volume.4 "79300"        "67500"       
  bid.price.4  "4.770"        "9.96"        
  bid.volume.5 "26700"        "112700"      
  bid.price.5  "4.760"        "9.95"        
  ask.volume.1 "94200"        "198074"      
  ask.price.1  "4.810"        "10.00"       
  ask.volume.2 "90700"        "146900"      
  ask.price.2  "4.820"        "10.01"       
  ask.volume.3 "86990"        "139225"      
  ask.price.3  "4.830"        "10.02"       
  ask.volume.4 "80816"        "148500"      
  ask.price.4  "4.840"        "10.03"       
  ask.volume.5 "100750"       "158200"      
  ask.price.5  "4.850"        "10.04"       
  date         "2016-01-29"   "2016-01-29"  
  time         "15:00:00"     "15:05:54"

少しでも、あなたの解析が楽になりますように！！