[R] Countvariable for id by date

[Gabor Grothendieck]

Try this:

Lines <- "id;dg1;dg2;date;
1;F28;;1997-11-04;
1;F20;F702;1998-11-09;
1;F20;;1997-12-03;
1;F208;;2001-03-18;
2;F32;;1999-03-07;
2;F29;F32;2000-01-06;
2;F32;;2003-07-05;
2;F323;F2800;2000-02-05;
"

# replace textConnection(Lines) with actual file name
DF <- read.csv2(textConnection(Lines), as.is = TRUE,
 colClasses = list("numeric", "character", "character", "Date", NULL))

rk <- function(x, pat) {
  z <- regexpr(pat, x$dg1) > 0 | regexpr(pat, x$dg2) > 0
  rank(ifelse(z, x$date, NA), na.last = "keep")
}

DF$countF20 <- unlist(by(DF, DF$id, rk, pat = "^F20"))
DF$countF2129 <- unlist(by(DF, DF$id, rk, pat = "^F2[1-9]"))
DF




On 8/9/07, David Gyllenberg <david.gyllenberg at yahoo.com> wrote:
>    Best R-users,
>
>      Here's a  newbie question. I have tried to find an answer to this via help and the "ave(x,factor(),FUN=function(y)  rank (z,tie='first')"-function, but without success.
>
>      I have a dataframe  (~8000 observations, registerdata) with four columns: id, dg1, dg2 and date(YYYY-MM-DD)  of interest:
>
>      id;dg1;dg2;date;
>      1;F28;;1997-11-04;
>      1;F20;F702;1998-11-09;
>      1;F20;;1997-12-03;
>      1;F208;;2001-03-18;
>      2;F32;;1999-03-07;
>      2;F29;F32;2000-01-06;
>      2;F32;;2003-07-05;
>      2;F323;F2800;2000-02-05;
>      ...
>
>      I would  like o have two additional columns:
>      1. "countF20":  a "countvariable" that shows which in order (by date) the id has if it fulfils  the following logical expression: dg1 = F20* OR dg2 = F20*,
>      where *  means F201,F202... F2001,F2002...F20001,F20002...
>      2. "countF2129":  another "countvariable" that shows which in order (by date) the id has if it fulfils  the following logical expression: dg1 = F21*-F29* OR dg2 = F21*-F29*,
>      where F21*-F29*  means F21*, F22*...F29* and
>      where *  means F211,F212... F2101,F2102...F21001,F21002...
>
>      ... so the  dataframe would look like this, where 1 is the first observation for the id with  the right condition, 2 is the second etc.:
>
>      id;dg1;dg2;date;countF20;countF2129;
>      1;F28;;1997-11-04;;1;
>      1;F20;F702;1998-11-09;2;;
>      1;F20;;1997-12-03;1;;
>      1;F208;;2001-03-18;3;;
>      2;F32;;1999-03-07;;;
>      2;F29;F32;2000-01-06;;1;
>      2;F32;;2003-07-05;;;
>      2;F323;F2800;2000-02-05;;2;
>      ...
>
>      Do you know  a convenient way to create these kind of "countvariables"? Thank you in  advance!
>
>      / David (david.gyllenberg  at  yahoo.com
>
>
> ---------------------------------
> Park yourself in front of a world of choices in alternative vehicles.
>
>        [[alternative HTML version deleted]]
>
>
> ______________________________________________
> R-help at stat.math.ethz.ch 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.
>
>