用于模式匹配的 R 中 for 循环的更快替代方法

Question

我正在解决一个问题，其中我必须有两个数据框数据和缩写，我想将数据中存在的所有缩写替换为它们各自的完整形式。到目前为止，我一直在以下列方式使用for-loops

abb <- c()
for(i in 1:length(data$text)){
  for(j in 1:length(AbbreviationList$Abb)){
    abb <- paste("(\\b", AbbreviationList$Abb[j], "\\b)", sep="")
    data$text[i] <- gsub(abb, AbbreviationList$Fullform[j], tolower(data$text[i]))
  }
}

缩写数据框如下图所示，可以使用以下代码生成

Abbreviation <- c(c("hru", "how are you"), 
                  c("asap", "as soon as possible"), 
                  c("bf", "boyfriend"), 
                  c("ur", "your"), 
                  c("u", "you"),
                  c("afk", "away from keyboard"))
Abbreviation <- data.frame(matrix(Abbreviation, ncol=2, byrow=T), row.names=NULL)

名称（缩写）

并且数据只是一个数据框，其中 1 列在每行中都有文本字符串，也可以使用以下代码生成。

data <- data.frame(unlist(c("its good to see you, hru doing?", 
                            "I am near bridge come ASAP",
                            "Can u tell me the method u used for",
                            "afk so couldn't respond to ur mails",
                            "asmof I dont know who is your bf?")))
names(data) <- "text"

最初，我有大约 1000 个观察值和大约 100 个缩写的数据框。因此，我能够运行分析。但是现在数据已经增加到将近 50000 个，我在处理它时遇到了困难，因为有两个 for-loops 这使得处理过程非常缓慢。你能推荐一些更好的替代for-loop 并举例说明如何在这种情况下使用它。如果这个问题可以通过矢量化方法更快地解决，那么请建议如何做到这一点。

感谢您的帮助！

Answer 1

这应该更快，而且没有副作用。

mapply(function(x,y){
  abb <- paste0("(\\b", x, "\\b)")
  gsub(abb, y, tolower(data$text))
},abriv$Abb,abriv$Fullform)

1. gsub 是矢量化的，所以不给它一个字符向量来寻找匹配项。这里我给它data$text
2. 我使用mapply来避免for的副作用。

Answer 2

首先，显然没有必要在循环的每次迭代中编译正则表达式。此外，实际上不需要循环遍历data$text：在 R 中，您通常可以使用值可以执行的向量——R 将遍历向量的所有元素并返回相同长度的向量.

Abbreviation$regex <- sprintf( "(\\b%s\\b)", Abbreviation$abb )

for( j in 1:length( Abbreviation$abb ) ) {
    data$text <- gsub( Abbreviation$regex[j], 
                       Abbreviation$Fullform[j], data$text,
                       ignore.case= T )
 }

以上代码适用于示例数据。