Заменить символы с помощью gsub, как создать функцию?

Я пытаюсь заменить символы в data.frame. У меня есть решение для этого

> 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
> 

, но я бы хотел избежать использования нескольких вызовов gsub, было бы гораздо лучше создать функцию, которая бы это делала сразу?

Есть идеи, как продолжить?