我有以下 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)
有没有办法
- 避免使用初始化第一个 ts.set 所需的 if/else 语句？
- 完全避免 for 循环？
最佳答案
我经常使用这样的构造，它可以避免显式循环构造。
策略是首先将文件读入 data.frames 列表，然后将该列表的元素rbind 一起放入单个 data.frame 中。您大概可以根据您的情况采用相同的逻辑。
filenames <- c("a.csv", "b.csv", "c.csv")
l <- lapply(filenames, read.csv)
do.call("rbind", l)
关于R:将 xts 系列从多个文件加载到单个 block 中，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/8734438/