使用gsub替换字符,如何创建函数?

时间:2011-08-05 09:15:50

标签: r regex 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调用,一次生成函数会更好吗?

任何想法都要继续吗?

3 个答案:

答案 0 :(得分:32)

您想要chartr

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

答案 1 :(得分:20)

您可以创建fromto向量:

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

然后矢量化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

答案 2 :(得分:10)

如果您不想使用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"

替换也可以是一个将匹配并返回该匹配的替换值的函数。