Объединение нескольких текстовых файлов в один с помощью R

Question

Я пытаюсь объединить несколько текстовых файлов в CSV и успешно сделал это, используя следующий код. У меня есть одно дополнительное требование, мне нужно добавить имя файла в отдельном столбце, указывающем, откуда пришли данные. Пожалуйста, предложите.

рм

(list=ls())
setwd("D:/Cersai Rejection Reasons/IT_Oct18-Jun19")
file_list <- list.files()
df <- data.frame(file_list)

library(plyr)   
library(dplyr)

files <- dir("D:/Cersai Rejection Reasons/IT_Oct18-Jun19", 
             full.names = TRUE)
df <- lapply(files, function(x) 
  read.table(x, sep = '\t', header = FALSE)) %>% 
  plyr::ldply() 
write.csv(df, file="D:/consolidatetext.csv")

Answer 1

library(dplyr)
df <- lapply(files, function(x) {
  df <- read.table(x, sep = '\t', header = FALSE, stringsAsFactors = FALSE)
  df$source <- x
  return(df)
}) %>%
  bind_rows()

write.csv(df, file="D:/consolidatetext.csv")