Détecter des doublons

[Virginie Le Cras]

Bonjour,

J'ai un tableau de cette forme :

Code : Tout sélectionner

ID date
A 12/10/2015
A 12/10/2015
A 13/10/2015
B 11/10/2015
B 12/10/2015
B 13/10/2015

J'aimerais savoir si j'ai deux dates identiques pour un même identifiant, et obtenir un tableau de ce genre :

Code : Tout sélectionner

ID doublon
A TRUE
B FALSE

Mais je n'y parviens pas. Une aide serait la bienvenue !

Merci.

Virginie

[Vincent Guillemot]

Avec la fonction tapply, on peut arriver à un résultat qui est assez proche du résultat attendu :

Code : Tout sélectionner

x <- data.frame(ID = c("A", "A", "A", "B", "B", "B"),
                 date = c("12/10/2015", "12/10/2015", "13/10/2015", "11/10/2015", "12/10/2015", "13/10/2015"))
tapply(x$date, x$ID, FUN= function(x) any(duplicated(x)))


HTH,
V.

[Maxime Hervé]

Une idée différente (cela dit je préfère celle de Vincent) :

Code : Tout sélectionner

rowSums(table(x$ID,x$date)>1)>0

Maxime

[Virginie Le Cras]

Merci !
J'ai opté pour la méthode de Maxime, car celle de Vincent me renvoyait des NA à certains endroits, sans explication.

[Logez Maxime]

Bonjour,

une autre possibilité avec dplyr :

Code : Tout sélectionner

tab %>% group_by(ID) %>% summarise(doublon = n_distinct(date) < n() )
Source: local data frame [2 x 2]

      ID doublon
  (fctr)   (lgl)
1      A    TRUE
2      B   FALSE

Cordialement,
Maxime