查找并替换R中的整个值

Question

我正在寻找一种方法来使用R中的查找和替换功能来替换字符串的整个值，而不仅仅是字符串的匹配部分。我有一个包含很多（很长）名字的数据集，我正在寻找一种有效的方式来查找和更改它们的值。

所以，举例来说，我想这整个字符串

string <- "Generally.speaking..do.you.prefer.to.try.out.new.experiences.like.trying.things.and.meeting.new.people..or.do.you.prefer.familiar.situations.and.faces." 

改变

"exp" 

与此代码

string <- gsub("experiences", "exp", string) 

然而，这导致代以 “EXP”只有与“体验”相匹配的字符串部分，并且保留了长名称的其余部分（粗体字母f或清晰度）：

“Overall.speaking..do.you.prefer.to.try.out.new。 EXP ..like.trying.things.and.meeting.new.people..or.do.you.prefer.familiar.situations.and.faces。”

在这种情况下，因为字符串包含“体验”，它应该被替换为“exp”

有没有办法告诉gsub或其他函数来替换整个值？我看了很多教程，它看起来像函数只能在字符串或整个值，但不在两者之间

Answer 1

您可以使用gsub如下：

gsub(".*experiences.*", "exp", string, perl=TRUE) 
# As @rawr notes, set perl=TRUE for improved efficiency 

此正则表达式匹配任何字符0次或更多次（即.*），其次是“经验”的字符串，后跟任意字符0以上倍。

在这种情况下，您仍然将整个匹配替换为“exp”，但通过使用正则表达式，可以扩展匹配的定义（从“experience”到“。* experience。*”）以实现所需的替换。

Answer 2

由于知道所需的值（“exp”），所以不需要修改字符串gsub。

s = c(string,"bah","egad.experiences") 

replace(s,grep("experiences",s),"exp") 
# [1] "exp" "bah" "exp" 

---

速度。这比@ Frank的答案中的字符串修改要快一些。

（感谢@rawr对指出我们都应该打开perl的解析。）

ss <- c(replicate(1e6,s)) 
system.time(replace(ss,grep("experiences",ss,perl=TRUE),"exp")) 
# user system elapsed 
#  0.6  0.0  0.6 
system.time(gsub(".*experiences.*", "exp", ss,perl=TRUE)) 
# user system elapsed 
# 2.39 0.00 2.38 

拿走在每个答案的替换操作，它看起来像被匹配不同的图案构成了大部分的差（相反的是我的预期，我在去年的编辑看到的）：

system.time(grep("experiences",ss,perl=TRUE))  # used in my answer 
# user system elapsed 
# 0.64 0.00 0.64 
system.time(grep(".*experiences.*",ss,perl=TRUE)) # used in purple-gravatar @Frank's answer 
# user system elapsed 
# 1.82 0.00 1.82 

Answer 3

gsub()被用于替代与另一个字符串特定字符串。在上面的代码，如果你做到以下几点，你的整个字符串修改exp

result <- gsub(string, "exp", string) 

但是，如果你使用grep()和replace()，你会实现你想要的结果。

res1 <- grep("pattern",string) 

为您提供模式的所有线条，并在replace()中使用。

res_new <- replace(string,res1,"exp")