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

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

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

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

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

遺伝統計学の基礎―Rによる遺伝因子解析・遺伝子機能解析― | 山田 亮

Amazonで山田 亮の遺伝統計学の基礎―Rによる遺伝因子解析・遺伝子機能解析―。アマゾンならポイント還元本が多数。山田 亮作品ほか、お急ぎ便対象商品は当日お届けも可能。

www.amazon.co.jp

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

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

#パッケージのインストール
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言語ではじめるプログラミングとデータ分析 | 馬場 真哉

Amazonで馬場 真哉のR言語ではじめるプログラミングとデータ分析。アマゾンならポイント還元本が多数。馬場 真哉作品ほか、お急ぎ便対象商品は当日お届けも可能。

www.amazon.co.jp