Add multiple columns using for loop in R and name with row entry -

i have searched , can't find answer this, though seems pretty basic r question.

i trying add multiple columns dataframe using loop. each column named row entry corresponds to.

here example:

    > test <- data.frame(cbind(x=1, y=1:10))     > test     x  y     1  1     1  2     1  3     1  4     1  5     1  6     1  7     1  8     1  9     1 10 

i tried this:

    y <- test$y     (i in y) { test$i <- rep(c(test$y [i]), times=length(test$y)) } 

which gave me this:

    > test     x  y      1  1 10     1  2 10     1  3 10     1  4 10     1  5 10     1  6 10     1  7 10     1  8 10     1  9 10     1 10 10 

however, wanted this:

    > test     x  y  1  2  3  4  5  6  7  8  9  10     1  1  1  2  3  4  5  6  7  8  9  10     1  2  1  2  3  4  5  6  7  8  9  10     1  3  1  2  3  4  5  6  7  8  9  10     1  4  1  2  3  4  5  6  7  8  9  10     1  5  1  2  3  4  5  6  7  8  9  10     1  6  1  2  3  4  5  6  7  8  9  10     1  7  1  2  3  4  5  6  7  8  9  10     1  8  1  2  3  4  5  6  7  8  9  10     1  9  1  2  3  4  5  6  7  8  9  10     1 10  1  2  3  4  5  6  7  8  9  10 

what doing wrong? i'd appreciate can give!

try

v1 <- seq_len(nrow(test)) #or #v1 <- test$y  cbind(test,setnames(data.frame(as.list(v1)), v1)) #   x  y 1 2 3 4 5 6 7 8 9 10 #1  1  1 1 2 3 4 5 6 7 8 9 10 #2  1  2 1 2 3 4 5 6 7 8 9 10 #3  1  3 1 2 3 4 5 6 7 8 9 10 #4  1  4 1 2 3 4 5 6 7 8 9 10 #5  1  5 1 2 3 4 5 6 7 8 9 10 #6  1  6 1 2 3 4 5 6 7 8 9 10 #7  1  7 1 2 3 4 5 6 7 8 9 10 #8  1  8 1 2 3 4 5 6 7 8 9 10 #9  1  9 1 2 3 4 5 6 7 8 9 10 #10 1 10 1 2 3 4 5 6 7 8 9 10 

or

test[paste(v1)] <- as.list(v1)