Discussion :

[enicnath]

Bonjour,
Je cherche à créer un dictionnaire pour rendre plus rapide certaines affectations sous R, un peu comme sur d'autres langages (Python).
Voici un exemple :

Code :

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

1
2
3
DF=data.frame(X=c(1,4,6,3,1,1,5,2))
Dico=list(X=c(1,2,3,4,5),Y=c('A','Y','C','K','U'))
DF$Y <- Dico[Dico[['X']]==DF$X,'Y']

Ici, le data.frame DF contient une seule colonne : X.
Et j'essaie de créer la colonne Y en récupérant la valeur dans le dictionnaire Dico.
La variable X contient aussi une valeur (6) non présente dans le dictionnaire. Mon objectif est que le code retourne NA s'il ne trouve pas la valeur idoine.

Mais l'exécution de ce code génère une erreur non liée à cette valeur inconnue du dictionnaire, et qui provient du fait que la dimension de mon dictionnaire n'est pas égale à celle de ma table.

Quelqu'un connaitrait-il la méthode adéquate (sans passer par l'instruction ifelse(), qui n'est pas très élégante, et surtout lente sur de grands tableaux de données) ?

[Theta]

Je ne comprends pas trop ce que tu essayes de faire avec ta liste Dico. Pourquoi ne pas utiliser directement un vecteur ?:

Code :

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

1
2
3
DF=data.frame(X=c(1,4,6,3,1,1,5,2))
Y=c('A','Y','C','K','U')
DF$Y=Y[DF$X]

[enicnath]

Bonjour,
Une réponse tardive à ta question.

En fait, il faut considérer X comme un identifiant quelconque, et non comme un entier, et je veux affecter la variable Y selon cet identifiant.
C'est un cas plus général et c'est pourquoi je parlais de dictionnaire.

[A. D.]

Bonjour,

Voici une proposition à l'aide du package "dplyr" :

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
require(dplyr)
 
DF=data.frame(X=c(1,4,6,3,1,1,5,2))
Dico=data.frame(X=c(1,2,3,4,5),Y=c('A','Y','C','K','U')) # il faut que Dico soit au format "data.frame" et non "list"
 
Z <- full_join(DF, Dico, "X")
Z
 
    X    Y
1  1    A
2  4    K
3  6 <NA>
4  3    C
5  1    A
6  1    A
7  5    U
8  2    Y

Bonne continuation !


Cordialement,


A.D.

[tototode]

Bonjour,

la fonction match est très utile et assez puissante dans ce genre de cas, et il existe une fonction encore plus performante fmatch (librairie fastmatch) :

Code :

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

DF$Y <- Dico$Y[match(DF$X, Dico$X, nomatch = NA)]

cdlt

[enicnath]

Merci à vous !
C'est exactement ce que je recherchais.

La solution avec match(...) me séduit en particulier, parce qu'elle ne fait pas appel à un paquetage supplémentaire.
Sur un gros volume de données, ça accélère considérablement par rapport au ifelse(...) que j'utilisais auparavant.