Import multiple data frames and combine them using "cbind"

An embedded and charset-unspecified text was scrubbed...
Name: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20121204/c6306d7f/attachment.pl>
try::

do.call(rbind, myfiles)

On Tue, Dec 4, 2012 at 9:37 PM, Gyanendra Pokharel
Hi group,

I imported  16 data frames using the function "list.files"

temp <- list.files(path="...........")
myfiles = lapply(temp, read.table,sep = "")

Now I have 16 data set imported in R window.

I want to combine them by row and tried some thing like (Here I am
considering only 20 columns)

for(i in 1:16){
    data<- cbind(myfiles[[i]][,1:20])

}

but it returns only first data set. I can combine them using

data <- cbind(myfiles[[1]][,1:20],myfiles[[2]][1:20],...............)

But  I want in a loop so that I can make the efficient code.

Any kind of suggestion will be great for me.

Thanks

        [[alternative HTML version deleted]]

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Jim Holtman
Data Munger Guru

What is the problem that you are trying to solve?
Tell me what you want to do, not how you want to do it.
An embedded and charset-unspecified text was scrubbed...
Name: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20121204/ed58371b/attachment.pl>

Hi group,

I imported  16 data frames using the function "list.files"

temp <- list.files(path="...........")
myfiles = lapply(temp, read.table,sep = "")

Now I have 16 data set imported in R window.

I want to combine them by row and tried some thing like (Here I am
considering only 20 columns)

for(i in 1:16){
   data<- cbind(myfiles[[i]][,1:20])

}

but it returns only first data set. I can combine them using

data <- cbind(myfiles[[1]][,1:20],myfiles[[2]][1:20],...............)

But  I want in a loop so that I can make the efficient code.
Slightly guessing what you want.
Toy example

set.seed(123)
mydf <- lapply(1:4,FUN=function(dname) data.frame(x=round(runif(10),2), y=round(runif(10),2),z=round(runif(10),2)))
mydf

do.call(cbind,lapply(mydf, function(df) df[,1:2]))

Berend
An embedded and charset-unspecified text was scrubbed...
Name: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20121205/3f9007bc/attachment.pl>