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

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