Création d'une variable

Bonjour à tous , je suis débutant dans l'utilisation de R . Voilà j'ai ce fichier où chaque identifiant est vu à différentes date pour une visite médicale .

Ainsi je souhaiterais créer une variable "Consultation" telle que pour chaque identifiant la date la plus ancienne soit notée "visite 1", la deuxième plus ancienne "visite 2" et ainsi de suite pour tout les identifiants.

Je sais que c'est à travers une boucle mais c'est vraiment ardu et je souhaiterais votre aide.

Merci pour l'attention que vous porterez à ma requête.

Identification DatePassage

A 23/12/2011
A 13/04/2012
A 20/04/2012
A 22/10/2012
B 13/01/2012
B 20/01/2012
B 27/01/2012
B 03/02/2012
B 10/02/2012
B 17/02/2012
B 24/02/2012
B 07/03/2012
B 23/03/2012
C 01/01/2010
C 30/12/2011
C 04/01/2012
C 23/01/2012
C 27/01/2012
C 15/02/2012
D 22/02/2012
D 24/02/2012
D 27/02/2012
D 28/03/2012
D 10/04/2012
D 12/04/2012
E 18/09/2012
E 27/12/2012
E 14/01/2013
E 26/02/2013

Salut,

Une fois que tu as trié ta base avec la fonction order par id et date croissante, tu n'as plus qu'à faire:

Code:

---

paste("visite",unlist(tapply(rep(1,length(Identification)),Identification,cumsum)))

---

Pas besoin de boucle donc, l'astuce est d'utiliser cumsum sur chaque Id.

Merci pour le code qui m'a été fort utile .
Mais serait il possible de transformer la dernière visite de chaque "id" en "dernière visite"

Merci déjà pour l'aide considérable que vous m'apportez.

Of course!

Code:

---

1 2 3 4 5 6 7 8 9 10

#code idem à toute à l'heure en introduisant quelques notations sm<-unlist(tapply(rep(1,length(Identification)),Identification,cumsum)) visite<-paste("visite",sm)     #on change le nom de la dernière visite last<-sapply(tapply(rep(1,length(Identification)),Identification,cumsum),max) visite[last[match(Identification,names(last))]==sm]<-"dernière visite"

---

Merci pour ce coup de main .