比較R中的多個向量后返回名稱

Question

    Col1  Col2  Col3  Col4
R1  A     B     B     A
R2  D     D     NA    D
R3  E     E     E     E
R4  K     NA    NA   NA
R5  U     U     U    NA
R6  Z     Y     Y    Y

我想返回{R2，R3，R4，R5}的名稱，因為所有列在行內匹配或為NA。 在實際數據集中將有數百列。

我發現這段代碼是半有用的（假設這是一個名為“ dat”的數據框）：

all.equal(dat[5,],dat[6,])

但這僅返回列不匹配的行（並且僅對2行有效）。

Answer 1

rownames(dat)[apply(dat, 1, function(x) length(unique(na.omit(x)))) == 1]
[1] "R2" "R3" "R4" "R5"