Remplacer des caractères à l'aide de gsub, comment créer une fonction?

Je suis en train de remplacer des caractères dans un ensemble de données.cadre. J'ai une solution pour ce

> df <- data.frame(var1 = c("aabbcdefg", "aabbcdefg"))
> df
       var1
1 aabbcdefg
2 aabbcdefg
> df$var1 <- gsub("a", "h", df$var1)
> df$var1 <- gsub("b", "i", df$var1)
> df$var1 <- gsub("c", "j", df$var1)
> df$var1 <- gsub("d", "k", df$var1)
> df$var1 <- gsub("e", "l", df$var1)
> df$var1 <- gsub("f", "m", df$var1)
> df
       var1
1 hhiijklmg
2 hhiijklmg
> 

mais je voudrais éviter d'utiliser plusieurs gsub d'appels, il serait beaucoup plus agréable pour produire une fonction pour faire cela à la fois?

Toutes les idées ho procéder?

InformationsquelleAutor jrara | 2011-08-05