Недостаточно репутации, чтобы комментировать решение @ felipe-alvarenga, которое я на втором месте, но если файлы имеют одинаковую структуру, их можно дополнительно с удобством объединить с пакетом data.table
:
if (!require(data.table)) install.packages("data.table")
files <- list.files(path = 'my_directory', pattern = "*.txt")
DT <- rbindlist(lapply(files, function(x) cbind(fread(x), gsub(".txt", "", x))))