我正在使用 quantmod
包。我有一个这样的代码向量:
c("AAPL","GOOG","IBM","GS","AMZN","GE")
我想创建一个函数来计算股票的 EBIT 利润率(= 营业收入/总收入)。因此,对于给定的股票,我使用以下仅适用于 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”不属于财务
类。
总之,我有点迷茫……
最佳答案
如果你使用 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
关于R quantmod::getFinancials,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15034685/