Trouver l'unicité d'un identifiant par jour

Bonjour,

Mon but est de créer une colonne que je puisse rajouter à mon dataframe m'indiquant le nombre de fois où un identifiant est apparu par jour dans le but de créer une variable Unicité_du_client. J'ai utilisé une commande :

Code:

1
2
3
4
5
6
7
8
9
10
11
resultats <- data.frame(Jour=c("2018-07-08",
                               "2018-07-08",
                               "2018-07-08",
                               "2018-07-09",
                               "2018-07-09",
                               "2018-07-09",
                               "2018-07-09"),
                        ID=c(101,101,100,100,102,103,103),
                        row.names=c("Paul","Matthieu","Camille","Mireille","Capucine","Florian","Claire"))
 
resultats2<- resultats%>% group_by(Jour, ID) %>% summarise(nb_ID_jour=n())

Mon problème étant que ma colone nb_ID_Jour est de taille 5 ainsi je ne peux pas la rajouter à mon dataframe originel

Code:

1
2
3
4
5
6
7
8
9
# A tibble: 5 x 3
# Groups:   Jour [2]
  Jour          ID nb_ID_jour
  <fct>      <dbl>      <int>
1 2018-07-08   100          1
2 2018-07-08   101          2
3 2018-07-09   100          1
4 2018-07-09   102          1
5 2018-07-09   103          2

Auriez-vous une idée ? :D