如何选择R中矩阵列中不唯一的行

Question

我有一个大数据集，但我可以通过一个简单的例子进行解释。例如我有一个矩阵“x”

x<-matrix(c(3,3,3,4,3,3,5,5,5), nrow=3, byrow=T)

现在我需要第二行，其中“x”不是唯一的条目。第一行和第三行在列意义上是相等的。

提前致以问候和感谢，

Iftikhar Ahmad

Answer 1

您还可以利用这样一个事实：相等意味着标准差始终为 0。不幸的是，我们必须使用逻辑表达式（如下）或使用 as.logic 将这些 0 转换为逻辑值。

x[apply(x, 1, sd) > 0, ]

更新

对 @joran 和我的解决方案进行了一些基准测试。我的丢失了:(

x <- matrix(sample(3:5,30000,T), ncol=3)    

system.time(x2 <- x[apply(x,1,sd) > 0, ])
user  system elapsed 
0.960   0.000   0.961

system.time(x2 <- x[apply(x,1,FUN=function(r){return(length(unique(r)))}) > 1,])
user  system elapsed 
0.470   0.000   0.465

但是...

如果我们制作一个具有相似主题的完全矢量化版本，我们可以将两者都从水中吹出来

system.time(x2 <- x[rowSums(abs(x - rowMeans(x))) != 0, ])
user  system elapsed 
0.000   0.000   0.001

Answer 2

这就是您正在寻找的内容吗：

x[apply(x,1,FUN=function(r){return(length(unique(r)))}) > 1,]

它将选择其中包含多个唯一值的行。