r - R多重模糊匹配agrep创建变量

Question

R 的新手。我想通过创建一个变量（是/否）来创建一个测试，以检查名字或姓氏是否与电子邮件地址模糊匹配。如果是这样，请将“是”变量附加到该行。

数据示例：

id firstname lastname email address match
1 patrick boyles patrickb@gmail.com yes
2 zeke cosmos zeke@gmail.com yes
3 foo foo abcd@gmail.com no

我知道我需要使用 agrep。让我感到困惑的是如何告诉 R 检查 2 列（名字和姓氏）并且只检查该行。

谢谢 - 新手

Answer 1

这是开始的事情

library(stringdist) # install.packages("stringdist") b4, if you need to
df <- read.table(header = TRUE, text = "id firstname lastname emailaddress match
1 patrick boyles patrickb@gmail.com yes
2 zeke cosmos zeke@gmail.com yes
3 foo foo abcd@gmail.com no")
df$match2 <- ifelse(with(df, stringdist(a = paste0(firstname, lastname), 
                                        b = sub("(.*)@.*", "\\1", emailaddress), 
                                        method = "lcs")) <= 7, 
                    "yes", "no")
df
#   id firstname lastname      email.address match match2
# 1  1   patrick   boyles patrickb@gmail.com   yes    yes
# 2  2      zeke   cosmos     zeke@gmail.com   yes    yes
# 3  3       foo      foo     abcd@gmail.com    no     no