R:如何在多个csv中提取列,然后在一个文件夹中写入多个csv

我有一个包含多个csv的文件夹(文件夹1):“ x.csv”,“ y.csv”,“ z.csv” ... 我想提取每个文件的第3列,然后在新文件夹(文件夹2)中写入新的csv文件。因此,文件夹2必须包含“ x.csv”,“ y.csv”,“ z.csv” ...(但仅包含第三列)。

我尝试了这个:

dfiles <- list.files(pattern =".csv") #if you want to read all the files in working directory
lst2 <- lapply(dfiles, function(x) (read.csv(x, header=FALSE)[,3]))

但是我得到了这个错误:

 Error in `[.data.frame`(read.csv(x, header = FALSE), , 3) : 
  undefined columns selected 

而且,我不知道如何编写多个csv。

但是,如果我使用一个文件执行此操作,尽管输出位于同一文件夹中,它仍可以正常工作:

essai <-read.csv("x.csv", header = FALSE, sep = ",")[,3]
write.csv (essai, file = "x.csv")

任何帮助,将不胜感激。