查找並替換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")