remplacer chaque valeur d'une colonne par un id unique (de 1 à n)

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:

---

1 2 3 4 5 6 7

nom1 nom1 nom1 nom2 nom2 ...

---

je devrais avoir au final

Code:

---

1 2 3 4 5 6 7

1 1 1 2 2 ...

---

Comment accomplir cela?

Merci!

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

Code:

---

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!

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

Code:

---

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

---

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

Code:

---

1 2 3

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

---

Bonjour,

Citation:

---

Envoyé par dickoa

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

Code:

---

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:

---

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

---

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 :)

Super!