如何在循环中使用do.call和cbind与对象列表绑定？

Question

我使用do.call和cbind将几个xts对象组装成一个更通用的容器data 。 我的目标是实现一个循环，以直接通过向量中的对象名称添加对象。

这是原始的do.call ：

data <- do.call(cbind, c(eapply(e, Cl),

                           list(A),
                           list(B),
                           list(C),
                           list(D)
))

列表包含xts对象， data也是xts对象。

> str(A)
An ‘xts’ object on 2014-01-02/2015-05-25 containing:
  Data: num [1:360, 1] 100 98.9 98.5 98.4 98.7 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr "A"
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:  
 NULL

当我使用xts对象的名称定义一个向量时：

objects <- c(

  "A",
  "B",
  "C",
  "D"
)

然后尝试通过它们进行循环，R逻辑上将矢量作为字符处理，并且仅添加最后一个条目，这里为"D" 。

如果我告诉list使用as.xts将o作为xts对象处理，R返回一个错误，指出类字符对象上没有适用于as.xts的方法。 我的理解是， as.xts必须在像data.frame这样的多维上使用，在这里不合适。

for (o in objects){

  data <- do.call(cbind, c(eapply(e, Cl), list(as.xts(o))))

}

我不想用xts从头开始创建新的xts对象，那么如何分辨list o是对象而不是字符串？ 还是应该使用完全不同的方法？

Answer 1

还有mget - “多得”我承担。 因此，您可以执行以下操作：

do.call(cbind, mget(objects) )

这避免了必须逐步构建数据帧的需要，而这通常是一种用R进行工作的缓慢，低效的方式。

Answer 2

正如Nicola在注释部分中提到的， get命令通过按对象名称搜索对象来完成此任务。 这是一个分为两个步骤的解决方案：首先do.call cbind将对象列表附加在一起，然后第二个cbind将所有cbind附加到data 。

for (o in objects){

  s <- as.xts(get(o))
  temp <- do.call(cbind, c(list(s)))
  data <- cbind(data, temp)

}