I have written 2 codes below,
# code1 for (i in 1:nrow(Y)) { if(is.na(Y$b[i])) {} else { X <-mutate(X, col_new = ifelse(col1 == Y$col1[i] & col2