R множественное нечеткое совпадение agrep создать переменную

Question

Новичок в R. Я хотел бы создать тест, создав переменную (да / нет), которая проверяет, совпадает ли имя ИЛИ нечеткое имя с адресом электронной почты. Если это так, добавьте переменную "да" в эту строку.

Пример данных:

id firstname lastname email address match
1 patrick boyles [e-mail] yes
2 zeke cosmos [e-mail] yes
3 foo foo [e-mail] 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 [e-mail] yes
2 zeke cosmos [e-mail] yes
3 foo foo [e-mail] 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 [e-mail]   yes    yes
# 2  2      zeke   cosmos     [e-mail]   yes    yes
# 3  3       foo      foo     [e-mail]    no     no