thr3ads.net - R help - [R] appending similar data frames? [Dec 2001]

If this information is useful, please help other people find it:
Share via:

Michael A. Miller

2001-Dec-03 19:35 UTC

[R] appending similar data frames?

Dear R gang,

Can anyone help me sort out how to append one data frame to
another while adding a factor to distinguish which was the
original frame?

For example, I have two frames, x and y
> x  exp size
1   a   10
2   b    9
3   c   10
4   d   12
5   e   11
 > y   exp size
1   a   13
2   b   15
3   c   12
4   d   20
5   e   15

and I'd like to create a new frame that looks like

   exp size set
1    a   10   x
2    b    9   x
3    c   10   x
4    d   12   x
5    e   11   x
6    a   13   y
7    b   15   y
8    c   12   y
9    d   20   y
10   e   15   y

I know that I can do something like
> new.frame <- data.frame(c(as.vector(x$exp), as.vector(y$exp)))
> new.frame$size <- c(as.vector(x$size), as.vector(y$size))
> new.frame$set <- c(rep('x',times=length(x$exp)),
rep('y',times=length(y$exp)))
> names(new.frame) <- c('exp','size','set')
Is there any generalized code out there that will do this sort of
thing for more complex data frames (still with the same structure
though)?  Or is there a simpler R idiom that does the same thing?

Mike
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Thomas Lumley

2001-Dec-03 19:41 UTC

head link

[R] appending similar data frames?

On 3 Dec 2001, Michael A. Miller wrote:
> Dear R gang,
>
> Can anyone help me sort out how to append one data frame to
> another while adding a factor to distinguish which was the
> original frame?
>
> For example, I have two frames, x and y
>
> > x
>   exp size
> 1   a   10
> 2   b    9
> 3   c   10
> 4   d   12
> 5   e   11
>
> > y
>   exp size
> 1   a   13
> 2   b   15
> 3   c   12
> 4   d   20
> 5   e   15
>
> and I'd like to create a new frame that looks like
>
>    exp size set
> 1    a   10   x
> 2    b    9   x
> 3    c   10   x
> 4    d   12   x
> 5    e   11   x
> 6    a   13   y
> 7    b   15   y
> 8    c   12   y
> 9    d   20   y
> 10   e   15   y
>
rbind(cbind(x,set=rep("x",NROW(x))),
      cbind(y,set=rep("y",NROW(x)))
      )

will do it.

	-thomas


-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Duncan Murdoch

2001-Dec-03 21:29 UTC

head link

[R] appending similar data frames?

On 03 Dec 2001 14:35:54 -0500, you wrote in message
<87adx06qqt.fsf at lumen.med.iupui.edu>:
>Dear R gang,
>
>Can anyone help me sort out how to append one data frame to
>another while adding a factor to distinguish which was the
>original frame?
As long as the names match exactly in the two original frames, you
should be able to do it using "rbind" and "cbind":

Specifically:

 rbind( cbind(x, 'x'), cbind(y, 'y') )

What the cbind's are doing is adding a column to the original
dataframes giving their name.  Then the rbind glues the two dataframes
together.

If the names don't match exactly, then you should rename things so
they do.

Duncan Murdoch
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Warnes, Gregory R

2001-Dec-03 22:24 UTC

head link

[R] appending similar data frames?

>  From: mmiller3 at iupui.edu [mailto:mmiller3 at iupui.edu] >
 >  Dear R gang,
 >  
 >  Can anyone help me sort out how to append one data frame to
 >  another while adding a factor to distinguish which was the
 >  original frame?
 >  

Here is the function that I wrote to accomplish this task.  It will appear
in the next version of the gregmisc library (due sometime January).

concat  <-  function(..., names=NULL)
  {
    tmp  <-  list(...)
    if(is.null(names)) names  <- names(tmp)
    if(is.null(names)) names  <- sapply( as.list(match.call()), deparse)[-1]

    if( any(
            sapply(tmp, is.matrix)
            |
            sapply(tmp, is.data.frame) ) )
      { 
        len  <-  sapply(tmp, function(x) c(dim(x),1)[1] )
        len[is.null(len)]  <-  1
        data <-  rbind( ... )
      }
    else
      {
        len  <- sapply(tmp,length)
        data  <-  unlist(tmp)
        
      }

    namelist  <- factor(rep(names, len), levels=names)
        
    return( data.frame( data, source=namelist) )
  }

