12

我正在尝试使用以下代码导入和合并一组 csv 文件,但它似乎没有将 by=c("X","Y") 参数传递给合并函数。有关如何解决此问题的任何建议?谢谢

csvfiles <- list.files(path = ".", pattern='bbg_.*\\.csv$')
csvfiles <- paste("fx/",csvfiles,sep="")
csvfiles

my.df <- do.call("merge",list(lapply(csvfiles, read.csv, header = TRUE), by=c("date","fx_code")))
4

2 回答 2

31

merge不接受超过 2 个 data.frames,因此您不能使用以下方法向其传递更大的列表do.call

do.call(merge, list(iris, iris, iris))
#Error in fix.by(by.x, x) : 
#  'by' must specify one or more columns as numbers, names or logical

改用Reduce

Reduce(function(x, y) merge(x, y, by="Species"), list(iris, iris, iris))
#works
于 2014-03-25T19:57:57.503 回答
3

do.call接受所有参数的列表,所以尝试:

my.df <- do.call("merge",append(lapply(csvfiles, read.csv, header = TRUE), list(by=c("date","fx_code")) )
于 2014-03-25T19:50:34.223 回答