問(wèn)題

你想將向量中所有值為x的實(shí)例改為值y。

方案

# 創(chuàng)建一些樣本數(shù)據(jù)
str <- c("alpha", "beta", "gamma")
num <- c(1, 2, 3)

最簡(jiǎn)單的方法是使用plyr包里的revalue()或mapvalues()。

library(plyr)
revalue(str, c("beta"="two", "gamma"="three"))
#> [1] "alpha" "two"   "three"

mapvalues(str, from = c("beta", "gamma"), to = c("two", "three"))
#> [1] "alpha" "two"   "three"


# 對(duì)于數(shù)值型向量，revalue()沒(méi)作用，由于它使用一個(gè)命名了的向量，向量名一般是字符串而不是數(shù)值，但mapvalues()仍然有作用
mapvalues(num, from = c(2, 3), to = c(5, 6))
#> [1] 1 5 6

如果你不想依賴plyr，你可以使用R內(nèi)置函數(shù)。注意，這些方法將直接修改向量；也就是說(shuō)，你不需要把結(jié)果保存回變量。

# 把"beta" 替換為 "two"
str[str=="beta"] <- "two"
str
#> [1] "alpha" "two"   "gamma"

num[num==2] <- 5
num
#> [1] 1 5 3

也可以使用R的字符串的查找和替換函數(shù)來(lái)重新映射字符串向量的值。注意，alpha前后的^和$確保整個(gè)字符串匹配。沒(méi)有它們，如果有一個(gè)值為alphabet，它也會(huì)被匹配，替代onebet。

str <- c("alpha", "beta", "gamma")

sub("^alpha$", "one", str)
#> [1] "one"   "beta"  "gamma"

# 把所有列的 "a" 替代為 "X"
gsub("a", "X", str)
#> [1] "XlphX" "betX"  "gXmmX"

# gsub() 替代所有匹配的元素
# sub() 只替代每一個(gè)元素首先匹配到的內(nèi)容

另見(jiàn)

詳見(jiàn)重命名因子水平

原文鏈接：http://www.cookbook-r.com/Manipulating_data/Mapping_vector_values/