Assign the number to each group of multiple rows

Hi,
Try this:
data1<-data.frame(row=seq(1:10),beh=c(1,1,1,2,2,2,1,1,2,2))
data1<-within(data1, {trip.id<- cumsum(c(1,abs(diff(beh)))); Seq<-ave(row,trip.id,FUN=seq)})
?data1
#?? row beh Seq trip.id
#1??? 1?? 1?? 1?????? 1
#2??? 2?? 1?? 2?????? 1
#3??? 3?? 1?? 3?????? 1
#4??? 4?? 2?? 1?????? 2
#5??? 5?? 2?? 2?????? 2
#6??? 6?? 2?? 3?????? 2
#7??? 7?? 1?? 1?????? 3
#8??? 8?? 1?? 2?????? 3
#9??? 9?? 2?? 1?????? 4
#10? 10?? 2?? 2?????? 4
A.K.




----- Original Message -----
From: Lilia Dmitrieva <sealilia at gmail.com>
To: r-help at r-project.org
Cc: 
Sent: Wednesday, March 13, 2013 3:05 PM
Subject: [R] Assign the number to each group of multiple rows

Dear R users,



My data have repeating "beh" parameter : 1 or 2 - type of animal behavior
in subsequent locations. I need to assign unique number to each sequence of
locations.

My data is:

data=data.frame(row=seq(1:10),beh=c(1,1,1,2,2,2,1,1,2,2))
attach(data)
data

?  row beh

1? ? 1? ? 1

2? ? 2? ? 1

3? ? 3? ? 1

4? ? 4? ? 2

5? ? 5? ? 2

6? ? 6? ? 2

7? ? 7? ? 1

8? ? 8? ? 1

9? ? 9? ? 2

10? 10? ? 2


I need the output like this:

?  row beh seq? trip.id

1? ? 1? ? 1?  1? ? ?  1

2? ? 2? ? 1?  2? ? ?  1

3? ? 3? ? 1?  3? ? ?  1

4? ? 4? ? 2?  1? ? ?  2

5? ? 5? ? 2?  2? ? ?  2

6? ? 6? ? 2?  3? ? ?  2

7? ? 7? ? 1?  1? ? ?  3

8? ? 8? ? 1?  2? ? ?  3

9? ? 9? ? 2?  1? ? ?  4
10? 10?  2?  2? ? ? 4

I managed to assign sequence numbers inside of each group:

seq<-sequence(rle(beh)$length)

new<-cbind(data,seq)
new

?  row beh seq

1? ? 1? ? 1?  1

2? ? 2? ? 1?  2

3? ? 3? ? 1?  3

4? ? 4? ? 2?  1

5? ? 5? ? 2?  2

6? ? 6? ? 2?  3

7? ? 7? ? 1?  1

8? ? 8? ? 1?  2

9? ? 9? ? 2?  1

10? 10?  2?  2



but I can?t assign the numbers to the groups (the parameter "trip.id")...? I
would appreciate any help.



Regards,



Lilia

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