# [R] Count number of consecutive zeros by group

arun smartpink111 at yahoo.com
Thu Oct 31 14:20:25 CET 2013

```Hi,
May be this helps:
fun1 <- function(dat){
lst1 <- lapply(split(dat,dat\$ID),function(y){
rl <- rle(y\$x)
data.frame(ID=unique(y\$ID),MAXZero=max(rl\$lengths[rl\$values==0]))
})
do.call(rbind,lst1)
}

fun1(df)
#  ID MAXZero
#1  1       2
#2  2       2
#3  3       1

A.K.

On Thursday, October 31, 2013 7:22 AM, Carlos Nasher <carlos.nasher at googlemail.com> wrote:
Dear R-helpers,

I need to count the maximum number of consecutive zero values of a variable
in a dataframe by different groups. My dataframe looks like this:

ID <- c(1,1,1,2,2,3,3,3,3)
x <- c(1,0,0,0,0,1,1,0,1)
df <- data.frame(ID=ID,x=x)
rm(ID,x)

So I want to get the max number of consecutive zeros of variable x for each
ID. I found rle() to be helpful for this task; so I did:

FUN <- function(x) {
rles <- rle(x == 0)
}
consec <- lapply(split(df[,2],df[,1]), FUN)

consec is now an rle object containing lists für each ID that contain
\$lenghts: int as the counts for every consecutive number and \$values: logi
indicating if the consecutive numbers are zero or not.

Unfortunately I'm not very experienced with lists. Could you help me how to
extract the max number of consec zeros for each ID and return the result as
a dataframe containing ID and max number of consecutive zeros?

Different approaches are also welcome. Since the real dataframe is quite
large, a fast solution is appreciated.

Best regards,
Carlos

--
-----------------------------------------------------------------
Carlos Nasher
Buchenstr. 12
22299 Hamburg

tel:            +49 (0)40 67952962
mobil:        +49 (0)175 9386725
mail:          carlos.nasher at gmail.com

[[alternative HTML version deleted]]

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help