R：将 xts 系列从多个文件加载到单个块中

Question

我有以下 R 代码来从多个文件加载 xts 时间序列并将它们合并到单个 xts 矩阵中：

load.files = function(dates, filenames) {
  for( i in 1:length(dates) ) {
  # load and merge each xts block
  ts.set = load.single.file(dates[i], filenames[i])
  if( i == 1 )
    ts.all = ts.set
  else
    ts.all = rbind(ts.all, ts.set)
}

return(ts.all)

有没有办法

1. 避免初始化第一个 ts.set 所需的 if/else 语句？
2. 完全避免 for 循环吗？

Answer 1

我经常使用这样的构造，它避免了显式的循环构造。

该策略是首先将文件读入 data.frames 列表，然后将该列表的元素rbind 一起放入单个 data.frame 中。您大概可以根据您的情况采用相同的逻辑。

filenames <- c("a.csv", "b.csv", "c.csv")
l <- lapply(filenames, read.csv)
do.call("rbind", l)