导入 10 年的公司财务历史

Question

可以使用quantmod包加载财务数据，如损益表和资产负债表：

library(quantmod)
getFinancials("GOOG")
viewFinancials(GOOG.f, type='BS', period='A')

数据来自 Google Finance，不超过 2012 年。

在 R 中是否有一种有意义的方法来加载 10 年历史而不是 5 年？

编辑：

晨星似乎免费提供一些关键比率的 10 年数据。例如，在 Google 的情况下，直接 link 到 csv 将是 financials.morningstar.com/ajax/exportKR2CSV.html?&t=GOOG

我如何使用 read.csv() 函数在 R 中引导它，而不将股票名称硬编码到 link 中？下面的代码不正确，但我想是这样的：

ticker<-"GOOG"
read.csv(url(financials.morningstar.com/ajax/exportKR2CSV.html?&t=ticker))

有什么建议吗？

Answer 1

这将为您提供 10 年的数据（如果存在）。

stocks <- c("AXP", "BA", "CAT", "CSCO")

for (s in stocks) {
    names(urls) <- sprintf("http://financials.morningstar.com/ajax/exportKR2CSV.html?&t=%s", stocks)
    lst <- lapply(urls, read.csv, header = TRUE, stringsAsFactors = FALSE, skip = 2)
    lst1 <- lapply(lst, `[`, -12)
    write.csv(lst1, file = "C:/Users/your_path/Desktop/files/data.csv", row.names = FALSE, col.names = FALSE, na = "")
}

导入 10 年的公司财务历史

Importing 10-year history of company financials

r

quantmod