Fantastic! Thank you so much!!!!
On 13 March 2013 19:48, arun <smartpink...@yahoo.com> wrote:
> 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 <seali...@gmail.com>
> To: r-help@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 cant assign the numbers to the groups (the parameter "trip.id")...
> I
> would appreciate any help.
>
>
>
> Regards,
>
>
>
> Lilia
>
> [[alternative HTML version deleted]]
>
>
> ______________________________________________
> R-help@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.
>
>
[[alternative HTML version deleted]]
______________________________________________
R-help@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.
