Discussion :

[mathieu_r]

Bonjour,

J'ai une table dont une colonne prend des noms

Un utilisateur souhaite que je confidentialise les valeurs de cette colonne en remplaçant chaque nom par un identifiant unique, par exemple un entier.

Ainsi, de

Code :

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

1
2
3
4
5
6
7
 
nom1
nom1
nom1
nom2
nom2
...

je devrais avoir au final

Code :

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

1
2
3
4
5
6
7
 
1
1
1
2
2
...

Comment accomplir cela?

Merci!

[mathieu_r]

J'ai une méthode qui me semble peu élégante pour le faire mais bon...

Code :

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

1
2
3
4
5
 
noms<-unique(data$nom)
seq<-seq(1,length(noms))
df<-data.frame(NOM=noms,id=seq)
merge<-merge(data,seq,by.x="nom",by.y="nom")

Y a-t-il plus élégant?

Aussi, je voulais savoir si lors de l'exécution de la fonction merge, on était obligés de spécifier les noms de colonnes lorsque ces dernières portent les mêmes noms dans les data frames?

Merci!

[dickoa]

Salut
Cette solution suppose que la variable nom est un factor (et pas de classe character), sinon tu peux faire avant :

Code :

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

1
2
data$nom <- factor(data$nom)
# ou data$nom <- as.factor(data$nom)

Une fois cette étape franchis, tu peux essayer voir :

Code :

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

1
2
3
noms<-unique(data$nom)
n <- length(unique(data$nom))
data$nom <- factor(data$nom, labels = 1:n)

[pitipoisson]

Bonjour,

Salut
Cette solution suppose que la variable nom est un factor (et pas de classe character), sinon tu peux faire avant :

Code :

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

1
2
data$nom <- factor(data$nom)
# ou data$nom <- as.factor(data$nom)

...

C'est la bonne piste, mais on peut faire plus simple sur la suite :

Code :

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

data$anonyme <- as.numeric(data$nom)

[dickoa]

J'avoue qu'elle est beaucoup plus élégante et simple......Duhhhhhh j'y ai pas pensé du tout !!!
Si on faisait du R golf tu m'aurais mis à l'amende

[mathieu_r]

Super!