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

Question

我正试图过去4个财政年度＆＃39;股票价格，是雅虎使用R的每个特定日期的收盘价。

以下是：

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

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

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

Answer 1

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

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

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