我有一个 .csv 文件列表,我需要删除所有文件的前三行。有没有办法一次完成所有这些?
为名为“test”的文件单独执行的代码是:test<-test[-c(1:3),]
我想为我导入的文件列表运行上述行:filenames <- list.files(path = getwd())
处理完上述文件后,我想使用 cbind 制作单个文件。非常感谢您的帮助。
我有一个 .csv 文件列表,我需要删除所有文件的前三行。有没有办法一次完成所有这些?
为名为“test”的文件单独执行的代码是:test<-test[-c(1:3),]
我想为我导入的文件列表运行上述行:filenames <- list.files(path = getwd())
处理完上述文件后,我想使用 cbind 制作单个文件。非常感谢您的帮助。
您可以尝试关注,看看它是否有效。
result <- do.call(cbind, lapply( list.files(path = getwd()), function(n) read.csv(file=n , skip = 3) ))
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
吗?