Discussion :

[mathieu_r]

Bonjour,

J'ai un vecteur contenant des noms de communes.
Je souhaite enlever tous les accents aux noms.
Quelle est la façon la plus élégante de réaliser cela?

Merci!

[A. D.]

Bonjour,

Je ne connais pas de fonction R permettant d'enlever en une seule fois tous les mots contenant des accents quel que soit le type d'accent. Par contre, on peut utiliser la fonction "gsub" pour chaque type de lettre accentué, sur le principe suivant :

Code :

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

1
2
3
4
5
6
7
8
9
v<-c("carré","sèche","être","là")
 
v<-sub("é","e",v)
v
[1] "carre" "sèche" "être"  "là"   
 
v<-sub("à","a",v)
v
[1] "carre" "sèche" "être"  "la"

Du coup, si vous êtes amené à faire souvent ce genre de manip', cela peut valoir le coup de se créer une petite fonction "subAccent" par exemple, qui remplace toutes les lettres accentuées par leur équivalent non accentué.

Bonne continuation


Cordialement,

A.D.

[mathieu_r]

ok pour l'instant, j'utilise qqch du genre

Code :

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

sub(sub(sub

ce qui n'est pas très élégant.
La fonction est une bonne idée.

Merci!

[pitipoisson]

Bonjour,

Il y a peut-être encore plus direct, mais pour commencer, tu peux déjà travailler par voyelle, en recherchant en une seule ligne toutes les variantes accentuées :

Code :

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

1
2
3
4
> v <- c("carré", "sèche", "être", "là")

> gsub("[éèëê]", "e", v)
[1] "carre" "seche" "etre"  "là"

Il s'agit simplement d'utiliser des plages de caractères (entre []) dans le motif de l'expression régulière.

Et

Code :

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

gsub

permet de traiter en une fois toutes les occurrences du motif dans une même chaîne :

Code :

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

1
2
3
4
> sub("[éèëê]", "e", "créé")
[1] "creé"
> gsub("[éèëê]", "e", "créé")
[1] "cree"

[pitipoisson]

Re,

Il y a une fonction qui fait de la "traduction de caractères" :

Code :

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

1
2
3
> v <- c("carré", "sèche", "être", "là", "Ça")
> chartr("éèëêÉÈËÊàÀçÇ", "eeeeEEEEaAcC", v)
[1] "carre" "seche" "etre"  "la"    "Ca"