在r中使用getFin時如何使用多個代碼？

Question

我希望能夠生成顯示精選財務報表行項目和財務報表比率（例如，啟示，運營支出，EBITDA，企業價值）的表格。 我想讓getFin接受一份代碼清單。

library(quantmod)
library(xts)

ticker <- c("MS", "GS", "CS")
ticker1 <- getSymbols(ticker)
getFin(ticker1) #env.class

income<-viewFin(ticker1, "IS","A") # annual income statement
balancesheet<-viewFin(ticker1,"BS","A") # annual balance sheet

但是，getFin僅將MS自動收錄器識別為MS.f，因此GS.f和CS.f不會添加到環境中。 這也可以防止將收入和資產負債表添加到環境中。

讓我知道如何解決這個問題。 謝謝您的幫助。

Answer 1

將數據加載到您創建的環境中，而不是全局環境中。 然后使用eapply循環遍歷環境中的所有對象，並在每個對象上調用viewFin 。

e <- new.env()
getFin(paste0(ticker,collapse=";"), env=e)
income <- eapply(e, viewFin, type="IS", period="A")
balancesheet <- eapply(e, viewFin, type="BS", period="A")

income和balancesheet income表將是ticker指定的每個對象的相關報表的列表。