0

我有一个 .csv 文件列表,我需要删除所有文件的前三行。有没有办法一次完成所有这些?

为名为“test”的文件单独执行的代码是:test<-test[-c(1:3),]

我想为我导入的文件列表运行上述行:filenames <- list.files(path = getwd())

处理完上述文件后,我想使用 cbind 制作单个文件。非常感谢您的帮助。

4

2 回答 2

2

您可以尝试关注,看看它是否有效。

result <- do.call(cbind, lapply( list.files(path = getwd()), function(n) read.csv(file=n , skip = 3) ))
于 2013-03-12T00:44:01.050 回答
1
csvlist <- lapply(csvnames, function(nam) read.csv( file=nam) )
do.call( cbind, lapply(csvlist, "[", -c(1:3)) )

你的问题暗示你有一个成功的输入策略,但你现在报告错误,所以你应该更好地描述你的文件。排除前三行可能会更好:

csvlist <- lapply(csvnames, function(nam) read.csv( file=nam, header=FALSE, skip=3) )
do.call( cbind, csvlist )  # no longer need to remove since skip=3 did that.

你确定你不想rbind代替cbind吗?

于 2013-03-12T00:33:34.080 回答