R 实时股价

我正试图用R做一些市场分析。有没有办法用一个软件包以很小的间隔获得实时股票报价？我熟悉quantmod并使用过getSymbols（）函数，但是，我能够挖掘的所有数据都是15分钟前的数据。谢谢。

我的

getQuote

为BATS和谷歌提供了“方法”，这两种方法几乎都是实时的

Sys.time()
#[1] "2014-11-19 14:27:48.727988 CST"
getQuote("SPY", src="google")
#              TradeTime   Last Change PctChg Exchange GoogleID
#SPY 2014-11-19 15:27:00 205.17  -0.38  -0.18 NYSEARCA   700145
getQuote("SPY", src="bats", what="bbo")
#  TradeTime BidSize BidPrice AskPrice AskSize   Last LastSize row.names
#1  15:27:24   15000   205.16   205.17     300 205.17      300       SPY

getQuote.bats

有几个选项可供选择数据的打印方式：

getQuote("SPY", src="bats", what="ladder")
#  SPDR S&P 500 ETF TR TR UNIT 
#  Time:    15:27:44 
#  Volume:  8779553 
#  Last: 300 @ 205.17
#
#+-------+--------+-------+
#|       | 205.21 | 16700 |
#+-------+--------+-------+
#|       | 205.2  | 21900 |
#+-------+--------+-------+
#|       | 205.19 | 17300 |
#+-------+--------+-------+
#|       | 205.18 | 5572  |
#+-------+--------+-------+
#|       | 205.17 |  300  |
#+-------+--------+-------+
#| 15000 | 205.16 |       |
#+-------+--------+-------+
#| 12100 | 205.15 |       |
#+-------+--------+-------+
#| 11300 | 205.14 |       |
#+-------+--------+-------+
#| 23900 | 205.13 |       |
#+-------+--------+-------+
#| 10600 | 205.12 |       |
#+-------+--------+-------+

getQuote("SPY", src="bats", what="depth")
#
#
# BidQty   BidPrice   AskPrice   AskQty 
#-------- ---------- ---------- --------
# 15000     205.16     205.17     300   
# 12100     205.15     205.18     5572  
# 11300     205.14     205.19    17300  
# 23900     205.13     205.2     21900  
# 10600     205.12     205.21    16700  

也有绘图方法

plot(getQuote("SPY", src="bats"))

---

而且，如果你还在阅读，软件包中还有一个闪亮的应用程序，你可以实时更新这些“绘图”。只需运行以下命令：

shinyBATS()

---

IB可能是实时股票数据的最佳选择。您不需要支付（*），但上次我查看时，您需要使用最低金额的真实货币开立帐户

有一个R包：

有一个关于获取实时数据的小插曲，但它最后一次更新是在2009年，所以我将使用一般小插曲：这是2014年9月的最后一次更新

---

（*：不完全正确：对于某些交易所，您需要支付额外的汇兑费。）

您是在询问获取历史数据的方法，还是最新价格？最近几分钟内的最新价格（15分钟太长）除了市场数据成本外，您还必须每月支付费用，除非您在佣金方面花费太多。有一个带有示例R代码的API。你必须开一个帐户，但它是免费的，你不必为它提供资金。我收到一条错误消息，试图遵循你的命令。我想这是因为我在Mac上运行？我通过R控制台进行了安装，但它给了我一个错误——“currentQuote这不再正常工作

plot(getQuote("SPY", src="bats", what="depth"))

shinyBATS()