如何在 viewFinancials 中概括一个股票代码答案

【问题标题】：how to generalize an ticker in viewFinancials如何在 viewFinancials 中概括一个股票代码
【发布时间】：2017-01-24 02:05:06
【问题描述】：

我正在尝试将C.f（或IBM.f，或APPL.f）保存到通用变量（例如STOCK.F）中，然后重用通用命令，例如 viewFinancials(STOCK.F, type = c("BS"), period = freq, subset = NULL).

在下面的代码中，如果我想分析不同的股票“IBM”，我必须将代码中的所有股票名称“C”更改为“IBM”。我试图找到一种方法来在开始时初始化一个通用变量（例如'Stock'），所以我只能通过更改对变量'Stock'的分配来分析不同的股票。

类似：

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)

【问题讨论】：

标签： r quantmod

【解决方案1】：

我猜您正在寻找损益表，对。试试下面的脚本。这是大3；损益表、现金流量表和资产负债表。

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

【讨论】：