Discussion :

[MathR]

Bonjour, j'ai le tableau suivant:

ID        SEXE        AGE
Luc       M             18
Luc       M             18  
Luc       M             18
Carine   M             23
Carine   M             23
Jean     F             32
Jean     F             32 

Je souhaiterais avoir le data suivant:

NUMERO             SEXE           AGE

1                      M                 18
1                      M                 18
1                      M                  18
2                      F                   23
2                      F                   23
3                      M                   32
3                      M                   32

Merci à vous tous pour votre aide.

[Americano]

Bonjour voilà un code qui fait ce que tu cherches:

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
donnees <- read.csv("C:/.../.../mes_donnees.csv")
fix(donnees)
#On crée une nouvelle colonne vide
donnees$numero <- NA
for (i in 1:length(donnees$numero)){
  if (donnees$id[i] == "Luc")
    donnees$numero[i] = 1
  if (donnees$id[i] == "Carine")
    donnees$numero[i] = 2
  if (donnees$id[i] == "Jean")
    donnees$numero[i] = 3
}
#On affiche de nouveau le tableau avec la nouvelle colonne
donnees
#On supprime la colonne id
donnees <- subset( donnees, select = -id )
#on affiche le resultat
donnees

Voilà le résultat:

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
> donnees
      id sex age numero
1    Luc   M  18      1
2    Luc   M  18      1
3    Luc   M  18      1
4 Carine   F  23      2
5 Carine   F  23      2
6   Jean   M  32      3
7   Jean   M  32      3
> donnees <- subset( donnees, select = -id )
> donnees
  sex age numero
1   M  18      1
2   M  18      1
3   M  18      1
4   F  23      2
5   F  23      2
6   M  32      3
7   M  32      3
>

Voilà tu peux tester le code.

[MathR]

Le code marche mais si j'ai une centaine de prénoms, ça devient ardu mais merci quand même.

[Americano]

Bonjour,
Même si tu as une longue liste de noms, il faudrait d'abord coder, comme dans mon exemple, tu peux adapter le code en augmentant les conditions, le tout mis dans une boucle. Donc à partir de mon code en haut, tu mets d'autres conditions ...if...
Voilà

[ced]

Bonjour,

En passant par le package data.table, ça fonctionne sans la moindre boucle, quel que soit le nombre de personnes et quel que soit l'ordre de leur nom (et ça respecte leur ordre d'apparition dans le tableau, même si les lignes d'un même nom ne sont pas accolées) :

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
> dt <- data.table(ID = c("Luc", "Luc", "Luc", "Carine", "Carine", "Jean", "Jean"), SEXE = c("M", "M", "M", "M", "M", "F", "F"), AGE = c(18, 18, 18, 23, 23, 32, 32))
 
> dt
 
       ID SEXE AGE
1:    Luc    M  18
2:    Luc    M  18
3:    Luc    M  18
4: Carine    M  23
5: Carine    M  23
6:   Jean    F  32
7:   Jean    F  32
 
> dt[, NUMERO := seq_len(nrow(dt))]
> dt[, NUMERO := min(NUMERO), by = ID]
> dt[, NUMERO := rep(1:length(rle(dt$NUMERO)$lengths), rle(dt$NUMERO)$lengths)]
 
> dt
 
       ID SEXE AGE NUMERO
1:    Luc    M  18      1
2:    Luc    M  18      1
3:    Luc    M  18      1
4: Carine    M  23      2
5: Carine    M  23      2
6:   Jean    F  32      3
7:   Jean    F  32      3

Ca utilise également la fonction rle qui est bien pour ce genre de choses...

[Sengar]

Bonjour,

Je me permet d'intervenir même si vos codes marchent car les solutions proposées passent à côté du fond du problème, qui est bien plus basique.

Ce que MathR veut faire, c'est attribuer un identifiant numerique unique à chaque prénom.
Ca tombe bien, il existe déjà une classe R basique qui correspond à ca et que tout le monde connait : un facteur! (?factor)
Nul besoin de recoder factor, les developpeurs de R l'ont fait pour vous!

En une ligne :

Code :

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

donnees$numero<-as.numeric(as.factor(donnees$id))

Si l'ordre des identifiants t'importe, tout est déjà paramétré pour que tu puisses faire exactement ce que tu veux.
Pour avoir des identifiants dans l'ordre d'apparition des prénoms par exemple, si Luc est le premier à apparaitre:

Code :

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

donnees$numero<-as.numeric(relevel(factor(dt$ID),ref="Luc"))

[MathR]

merci meme si je reviens un peu tard

[MathR]

Merci pour vos réponses qui m'ont été vraiment utiles .