expanda dinámicamente las columnas de un marco de datos usando cbind

Question

Me gustaría construir un marco de datos en un ciclo agregando una nueva columna cada vez usando cbind. Intento lo siguiente:

test <- NULL 
df <- data.frame(x=c(1,2,3,4)) 
test <- cbind(test, df) 

Esto genera un error:

Error in data.frame(..., check.names = FALSE) : arguments imply differing number of rows: 0, 4 

¿Cuál es la forma correcta de crear una instancia de una trama de datos en blanco en R y luego unirse a él en un bucle?

Gracias

Answer 1

Se necesitan crear test como una estructura que tiene el mismo número de filas de manera que cbind.data.frame no generará un error:

test <-data.frame(row.names=1:4) 
df <- data.frame(x=c(1,2,3,4)) 
test <- cbind(test, df) 

test 
    x 
1 1 
2 2 
3 3 
4 4 

Otros dos métodos:

> test <-data.frame(row.names=1:4) 
>  test[['x']] <-c(1,2,3,4) 
> test 
    x 
1 1 
2 2 
3 3 
4 4 


> test <-data.frame(row.names=1:4) 
>  test[1] <-list(x=c(1,2,3,4)) 
> test 
    x 
1 1 
2 2 
3 3 
4 4 

Answer 2

Como señaló Roman Luštrik, puede ser ineficiente usar cbind. Puede comenzar con la lista vacía y luego convertirlo a data.frame.

test <- list() 
# inner loop assigment 
test <- c(test,list(c(1:4))) 
# after loop 
test <- as.data.frame(test)