R 3.0.3 rbind多个csv文件

Question

R 3.0.3:我有40个csv文件,所有结构与我想要的结果相同,rbind因此我可以计算一列的平均值.

我搜索了:

我找不到答案.

有什么建议/指针吗？

Answer 1

列出扩展名为.csv的文件 - 这假定工作目录中唯一的.csv文件是您要读取的文件

files  <- list.files(pattern = '\\.csv')

将文件读入列表 - 是否有标题？

tables <- lapply(files, read.csv, header = TRUE)

rbind文件

combined.df <- do.call(rbind , tables)

然后,您可以找到平均值 - 查找哪些列是数字

s <- sapply(combined.df, is.numeric)

找到数值变量的平均值

colMeans(combined.df[s])

@ChetanArvindPatil；在读入阶段，您可以添加带有`tables <- lapply(files, function(x) cbind(read.csv(x, header = TRUE), id=x))`的文件名，或带有`的数字表 <- lapply(seq_along(files), function(x) cbind(read.csv(files[x], header = TRUE), id=x))`; 或者在列表中使用`data.table`，如上面的答案：`names(tables) <- files ; data.table::rbindlist(tables, idcol=TRUE)` (2认同)