我使用下面的代码来获取外汇汇率
library(quantmod)
from <- c("CAD", "JPY", "USD")
to <- c("USD", "USD", "EUR")
getQuote(paste0(from, to, "=X")) 然而,这给了我当前的报价。如何获取特定日期的报价,比如2019-7-20?如果你可以根据我的代码进行修改,而不是寻找新的函数,那将是最好的。谢谢!
发布于 2020-02-28 00:42:54
我对这个问题的理解是,它在寻找以下几点。
getSymbols(paste0(from, to, "=X"), from = "2019-7-01", to = "2019-7-31")
#[1] "CADUSD=X" "JPYUSD=X" "USDEUR=X"
showSymbols()
#CADUSD=X JPYUSD=X USDEUR=X
# "yahoo" "yahoo" "yahoo"
head(`USDEUR=X`)
# USDEUR=X.Open USDEUR=X.High USDEUR=X.Low USDEUR=X.Close USDEUR=X.Volume USDEUR=X.Adjusted
#2019-07-01 0.88000 0.88451 0.87970 0.87990 0 0.87990
#2019-07-02 0.88597 0.88678 0.88331 0.88594 0 0.88594
#2019-07-03 0.88567 0.88728 0.88454 0.88550 0 0.88550
#2019-07-04 0.88590 0.88697 0.88510 0.88590 0 0.88590
#2019-07-05 0.88605 0.89220 0.88590 0.88607 0 0.88607
#2019-07-08 0.89064 0.89219 0.88990 0.89068 0 0.89068https://stackoverflow.com/questions/60437499
复制相似问题