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

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

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

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

＜おすすめのRに関する書籍です＞

Rによる計量政治学 | 浅野正彦, 矢内勇生

政治現象を統計的に検証するための入門書。各章に練習問題があり、独学でも進めやすい構成。

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

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

#パッケージのインストール
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")

実行コマンド

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

#ライブラリの読み込み
library("StockChina")

#上海市場総合の情報を取得:indec.CNコマンド
#t,as.data.frameコマンドでデータをdata.frameにする
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"

  #ストックコードを指定して情報を取得:stock.CNコマンド
  #http://finance.sina.com.cn/のAPIを利用しているようです。
  #中煤能源の情報
  #t,as.data.frameコマンドでデータをdata.frameにする
  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"  

  #複数指定できます
  #中煤能源,平安銀行の情報
  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"

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

＜おすすめのRに関する書籍です＞

Rで学ぶ統計的データ解析 (データサイエンス入門シリーズ)

データサイエンス入門シリーズの一冊。統計的な考え方の数理を押さえつつ、Rで手を動かして確認できる。

www.amazon.co.jp