3

我正在使用该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”）会更方便。我尝试使用paste0andgsub来获取像 "GE.f" 这样的字符串，它不起作用，因为 "GE.f" 不属于financials该类。

总而言之，我有点失落......

4

2 回答 2

6

如果你使用它会更容易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
于 2013-02-23T00:36:21.597 回答
4

另一种选择是在新环境中加载您的代码。

tickers <-  new.env()
s <- c("AAPL","GOOG","IBM","GS","AMZN","GE")
lapply(s, getFinancials,env=tickers)
sapply(ls(envir=tickers),
       function(x) {x <- get(x) ## get the varible name
                    x$IS$A["Operating Income", ] / x$IS$A["Total Revenue",]})

              AAPL.f     AMZN.f       GE.f    GOOG.f      GS.f     IBM.f
2012-09-29 0.3529596 0.01106510 0.11811969 0.2543099 0.2689852 0.2095745
2011-09-24 0.3121507 0.01792957 0.13753327 0.3068724 0.1676678 0.1964439
2010-09-25 0.2818704 0.04110630 0.09415548 0.3540466 0.2804621 0.1974867
2009-09-26 0.2736278 0.04606471 0.06387029 0.3514585 0.3837401 0.1776439

编辑

无需使用ls, get.... 只是方便eapply（感谢@GSee）将 FUN 应用于环境中的命名值并将结果作为列表返回

eapply(tickers, function(x) 
              x$IS$A["Operating Income", ] / x$IS$A["Total Revenue",])
于 2013-02-23T01:00:12.397 回答