0

R パッケージにはquantmodがあります。また、財務データの要求があります。

getFinancials('GE')、

ここで、GE はティッカーです。

どうすれば大量の貸借対照表をダウンロードし (たとえば、2000 ティッカーのベクトルを持っています)、別のファイルで SQL データベースにエクスポートできるのでしょうか。

まあ、基本的には他の分析ソフトウェアで使用するために必要ですが、バランスシートの包括的なデータベースを見つけるのは大変な作業のようです. 私が見る唯一のオプションは、quantmod を介して行うことです。

基本的なダウンロードと表示は次のようになります。

library(quantmod)
getFinancials('GE')
viewFinancials(GE.f)
4

1 に答える 1

0

このようにできます。

require(quantmod)
setwd("C:/Users/your_path_here/downloads")
stocks <- c("AXP","BA","CAT","CSCO","CVX","DD","DIS","GE","GS","HD","IBM","INTC","JNJ","JPM","KO","MCD","MMM","MRK","MSFT","NKE","PFE","PG","T","TRV","UNH","UTX","V","VZ","WMT","XOM")

# 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=""))
        write.csv(temp$IS$A,paste(stocks[i],"_Income_Statement(Quarterly).csv",sep=""))
        write.csv(temp$BS$A,paste(stocks[i],"_Balance_Sheet(Quaterly).csv",sep=""))
        write.csv(temp$CF$A,paste(stocks[i],"_Cash_Flow(Quaterly).csv",sep=""))
}
于 2016-03-17T11:57:22.407 に答える