r - 如何在R中获取货币汇率

Question

是否有任何R包/函数可以实时获取汇率，例如来自谷歌财经？如果已经有东西的话，宁愿避免使用 RCurl 或其他解析器。

具体来说，给定“from”和“to”货币符号的向量，我想知道汇率。像这样的东西:

IdealFunction(c("CAD", "JPY", "USD"), c("USD", "USD", "EUR"))

Answer 1

您可以使用quantmod获取雅虎报价。 (我不确定 yahoo FX 报价有多延迟，或者更新频率如何。)

library(quantmod)
from <- c("CAD", "JPY", "USD")
to <- c("USD", "USD", "EUR")
getQuote(paste0(from, to, "=X"))
#                  Trade Time   Last Change % Change Open High Low Volume
#CADUSD=X 2014-11-01 08:23:00 0.8875    N/A      N/A  N/A  N/A N/A    N/A
#JPYUSD=X 2014-11-01 08:23:00 0.0089    N/A      N/A  N/A  N/A N/A    N/A
#USDEUR=X 2014-11-01 08:23:00 0.7985    N/A      N/A  N/A  N/A N/A    N/A

如果您注册了免费帐户，则可以使用 TFX 获取实时、毫秒级时间戳报价。 (请注意，您必须使用市场惯例；即美元/日元而不是日元/美元)

library(TFX)
pairs <- paste(to, from, sep="/")
QueryTrueFX(ConnectTrueFX(pairs, "validUser", "anytext"))
#   Symbol Bid.Price Ask.Price      High       Low               TimeStamp
#1 USD/CAD   1.12651   1.12665   1.12665   1.12651 2014-10-31 20:45:00.559
#2 USD/JPY 112.34600 112.35900 112.35900 112.34600 2014-10-31 20:45:00.134
#3 EUR/USD   1.25234   1.25253   1.25253   1.25234 2014-10-31 20:45:00.598

或者，如果您有盈透证券账户，则可以使用 IBrokers package ，或者我的twsInstrument package (基本上只是 IBrokers 函数的包装器)

library(twsInstrument)
getQuote(paste0(to, from), src="IB") # only works when market is open.