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")