Discussion :

[Aide_sas]

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.

[Sengar]

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

Code :

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

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 :

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

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.