Discussion :

[rhipilaf]

Bonjour à tous,
Voilà donc ma première requête sur Developpez.net!

Donc, j'essaie de faire une fonction qui remplace les codes de pays ISO 2 Alpha 2 (ex: FR pour France) par le vrai nom du pays dans une même colonne (x).

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
 
 
#Le dataframe que je veux utiliser comme reference codeISO/Pays ressemble à ça:
countries <- data.frame(Code = c("AE", "AF", "AG", "AL", "AM"),
                        Country = c("Emirat Arabes Unis", "Afghanistan", "Antigua and Barbuda", "Albania", "Armenia"))
 
#Le dataframe dans lequel je veux remplacer les codes ressemble à ça:
orchids <- data.frame(Year = c(2001, 2002, 2003, 2004), 
                      Species = c("P. alba", "O. lutea", "O. lutea", "P. pseudacanthis"),
                      Importer = c("AF", "AL", "AF", "AM"))
 
#Voilà la fonction que j'ai créé
convcountriesISO <- function(x,ref)
  {x <- ref$Country[match(x,ref$Code)]}
 
#Et voilà comment je l'utilise:
convcountriesISO(x = orchids$Importer, ref = countries)

Mais ça ne fonctionne pas.. Rien, même pas un message d'errreur. La fonction tourne mais ça ne donne rien.
Auriez-vous une idée du pourquoi ?
Merci d'avance!
Théo Guillerminet

[tototode]

Bonjour,

ce n'est pas que ça ne fonctionne pas, c'est que tu ne forces pas le résultat de ta fonction à s'afficher.
Si tu fais

Code :

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

1
2
3
4
y <- convcountriesISO(x = orchids$Importer, ref = countries)
y
[1] Afghanistan Albania     Afghanistan Armenia    
Levels: Afghanistan Albania Antigua and Barbuda Armenia Emirat Arabes Unis

C'est bien la preuve que le code a fonctionné et qu'il s'est passé quelque chose.

Pour afficher un résultat en sortie de fonction i te faut rajouter une dernière ligne à ta fonction, tu as deux possibilités :
i) tu rappelles l'objet que tu viens de créer x;
ii) tu utilises la fonction return avec l'objet créé return(x).

cdlt

[rhipilaf]

Bonjour,

Merci pour votre réponse rapide!

Donc, oui, du coup, je vois que ça fonctionne mais ce que je souhaite, ce n'est pas un retour visuel! Mais le remplacement de la colonne 'Importer' du dataframe 'Orchids'.
Mais celle-ci n'est pas remplacée par le simple ' x <- '..

Cordialement,
Théo

[tototode]

re,

Code :

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

orchids$Importer <- convcountriesISO(x = orchids$Importer, ref = countries)

cdlt

[rhipilaf]

Re,
Yes! ça ça donne le bon résultat

Mais j'aimerais bien que la fonction fasse tout le boulot, qu'elle soit autonome sans que j'ai à référencer la colonne à remplacer alors qu'elle ne l'est déjà en x dans la fonction.
Je pensais que la "x <- " de la fonction ferait le boulot.

Merci pour votre aide!
Crdt,
Théo

[tototode]

Ça peut se faire directement mais déjà c'est plus compliqué a programmer et ensuite on perd la visibilité sur ce qui est fait sur ton jeu de données, c'est a dire que quand tu lances la fonction quelqu'un qui lirait ton code ne verrait pas qu'une colonne de ton jeu de données a été modifiée alors que quand tu fais <- alors la on voit que quelque chose s'est passé. L'autre limite c'est que ta fonction perd son universalité, elle ne s'applique que pour une colonne alors que la précédente peut fonctionner avec n'importe quel vecteur de données.

Code :

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

1
2
3
4
5
6
7
8
convcountriesISO <- function(x, ref)
  { 
  y <- deparse(substitute(x))
  z <- deparse(substitute(ref))
  env1 <- parent.frame()
  expr <- sprintf("%1$s <- %2$s$Country[match(%1$s,%2$s$Code)]", y, z)
  eval(parse(text = expr), envir = env1)
  }

cdlt