r - R中具有更快处理时间的多个精确单词匹配

Question

我需要在 R 中进行多个完全匹配的单词。请检查我的代码，

lapply(test1, function(x) length(which(grepl("\\b17.02\\b", x) |  grepl("\\b18.1\\b", x)))) 

为此，请帮助我获得更快处理时间的代码。

我已经生成了一个用于测试目的的数据集，

x1 <- runif(n = 50000000, min = 1, max = 100)
x2 <- runif(n = 50000000, min = 5, max = 30)
x3 <- runif(n = 50000000, min = 12, max = 30)

df <- cbind.data.frame(x1,x2,x3)

谢谢， SJB

标签： r