问R:模式匹配的两个向量的逻辑

EN

为了清理一些肮脏的数据(为了工作)，我的数据框架在一个长长的奇怪字符串中为客户信息(例如存储和产品)提供了一个列，以及一个存储列和一个用于产品的列。我可以从字符串中解析商店和产品。这就是我遇到问题的地方。

假设(假设这些向量是更大的dataframe的一部分，附带了数据$如果这有帮助的话，我只是作为向量使用它们，认为它可以加快代码的速度，而不必拉出整个数据)：

WeirdString <- c("fname: john; lname:smith; store:Amazon Inc.; product:Echo", "fname: cindy; lname:smith; store:BestBuy; product:Ps-4","fname: jon; lname:smith; store:WALMART; product:Pants")

因此，我将其解析为：

WS_Store <- c("Amazon Inc.", "BestBuy", "WALMART")
WS_Prod <- c("Echo", "Ps-4", "Pants")

表中的内容(即非解析列)是：

DB_Store <- c("Amazon", "BEST BUY", "Other")
DB_Prod <- c("ECHO", "PS4", "Jeans")

目前，我正在使用for循环来循环我来从解析的字符串中添加"true“字符串。这需要花费很长时间，而且我知道R是为了使用矢量化代码而设计的，所以我的问题是，如何消除循环，使用类似lapply的东西(我试过了，但失败了，因为我对lapply不够了解)，或者其他向量化的东西？

我现在的代码是：

for(i in 1:nrow(data)){     # could be i in length(DB_prod) or whatever, all vectors are the same length)
  Diff_Store[i] <- !grepl(DB_Store[i], WS_Store[i], ignore.case=T)
  Diff_Prod[i]  <- !grepl(DB_Prod[i] , WS_Prod[i] , ignore.case=T)
}

我打算将这些列重新添加到dataframe中，因为真正的目标是诊断数据库出现此问题的原因。

如果有比这更好的方法，而不是试图矢量化，我是开放的。DB_Store中的数据仅限于特定数量的“存储”(来自表中)，但在字符串中，它似乎是打开的，这就是为什么我使用DB作为模式，而不是x。产品类似，但没有受到限制，这就是为什么有些产品有破折号，而有些则没有。我很想匹配Ps-4和PS4这样的“关闭事物”，但是一旦我看到字符串有多奇怪，我可能会构建一个匹配表。但是，字符串可能不匹配，这是由裤子/牛仔裤的东西表示的。数据集有250万条记录，有许多不同的“存储”和“产品”，我确实希望确保它们在同一行上匹配，而不是“它在数据库中”(以前的问题似乎是这样问的，我可以看看字符串是否在字符串列表中，而不是1:1的比较中，而最后一个问题以循环结束，运行起来需要几分钟和几个小时)

谢谢!