J’ai une table ‘champs’ avec des caractères ‘sales’ que je souhaite remplacer par des caractères ‘propres’.
J’obtiens ce que je veux en procédant avec une boucle comme ci-dessous :
Code : Tout sélectionner
#table des correspondance de caracatères à remplacer
corres<-data.frame(sale=c('À','É','É','Ê','È','È','Ü','Ô'),
propre=c('À','É','É','È','È','È','Ü','Ô'))
n<-dim(corres)[1]
trim.champs<-function(string)
{
res=string
for (i in 1:n) {res=gsub(corres[i,'sale'],corres[i,'propre'],res,fixed=T)}
return(res)
}
# table propre
Champs<-data.frame(lapply(champs,trim.champs))
Cependant, je souhaiterais savoir s’il est possible d’optimiser le code en utilisant un apply et si oui, lequel ? Merci d’avance pour votre aide.