Lo puedes hacer el argumento `idcol = ` de la misma función `rbindlist` que estás usando. Asegúrate de que la lista `df_list` sea una lista nombrada y que los nombres de cada elemento sean el nombre del archivo. Cuando unes a los data.frame usa `idcol = "COL3"`. No puedo verificarlo al no tener los archivos, pero debería funcionar. lista1 <- list.files(pattern = "*.xls") df_list <- lapply(lista1, FUN = function(files) { read.table(files, header = TRUE, sep = "") }) names(df_list) <- lista1 library(data.table) tabla <- rbindlist(df_list, idcol = "COL3")