在r中查找与向量相同的行

我想逐行搜索,如果它匹配一个预定义的向量,则为该行的变量赋值我更喜欢用dplyr来解决这个问题。

对于一个简单的例子:

a=c(1,2,NA)
b=c(1,NA,NA)
c=c(1,2,3)
d=c(1,2,NA)
D= data.frame(a,b,c,d)

我的尝试是:

D %>% mutate(
            i= case_when(
                 identical(c(a,b,c),c(1,1,1)) ~ 1,
                 identical(c(a,b,c),c(NA,NA,3)) ~ 2
                         )
             )

我希望它能给我:

   a  b c  d  i
1  1  1 1  1  1
2  2 NA 2  2  NA
3 NA NA 3  NA 2

但我的代码不起作用,我想是因为它没有把行与向量进行比较。

我不想简单地在案件中键入 c==1 & b==1 & c== 1 ~ 1 因为在我的数据集中会有太多的变量要输入。

谢谢你的建议。