獲取歷史價格，使用R

我試圖讓過去的4年財政年度的股票價格，這是收盤價從雅虎使用R.獲取歷史價格，使用R

每一個具體的日期下面的具體日期是：

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

但是我發現我在使用AAPL [y]時無法得到價格，它沒有給我任何東西。

有人能幫我一下嗎？謝謝！！

2013-07-23 qifengwu

AAPL[y]返回一個空的xts對象，因爲AAPL沒有在這些日期交易。您可以通過將AAPL與包含y日期的空xts對象合併，並使用na.locf來獲得前一個關閉。

請注意，如果fill是函數，則函數將在merge返回之前應用於合併結果。這是一個方便的功能。

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

2013-07-23 16:20:32

回答