Discussion :

[marou1991]

Bonjour, j'ai une table qui se présente comme ca.

par client j'ai un indicateur d'ouverture : 1 si ouverture et 0 sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
tab = data.frame( id = c(rep('Cli1', 8), rep('Cli2',12)) , ouverture =  c( 0,0,0,0,0,1,0,1,  rep(0,12)))

Je veux calculer par client combien d'émail pas ouvert après la dernière ouverture.

Dans mon exemple , cli1 c'est 5 ( puisque qu'il a ouvert le 6ème email) et cli2 c'est 12 puisqu'il a ouvert aucun email.

Merci de votre aide.

[mgdondon]

Bonjour,

Une proposition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
> tab$RepNo <- sequence(rle(as.vector(tab$id))$lengths)
> Ouv1 <- setNames(aggregate(RepNo ~ id, tab[which(tab$ouverture == 1),],FUN=min),c("id","Ouv1"))
> RepMax <- setNames(aggregate(RepNo ~ id, tab,FUN=max),c("id","RepMax"))
> resultat <- merge(Ouv1,RepMax,by="id",all=TRUE)
> resultat$NbNonOuv <- ifelse(!is.na(resultat$Ouv1),resultat$Ouv1-1,resultat$RepMax)
> resultat
    id Ouv1 RepMax NbNonOuv
1 Cli1    6      8        5
2 Cli2   NA     12       12

Cordialement,

[marou1991]

Bonjour,

Merci pour la proposition.