R：分类获取新表

Question

我有这样一张表，有 3 个列 rs10330、rs18976 和 rs749。 我想获取最后一列identifiedID，哪一行在每列中有AG或GG，GT或TT，AT或TT之一，identifiedID将为1，并且有两个identifiedID将为2。至于第1行，有3列没有AG或GG，GT或TT，AT或TT，因此，identifiedID为0。为了获得identifiedID，代码是什么？

---

数据

datmp <- data.frame(rs10330=c('AA','AG','GG','AG','AA'), 
                    rs18976=c('GG','GT','GT','GG','GG'), 
                    rs7498=c( 'AA','AT','TT','AT','TT')) 
identifiedID <- c(0,3,3,2,1) 
datmp2 <- data.frame(datmp,identifiedID)

Answer 1

一个非常冗长的解决方案是

datmp %>%
    mutate(identifiedID = rs10330 %in% c("AG", "GG") + 
               rs18976 %in% c("GT", "TT") + 
                    rs7498 %in% c("AT", "TT"))
#  rs10330 rs18976 rs7498 identifiedID
#1      AA      GG     AA            0
#2      AG      GT     AT            3
#3      GG      GT     TT            3
#4      AG      GG     AT            2
#5      AA      GG     TT            1