R quantmod :: getFinancials

Question

我正在使用这个quantmod包.我有一个这样的代码矢量:

c("AAPL","GOOG","IBM","GS","AMZN","GE")

我想创建一个函数来计算股票的息税前利润率(=营业收入/总收入).因此,对于给定的股票,我使用以下只适用于GE的代码(如果在股票代码的末尾添加".f"):

require(quantmod)
getFinancials("GE",period="A")
ebit.margin <- function(stock.ticker.f){
   return(stock.ticker$IS$A["Operating Income",]/stock.ticker$IS$A["Total Revenue",])
}
ebit.margin("GE")

我想概括这个函数,以便使用该apply函数.有几个困难:

• 将该quantmod::getFinancial功能应用于股票代码时,股票的财务报表将保存在默认环境中.在viewFinancial已经然后被用来获取和打印财务报表.我需要一种方法来直接访问财务报表到函数中
• 函数的参数函数是一个类似"GE.f"的字符串,但直接输入股票代码("GE")会更方便.我试图使用paste0和gsub得到像"GE.f"这样的字符串它不起作用,因为"GE.f"不属于financials该类.

总结一下,我有点失落......

Answer 1

如果你使用它会更容易 auto.assign=FALSE

s <- c("AAPL","GOOG","IBM","GS","AMZN","GE")
fin <- lapply(s, getFinancials, auto.assign=FALSE)
names(fin) <- s
lapply(fin, function(x) x$IS$A["Operating Income", ] / x$IS$A["Total Revenue",])
#$AAPL
#2012-09-29 2011-09-24 2010-09-25 2009-09-26 
# 0.3529596  0.3121507  0.2818704  0.2736278 
#
#$GOOG
#2012-12-31 2011-12-31 2010-12-31 2009-12-31 
# 0.2543099  0.3068724  0.3540466  0.3514585 
#
#$IBM
#2012-12-31 2011-12-31 2010-12-31 2009-12-31 
# 0.2095745  0.1964439  0.1974867  0.1776439 
#
#$GS
#2012-12-31 2011-12-31 2010-12-31 2009-12-31 
#0.2689852  0.1676678  0.2804621  0.3837401 
#
#$AMZN
#2012-12-31 2011-12-31 2010-12-31 2009-12-31 
#0.01106510 0.01792957 0.04110630 0.04606471 
#
#$GE
#2012-12-31 2011-12-31 2010-12-31 2009-12-31 
#0.11811969 0.13753327 0.09415548 0.06387029