This is ugly; the tmp intermediates are a kludge
suppressPackageStartupMessages({library(dplyr)
library(stringr)})
df6 <- data.frame(name=c("try,xab","xab,Lan","mhy,mun","vgtu,mmc","dgsy,aaf","kull,nnhu","hula,njam","mund,jiha","htfy,ntha","bhr,gydbt","sgyu,hytb","vdti,kula","mftyu,huta","ibdy,vcge","cday,bhsue","ajtu,nudj"), email=c("xab.try@ybcd.com","Lan.xab@ybcd.com","tth.vgu@ybcd.com","mmc.vgtu@ybcd.com","aaf.dgsy@ybcd.com","nnhu.kull@ybcd.com","njam.hula@ybcd.com","jiha.mund@ybcd.com","ntha.htfy@ybcd.com","gydbt.bhr@ybcd.com","hytb.sgyu@ybcd.com","kula.vdti@ybcd.com","huta.mftyu@ybcd.com","ggat.khul@ybcd.com","bhsue.cday@ybcd.com","nudj.ajtu@ybcd.com"))
pattern1 <- "(^.*,)(.*$)"
pattern2 <- "\\2.\\1"
pattern3 <- ".$"
pattern4 <- "@.*$"
df6 %>% mutate(tmp1 = str_replace(df6$name,pattern1,pattern2) %>%
str_remove(.,pattern3)) %>%
mutate(tmp2 = str_remove(email,pattern4)) %>%
mutate(Match_name = ifelse(tmp1 == tmp2,1,0)) %>%
select(-tmp1,-tmp2)
#> name email Match_name
#> 1 try,xab xab.try@ybcd.com 1
#> 2 xab,Lan Lan.xab@ybcd.com 1
#> 3 mhy,mun tth.vgu@ybcd.com 0
#> 4 vgtu,mmc mmc.vgtu@ybcd.com 1
#> 5 dgsy,aaf aaf.dgsy@ybcd.com 1
#> 6 kull,nnhu nnhu.kull@ybcd.com 1
#> 7 hula,njam njam.hula@ybcd.com 1
#> 8 mund,jiha jiha.mund@ybcd.com 1
#> 9 htfy,ntha ntha.htfy@ybcd.com 1
#> 10 bhr,gydbt gydbt.bhr@ybcd.com 1
#> 11 sgyu,hytb hytb.sgyu@ybcd.com 1
#> 12 vdti,kula kula.vdti@ybcd.com 1
#> 13 mftyu,huta huta.mftyu@ybcd.com 1
#> 14 ibdy,vcge ggat.khul@ybcd.com 0
#> 15 cday,bhsue bhsue.cday@ybcd.com 1
#> 16 ajtu,nudj nudj.ajtu@ybcd.com 1
Created on 2020-09-13 by the reprex package (v0.3.0)