fill matrix in loop with vectors of different length

Question

I have been struggling for a while with this issue in R:

let's say that I have a for loop which runs over 9 data files. In this loop, I extract a short vector from a longer vector. Easy.

After that,still during the loop, I want to fill a matrix with the freshly extracted short vector and save the matrix to a file. Not easy, because none of the short vectors have the same length. To avoid the problem, I tried to directly save (still in the loop) the vectors directly in a .csv file with write.table() and append=TRUE, but R appends all the 9 vectors in the same column, when I would like to have 9 columns. Does anything like by.column=TRUE exist?

One way or another, I only want to have my 9 short vectors in 9 columns in a data file. It looks to me that I am not too far with the second solution.

Has anyone an idea how to finally finish this little programm? I would greatly appreciate.

Thank you for your time Michel

can you not `cbind` your results at the end and write the file that way? — user1317221_G, Sep 28 '12 at 16:21
this [link](http://stackoverflow.com/a/7962286/1317221) provides a `cbind.fill` as the vectors are different lengths — user1317221_G, Sep 28 '12 at 16:22
Why don't you try posting the code you have right now. It will be easier for people to follow what you mean. — nograpes, Sep 28 '12 at 16:28
if you are looking to combine columns with different number of rows, there is a cbindX in gdata package that does that. — user1234440, Sep 28 '12 at 16:32

Josh O'Brien · Answer 1 · 2012-09-28T17:23:00.727

I'd suggest that you adjust your workflow slightly, doing something like this:

First collect all of the vectors in a single R list object.
Still within R, massage the list of vectors into a matrix or data.frame. (This will be easier once you have extracted all of the vectors, and know the length of the longest one.)
Only then write out the resultant table with a single call to write.table or write.csv.

Here's an example:

## Set up your for() loop or lapply() call so that it returns a list structure 
## like 'l'
l <- list(a=1:9, b=1:2, c=1:5)

## Make a matrix from the list, with shorter vectors filled out with ""s
n <- max(sapply(l, length))
ll <- lapply(l, function(X) {
    c(as.character(X), rep("", times = n - length(X)))
})
out <- do.call(cbind, ll)                 

## Then output it however you'd like. (Here are three options.)
# write.csv(out, file="summary.csv")
# write.csv(out, file="summary.csv", quote=FALSE)
# write.table(out, file="summary.txt", row.names=FALSE, quote=FALSE, sep="\t")

fill matrix in loop with vectors of different length

1 Answers1