匹配并替换文本向量中的多个字符串，但不在R中循环

Question

我想在R中应用gsub以将字符串a中的匹配替换为字符串b中的相应匹配。例如：

a <- c("don't", "i'm", "he'd") 
b <- c("do not", "i am", "he would") 
c <- c("i'm going to the party", "he'd go too") 
newc <- gsub(a, b, c) 

这样NEWC =“我去给党听”，“他会去太”） 这种方法是行不通的，因为GSUB只接受长度为1的A和B的字符串。执行一个循环来循环a和b将会非常慢，因为真实的a和b的长度是90，而c的长度大于200,000。 R中有矢量化的方式来执行此操作吗？

Answer 1

1）gsubfngsubfn在gsubfn包是像gsub除了替换字符串可以是一个字符串，列表，功能或原对象。如果它是一个列表，它将用名称等于匹配的字符串的列表组件替换每个匹配的字符串。

library(gsubfn) 
gsubfn("\\S+", setNames(as.list(b), a), c) 

，并提供：

[1] "i am going to the party" "he would go too"  

2）GSUB有关解决方案，没有包试试这个循环：

cc <- c 
for(i in seq_along(a)) cc <- gsub(a[i], b[i], cc, fixed = TRUE) 

，并提供：

> cc 
[1] "i am going to the party" "he would go too"