Transformer des lignes en colonnes

Bonjour, je souhaiterai regrouper par colonnes toutes les lignes référant au même individu. Ce dernier peut-être identifié par plusieurs codes. J'ai en entrée tous les codes référant à une même personne 2 à 2.Ma problématique est assez difficile à expliquer, c'est pourquoi ci dessous apparait un petit exemple.

Par exemple :
L'individu xy est identifié par les codes 1,2,3 et 5. 1 renvoie à xy tout comme 2, 3 et 5. En fait j'ai des redondances de codes individus ...
L'individu zt est identifié par les codes 4 et 6
L'individu
Code 1 - Code 2
1 2
2 3
2 5
4 6
7 8
8 9

Je souhaiterai donc obtenir :
Code 1 - Code 2 - Code 3 - Code 4
1 2 3 5
4 6
7 8 9

Merci de votre aide.

Salut,
En partant de tes données j'ai bricolé ce bout de code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

code1<-c(1,2,2,4,7,8) code2<-c(2,3,5,6,8,9)   #sauvegarde puisqu'on va ecraser dans le code codea<-code1 codeb<-code2   i=2 individus<-list() individus[[1]]<-"initialisation" while(!is.na(individus[[i-1]])){   individus[[i]]<-codea[1] for(j in 1:max(length(unique(codea)),length(unique(codeb)))){ individus[[i]]<-c(individus[[i]],codeb[codea %in% individus[[i]]]) individus[[i]]<-c(individus[[i]],codea[codeb %in% individus[[i]]]) } individus[[i]]<-unique(individus[[i]]) codea<-codea[!codeb %in% individus[[i]]] codeb<-codeb[!codeb %in% individus[[i]]] i=i+1   }   individus<-individus[-1] n<-length(individus) individus<-individus[-n] individus

---

Donne:

Code:

---

1 2 3 4 5 6 7 8 9 10

> individus [[1]] [1] 1 2 3 5   [[2]] [1] 4 6   [[3]] [1] 7 8 9

---

Ca devrait marcher quelque soit le nombre d'individus.
La vitesse de l'algorythme est surement améliorable.