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