替换另一个数据集的出现答案

【问题标题】：Replace occurrences of one dataset in another替换另一个数据集的出现
【发布时间】：2020-01-27 19:31:09
【问题描述】：

我有一个名为 Messages 的数据集，其中包含 C# 错误。我有一个名为 Usernames 的第二个数据集，其中包含用户名列表。我想从消息中删除任何用户名的出现。任何消息都不应出现超过 1 次用户名。我以为我可以用 gsubfn 做到这一点，但它输出所有 NULL。有人可以直接告诉我最好的方法吗？

usrNm <- c(dataset2$username)
stripUsername <- function(x) {gsubfn(usrNm,'',x)}
noUsernames <- within(dataset,{Message=stripUsername(dataset$Message)})

+----------------------------------+----------------------------------+    +--------------+
| Message                          | Expected output                  |    | Username     |
+----------------------------------+----------------------------------+    +--------------+
| User: Mary.Jane sent bad data    | User:  sent bad data             |    | Mary.Jane    |
+----------------------------------+----------------------------------+    +--------------+
| Error occurred in System.Module. | Error occurred in System.Module. |    | Robert.Frost |
+----------------------------------+----------------------------------+    +--------------+
| Hello, world!                    | Hello, world!                    |    | BB.Wolf      |
+----------------------------------+----------------------------------+    +--------------+
| Tracing request by Robert.Frost! | Tracing request by !             |
+----------------------------------+----------------------------------+

【问题讨论】：

标签： r powerbi

【解决方案1】：

这是一种方法：

library(stringi)

stri_replace_all_fixed(dataset$Message, dataset2$Username, '', vectorize_all = FALSE)

输出

[1] "User:  sent bad data"             "Error occurred in System.Module."
[3] "Hello, world!"                    "Tracing request by !"

数据

dataset <- data.frame(
  Message = c("User: Mary.Jane sent bad data", "Error occurred in System.Module.", "Hello, world!", "Tracing request by Robert.Frost!"),
  stringsAsFactors = FALSE
)

dataset2 <- data.frame(
  Username = c("Mary.Jane", "Robert.Frost", "BB.Wolf")
)

【讨论】：