使用 R 获取特定日期的历史价格

【问题标题】：Getting historical price for specific dates using R使用 R 获取特定日期的历史价格
【发布时间】：2013-07-23 15:49:46
【问题描述】：

我正在尝试获取过去 4 个财政年度的股票价格，这是使用 R 的雅虎每个特定日期的收盘价。

以下是：

getFin("AAPL")
viewFin(AAPL.f, "IS", "A")
x <- viewFin(AAPL.f, "IS", "A")
y <- colnames(x)
getSymbols("AAPL")
AAPL[y]

但我发现我在使用 AAPL[y] 时无法获得价格，它什么也没给我。

有人可以帮帮我吗？谢谢！！

【问题讨论】：

【解决方案1】：

AAPL[y] 返回一个空的 xts 对象，因为 AAPL 在这些日期没有交易。您可以通过将AAPL 与包含y 日期的空xts 对象合并并使用na.locf 来获得上一次关闭。

请注意，如果fill 是一个函数，则该函数将在merge 返回之前应用于合并结果。这是一个方便的功能。

merge(AAPL, xts(,sort(as.Date(y))), fill=na.locf)[y,]

【讨论】：