在循环中读取csv数据 f_ep=“/Users/kmein/Desktop/project/data/csv files/17SK_U1.csv” listtxt_ep

这是一种在过去对我来说非常有效的方法：

f_ep = "/Users/kmein/Desktop/project/data/csv-files/17SK_U1.csv"   

listtxt_ep<-list.files(path = ep_dir, pattern="*.csv", full.names = T) 

d_ep = data.frame()
for(f_ep in listtxt_ep){
  tmp_ep <- read.delim(f_ep,header = T,row.names = NULL,fill = T) %>% as.data.frame(stringsAsFactors = F)
  d_ep <- bind_rows(d_ep, tmp_ep) 
}

f_ep”/Users/kmein/Desktop/project/data/csv files/17SK_U1.csv“
listtxt_ep
f_ep  "/Users/kmein/Desktop/project/data/csv-files/17SK_U1.csv"   

listtxt_ep <- list.files(path = ep_dir, pattern = "*.csv", full.names = TRUE)

library(data.table)
df_list <- lapply(listtxt_ep, function(f) {
  # message("now reading file:", f) # optionally display status message
  out <- fread(f)
  out$source <- f
  return(out)
})

df <- rbindlist(df_list)