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

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

> 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, было бы намного лучше создать функцию, чтобы сделать это сразу?

любые идеи Хо перейти?

17
gsub r regex

3 ответов

вы можете создать from и to направления:

from <- c('a','b','c','d','e','f')
to <- c('h','i','j','k','l','m')

а потом vectorialize в gsub функция:

gsub2 <- function(pattern, replacement, x, ...) {
for(i in 1:length(pattern))
x <- gsub(pattern[i], replacement[i], x, ...)
x
}

что дает:

> df <- data.frame(var1 = c("aabbcdefg", "aabbcdefg"))
> df$var1 <- gsub2(from, to, df$var1)
> df
       var1
1 hhiijklmg
2 hhiijklmg
20

вы хотите chartr:

df$var1 <- chartr("abcdef", "hijklm", df$var1)
df
#        var1
# 1 hhiijklmg
# 2 hhiijklmg
32

Если вы не хотите использовать chartr, потому что замены могут быть более одного символа, то другой вариант-использовать gsubfn из пакета gsubfn (я знаю, что это не gsub, но это расширение на gsub). Вот один пример:

> library(gsubfn)
> tmp <- list(a='apple',b='banana',c='cherry')
> gsubfn('.', tmp, 'a.b.c.d')
[1] "apple.banana.cherry.d"

замена также может быть функцией, которая примет совпадение и вернет значение замены для этого совпадения.

10