Как удалить какой-то определенный столбец в нескольких файлах в R?

Question

все.Я хочу удалить некоторые определенные столбцы в нескольких файлах (CSV.).Например, у меня есть 50 файлов.И я хочу удалить столбцы a, b, c в каждом файле.

Дело в том, что я не знаю, как получить файлы.Сохраните изменения в каждом отдельном файле и оставьте исходное имя файла.

 library(tidyverse)
 # I want to delet some column which contain messy code
 # input a list of file
 df <- list.files(here("Data"),pattern=".csv",full.names = TRUE) %>%
   lapply(read_csv) %>%     #read csv
   lapply(subset,select = -c(a,b,c)) #To remove the messy code
   write.csv(df, file = here()) 
 # I want to save the change in the original files, but I don't know how to do it.

Answer 1

Считайте все файлы (если все файлы находятся в рабочем каталоге) прямо в список и обработайте его.

 files <- list.files() #if you want to read all the files in working directory
 lst2 <- lapply(files, function(x) read.table(x, header=TRUE))
 lapply(lst2,`[`,c(-a,-b,-c)