You use it like:
> x  exp size
1   a   10
2   b    9
3   c   10
4   d   12
5   e   11> y  exp size
1   a   13
2   b   15
3   c   12
4   d   20
5   e   15> concat(x,y)   exp size source
1    a   10      x
2    b    9      x
3    c   10      x
4    d   12      x
5    e   11      x
6    a   13      y
7    b   15      y
8    c   12      y
9    d   20      y
10   e   15      y


LEGAL NOTICE
Unless expressly stated otherwise, this message is confidential and may be
privileged. It is intended for the addressee(s) only. Access to this E-mail by
anyone else is unauthorized. If you are not an addressee, any disclosure or
copying of the contents of this E-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an addressee,
please inform the sender immediately.
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Prof Brian Ripley

2001-Dec-03 22:41 UTC

head link

[R] appending similar data frames?

As S-PLUS has a function concat() which does something different (like c,
strips names) could you use a different name?

B

On Mon, 3 Dec 2001, Warnes, Gregory R wrote:
>  >  From: mmiller3 at iupui.edu [mailto:mmiller3 at iupui.edu]
>  >
>  >  Dear R gang,
>  >
>  >  Can anyone help me sort out how to append one data frame to
>  >  another while adding a factor to distinguish which was the
>  >  original frame?
>  >
>
> Here is the function that I wrote to accomplish this task.  It will appear
> in the next version of the gregmisc library (due sometime January).
>
> concat  <-  function(..., names=NULL)
>   {
>     tmp  <-  list(...)
>     if(is.null(names)) names  <- names(tmp)
>     if(is.null(names)) names  <- sapply( as.list(match.call()),
deparse)[-1]
>
>     if( any(
>             sapply(tmp, is.matrix)
>             |
>             sapply(tmp, is.data.frame) ) )
>       {
>         len  <-  sapply(tmp, function(x) c(dim(x),1)[1] )
>         len[is.null(len)]  <-  1
>         data <-  rbind( ... )
>       }
>     else
>       {
>         len  <- sapply(tmp,length)
>         data  <-  unlist(tmp)
>
>       }
>
>     namelist  <- factor(rep(names, len), levels=names)
>
>     return( data.frame( data, source=namelist) )
>   }
>
> You use it like:
>
> > x
>   exp size
> 1   a   10
> 2   b    9
> 3   c   10
> 4   d   12
> 5   e   11
> > y
>   exp size
> 1   a   13
> 2   b   15
> 3   c   12
> 4   d   20
> 5   e   15
> > concat(x,y)
>    exp size source
> 1    a   10      x
> 2    b    9      x
> 3    c   10      x
> 4    d   12      x
> 5    e   11      x
> 6    a   13      y
> 7    b   15      y
> 8    c   12      y
> 9    d   20      y
> 10   e   15      y
>
>
> LEGAL NOTICE
> Unless expressly stated otherwise, this message is confidential and may be
privileged. It is intended for the addressee(s) only. Access to this E-mail by
anyone else is unauthorized. If you are not an addressee, any disclosure or
copying of the contents of this E-mail or any action taken (or not taken) in
reliance on it is unauthorized and may be unlawful. If you are not an addressee,
please inform the sender immediately.
>
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
> r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
> Send "info", "help", or "[un]subscribe"
> (in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
>
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
>
-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272860 (secr)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Warnes, Gregory R

2001-Dec-04 17:28 UTC

head link

[R] appending similar data frames?

I wasn't aware of the S-plus function 'concat'.  I'll rename my
function
'combine' (unless someone else has a better suggestion).

-Greg


 >  -----Original Message-----
 >  From: Prof Brian Ripley [mailto:ripley at stats.ox.ac.uk]
 >  Sent: Monday, December 03, 2001 5:42 PM
 >  To: Warnes, Gregory R
 >  Cc: 'mmiller3 at iupui.edu'; r-help at stat.math.ethz.ch
 >  Subject: RE: [R] appending similar data frames?
 >  
 >  
 >  As S-PLUS has a function concat() which does something 
 >  different (like c,
 >  strips names) could you use a different name?
 >  
 >  B
 >  
 >  On Mon, 3 Dec 2001, Warnes, Gregory R wrote:
 >  
 >  >  >  From: mmiller3 at iupui.edu [mailto:mmiller3 at iupui.edu]
 >  >  >
 >  >  >  Dear R gang,
 >  >  >
 >  >  >  Can anyone help me sort out how to append one data frame to
 >  >  >  another while adding a factor to distinguish which was the
 >  >  >  original frame?
 >  >  >
 >  >
 >  > Here is the function that I wrote to accomplish this 
 >  task.  It will appear
 >  > in the next version of the gregmisc library (due sometime 
 >  January).
 >  >
 >  > concat  <-  function(..., names=NULL)
 >  >   {
 >  >     tmp  <-  list(...)
 >  >     if(is.null(names)) names  <- names(tmp)
 >  >     if(is.null(names)) names  <- sapply( 
 >  as.list(match.call()), deparse)[-1]
 >  >
 >  >     if( any(
 >  >             sapply(tmp, is.matrix)
 >  >             |
 >  >             sapply(tmp, is.data.frame) ) )
 >  >       {
 >  >         len  <-  sapply(tmp, function(x) c(dim(x),1)[1] )
 >  >         len[is.null(len)]  <-  1
 >  >         data <-  rbind( ... )
 >  >       }
 >  >     else
 >  >       {
 >  >         len  <- sapply(tmp,length)
 >  >         data  <-  unlist(tmp)
 >  >
 >  >       }
 >  >
 >  >     namelist  <- factor(rep(names, len), levels=names)
 >  >
 >  >     return( data.frame( data, source=namelist) )
 >  >   }
 >  >
 >  > You use it like:
 >  >
 >  > > x
 >  >   exp size
 >  > 1   a   10
 >  > 2   b    9
 >  > 3   c   10
 >  > 4   d   12
 >  > 5   e   11
 >  > > y
 >  >   exp size
 >  > 1   a   13
 >  > 2   b   15
 >  > 3   c   12
 >  > 4   d   20
 >  > 5   e   15
 >  > > concat(x,y)
 >  >    exp size source
 >  > 1    a   10      x
 >  > 2    b    9      x
 >  > 3    c   10      x
 >  > 4    d   12      x
 >  > 5    e   11      x
 >  > 6    a   13      y
 >  > 7    b   15      y
 >  > 8    c   12      y
 >  > 9    d   20      y
 >  > 10   e   15      y
 >  >
 >  >
 >  > LEGAL NOTICE
 >  > Unless expressly stated otherwise, this message is 
 >  confidential and may be privileged. It is intended for the 
 >  addressee(s) only. Access to this E-mail by anyone else is 
 >  unauthorized. If you are not an addressee, any disclosure 
 >  or copying of the contents of this E-mail or any action 
 >  taken (or not taken) in reliance on it is unauthorized and 
 >  may be unlawful. If you are not an addressee, please inform 
 >  the sender immediately.
 >  > 
 >  -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.
 >  -.-.-.-.-.-.-.-.-.-
 >  > r-help mailing list -- Read 
http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html> Send "info", "help", or "[un]subscribe"
> (in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
>_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.
_._>
-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272860 (secr)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.
-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.
_._
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Göran Broström

2001-Dec-05 09:37 UTC

head link

[R] rbind and data.frame

Version 1.3.1  (2001-08-31) (RH 7.2):
> dat <- data.frame(x = 1, y = 2)
> x <- matrix(0, ncol = 2, nrow = 2)
> x     [,1] [,2]
[1,]    0    0
[2,]    0    0> dat  x y
1 1 2> rbind(dat, x)  x y
1 1 2
2 0 0

I expected
> rbind(dat, x)  x y
1 1 2
2 0 0
3 0 0

Is my expectation wrong?

G?ran Brostr?m

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Maybe Matching Threads

Search for more seemingly similar threads

R help - Dec 2001 - appending similar data frames?

[R] appending similar data frames?

[R] appending similar data frames?

[R] appending similar data frames?

[R] appending similar data frames?

[R] appending similar data frames?

[R] appending similar data frames?

[R] rbind and data.frame

Maybe Matching Threads