通过 R 中的多个 .csv 文件循环代码

Question

我正在尝试通过 50 多个 csv 文件运行一大段代码，但我不知道该怎么做。所有 csv 文件都有相同的列，但行数不同。

到目前为止，我有以下内容：

filelist<- list.files(pattern = ".csv") #made a file list with all the .csv files in the directory

samples <- lapply(filelist, function(x) read.table(x, header=T)[,c(1,2,3,5)]) #read all the csv files (only the columns I'm interested in)

output <- samples %>%
      rename (orf = protein) %>%   
      filter (!grepl("sp", orf)) %>% 
      write.csv (paste0("new_", filename))
#I want to rename a column and remove all rows containing "sp" in that column, then export the dataframe as new_originalfilename.csv 

任何帮助将不胜感激！

Answer 1

您可以在同一个 lapply 循环中执行此操作。

library(dplyr)

lapply(filelist, function(x) {
  read.table(x, header=T) %>%
    select(1, 2, 3, 5) %>%
    rename(orf = protein) %>%   
    filter(!grepl("sp", orf)) %>%
    write.csv(paste0("new_", x), row.names = FALSE)
})