número incorrecto de subíndices en la matriz en R

Entonces, tengo una lista de marcos de datos, nombrados como"D1.txt", "D2.txt"................"D45.txt". Each of the file contains2 columnas y cada archivo tiene 1000 de filas`.

Básicamente estoy tratando de agregar una nueva columna a cada uno de los marcos de datos en la lista, por el siguiente código, pero muestra el error comoincorrect number of subscripts on matrix.

El código que estoy usando es,

L <- lapply(seq_along(L), function(i) { 
    L[[i]][, paste0('DF', i)] <-  1
    L[[i]] 
})

dóndeL es el nombre de la lista que contiene marcos de datos.

¿Por qué viene este error? ¡Gracias! :)

Editar: un ejemplo reproducible:

# Create dummy data
L <- replicate(5, expand.grid(1:10, 1:10)[sample(100, 10), ], simplify=FALSE)

# Add a column to each data.frame in L. 
# This will indicate presence of the pair when we merge.
L <- lapply(seq_along(L), function(i) { 
  L[[i]][, paste0('DF', i)] <-  1
  L[[i]] 
})

Respuestas a la pregunta(2)

Su respuesta a la pregunta