如何在R中进行子集化时动态更改列表名称

Question

我有一些上市公司＆＃39;已在全球环境中加载的具有类似结构的列表中的财务报表。我想从每个列表中选择一个特定元素，并在一个单独的列中选择rbind。

为此我首先在矩阵中存储了列表的名称，然后我使用$运算符动态选择每个实体，同时使用for循环改变列表的名称。

示例数据集：

library(quantmod)
cname <- as.matrix(data.frame(com = c('MCK','CERN','IMS','MDRX','HURN')))
for( i in 1:nrow(cname)){
  sm <- cname[i,1]
  getFinancials(Symbol=sm, src="google")
}

我想从每个公司财务报表中获取总收入数据。为此，我正在做以下事情：

# total revenue 
tr0 <- NULL
for(i in 1:nrow(cname)){
  sm <- cname[i,1]
  com.rev <- paste(sm,'.f$IS$A',sep = '')
  tr <- com.rev["Total Revenue",]
  tr0 <- rbind(tr0,tr)
}

这样做时，我收到以下错误：

错误

  

com.rev中的错误[＆＃34;总收入＆＃34;，]：维数不正确