如何在viewFinancials中概括股票行情

Question

我正在嘗試將Cf （或IBM.f或APPL.f ）保存到通用變量（例如STOCK.F ）中，然后重用通用命令，例如viewFinancials(STOCK.F, type = c("BS"), period = freq, subset = NULL) 。

在以下代碼中，如果我要分析其他股票“ IBM”，則必須將代碼中的所有股票名稱“ C”更改為“ IBM”。 我正在嘗試尋找一種在開始時初始化通用變量（例如“股票”）的方法，因此我只能通過將變量“股票”的分配更改來分析不同的股票。

就像是：

Stock<-IBM;

viewFinancials(STOCK.F, type = c("BS"), period = freq, subset = NULL) 。

代碼是：

SP <- new.env()
library(quantmod)

tickers = c("C")
start.date = "2000-01-01"
end.date = "2017-01-16"

getSymbols(tickers, env = SP, src = "yahoo", 
    from = as.Date(start.date), to = as.Date(end.date))

stock.data = SP$C

getFinancials(tickers, env = SP, src = "google", auto.assign = TRUE) 

freq = "A" # for annual
viewFin(SP$C.f,type = c('IS'),period = freq,subset = NULL)

Answer 1

我想您正在尋找損益表，對。 試試下面的腳本。 這是三巨頭； 損益表，現金流量表和資產負債表。

require(quantmod)
setwd("C:/your_path/Desktop/")
stocks <- c("AXP","BA","CAT","CSCO","CVX","DD","DIS")

# 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=""))
}