Skip to main content
1 de 2
mpaladino
  • 6k
  • 9
  • 19

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)
mpaladino
  • 6k
  • 9
  • 19