I have a data frame below
1)i am trying to check if both columns are empty , if empty then mutate new column to 2) also checking if all the mail id's in email is unique , if duplicate then mutate new column to one.
df <- data.frame(name=c("maay,bhtr","nsgu,nhuts thang","affat,nurfs","nukhyu,biyts",NA,"nsgyu,noon","utrs guus,book","thum,cryant","mumt,cant","bhan,btan","khtri,ntuk","ghaan,rstu","shaan,btqaan","nhue,bjtraan","wutys,cyun","hrtsh,jaan"),
email=c("maay.bhtr@email.com",NA,"asfa.1234@gmail.com","nukhyu.biyts@gmail.com","ngyst.muun@gmail.com","nsgyu.noon@gmail.com","utrs.book@hotmail.com","thum.cryant@live.com","mumt.cant@gmail.com","maay.bhtr@email.com","khtri.ntuk@gmail.c.om","chang.lee@gmail.com","shaan.btqaan@gmail.com","nhue.bjtraan@gmail.com","wutys.cyun@gmailcom","hrtsh.jaan@gmail.com"))
df[is.na(df)] <- ""
df <- df %>% mutate(is_blank_node = which(df$name == "", arr.ind = TRUE),1 )
df <- df %>% group_by(email) %>%
mutate(Flag=1:n(),`Duplicate_ID`=ifelse(Flag==1,0,1)) %>% select(-Flag)
the output should be like
name | name_blank | email_blank | duplicate_email | |
---|---|---|---|---|
maay,bhtr | maay.bhtr@email.com | 0 | 0 | 0 |
nsgu,nhuts thang | 0 | 1 | 0 | |
affat,nurfs | asfa.1234@gmail.com | 0 | 0 | 0 |
nukhyu,biyts | nukhyu.biyts@gmail.com | 0 | 0 | 0 |
ngyst.muun@gmail.com | 1 | 0 | 0 | |
nsgyu,noon | nsgyu.noon@gmail.com | 0 | 0 | 0 |
utrs guus,book | utrs.book@hotmail.com | 0 | 0 | 0 |
thum,cryant | thum.cryant@live.com | 0 | 0 | 0 |
mumt,cant | mumt.cant@gmail.com | 0 | 0 | 0 |
bhan,btan | maay.bhtr@email.com | 0 | 0 | 1 |
khtri,ntuk | khtri.ntuk@gmail.c.om | 0 | 0 | 0 |
ghaan,rstu | chang.lee@gmail.com | 0 | 0 | 0 |
shaan,btqaan | shaan.btqaan@gmail.com | 0 | 0 | 0 |
nhue,bjtraan | nhue.bjtraan@gmail.com | 0 | 0 | 0 |
wutys,cyun | wutys.cyun@gmailcom | 0 | 0 | 0 |
hrtsh,jaan | hrtsh.jaan@gmail.com | 0 | 0 | 0 |