web-dev-qa-db-ja.com

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呼び出しの使用を避けたいのですが、これを一度に実行するための関数を生成する方がはるかに良いでしょうか？

続行するためのアイデアはありますか？

rregexgsub
18
jrara

fromおよびtoベクトルを作成できます。

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
20
Jean-Robert

chartrが欲しい：

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

置換が複数の文字である可能性があるためにチャーターを使用したくない場合、別のオプションは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
Greg Snow