有办法提取出过去10个历史时期的数据吗?到目前为止,我正在通过这个代码获得5份历史性季度报告和4份历史年度报告。
请帮帮我。
library(quantmod)
getFin('AAPL') # returns AAPL.f to "env"
viewFin(AAPL.f, "IS", "Q") # Quarterly Income Statement
viewFin(AAPL.f, "CF", "A") # Annual Cash Flows发布于 2016-11-08 20:00:47
您可以使用这个,但我认为限制是4年的历史数据。
require(quantmod)
setwd("C:/Users/your_path_here/Desktop")
stocks <- c("AAVL",
"ACAD",
"ACHN")
# equityList <- read.csv("EquityList.csv", header = FALSE, stringsAsFactors = FALSE)
# names(equityList) <- c ("Ticker")
for (i in 1 : length(stocks)) {
temp<-getFinancials(stocks[i],src="google",auto.assign=FALSE)
write.csv(temp$IS$A,paste(stocks[i],"_Income_Statement(Annual).csv",sep=""))
write.csv(temp$BS$A,paste(stocks[i],"_Balance_Sheet(Annual).csv",sep=""))
write.csv(temp$CF$A,paste(stocks[i],"_Cash_Flow(Annual).csv",sep=""))
}https://stackoverflow.com/questions/40145493
复制相似问题