如何将多个csv文件批量转换为txt文件？

Question

我想知道是否有一种方法可以将多个.csv文件快速转换为制表符分隔的格式，并同时删除列标题下的第一行（即第一次观察）？

Answer 1

一种选择是从工作目录中获取文件

files <- list.files(pattern = "\\.csv$", full.names = TRUE)

然后将文件读入list，删除第一行并写为.txt文件

lapply(files, function(x) {
             dat <- read.csv(x)[-1,]
             newname <- sub("\\.csv", ".txt", basename(x))
             write.table(dat, newname, sep="\t")
          })

    })