[R] create unique ID for each group

[arun]

H,
Sorry, a mistake:
dat1$UniqueID<-unlist(lapply(split(dat1,dat1$ID),function(x) with(x,as.character(interaction(ID,seq_len(nrow(x)),sep="_")))),use.names=FALSE)
dat1
 # ObsNumber   ID Weight UniqueID
#1         1 0001     12   0001_1
#2         2 0001     13   0001_2
#3         3 0001     14   0001_3
#4         4 0002     16   0002_1
#5         5 0002     17   0002_2

dat2$UniqueID<-unlist(lapply(split(dat2,dat2$ID),function(x) with(x,as.character(interaction(ID,seq_len(nrow(x)),sep="_")))),use.names=FALSE)
A.K.





----- Original Message -----
From: arun <smartpink111 at yahoo.com>
To: Ye Lin <yelin at lbl.gov>
Cc: R help <r-help at r-project.org>
Sent: Tuesday, May 7, 2013 2:10 PM
Subject: Re: [R] create unique ID for each group



Hi,

Try this:
dat1<- read.table(text="
ObsNumber     ID          Weight
     1                 0001         12
     2                 0001          13
     3                 0001           14
     4                  0002         16
      5                 0002         17
",sep="",header=TRUE,colClass=c("numeric","character","numeric"))
dat2<- read.table(text="
ID               Height
0001            3.2
0001             2.6
0001             3.2
0002             2.2
0002              2.6
",sep="",header=TRUE,colClass=c("character","numeric")) 
dat1$UniqueID<-with(dat1,as.character(interaction(ID,ObsNumber,sep="_")))
 dat2$UniqueID<-with(dat2,as.character(interaction(ID,rownames(dat2),sep="_")))
 dat2
#    ID Height UniqueID
#1 0001    3.2   0001_1
#2 0001    2.6   0001_2
#3 0001    3.2   0001_3
#4 0002    2.2   0002_4
#5 0002    2.6   0002_5
A.K.



----- Original Message -----
From: Ye Lin <yelin at lbl.gov>
To: R help <r-help at r-project.org>
Cc: 
Sent: Tuesday, May 7, 2013 1:54 PM
Subject: [R] create unique ID for each group

Hey All,

I have a dataset(dat1) like this:

ObsNumber     ID          Weight
     1                 0001         12
     2                 0001          13
     3                 0001           14
     4                  0002         16
      5                 0002         17

And another dataset(dat2) like this:

ID               Height
0001            3.2
0001             2.6
0001             3.2
0002             2.2
0002              2.6

I want to merge dat1 and dat2 based on "ID" in order, I know "match" only
returns the first match it finds. So I am thinking create unique ID col in
dat2 and dat2, then merge. But I dont know how to do that so it can be like
this:

dat1:

ObsNumber     ID          Weight  UniqueID
     1                 0001         12         0001_1
     2                 0001          13        0001_2
     3                 0001           14       0001_3
     4                  0002         16         0002_1
      5                 0002         17         0002_1

dat2:

ID               Height   UniqueID
0001            3.2          0001_1
0001             2.6         0001_2
0001             3.2         0001_3
0002             2.2         0002_1
0002              2.6        0002_2

Or if it is possible to merge dat1 and dat2 by matching "ID" but return the
match in order that would be great!

Thanks for your help!

    [[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.