R：用于识别二进制矩阵中相同的行并返回标签向量的函数

Question

I am looking for a (fast) function that identifies identical rows in a matrix containing only integers 0 and 1, that returns a vector of labels telling me which rows are identical.

Here is a reproducible example of what I want to achieve:

mat = rbinom(n=1000, size=1, prob=0.8)
dim(mat) = c(200, 5)

umat = unique(mat)
idVec = numeric(nrow(mat))
for(i in seq_len(nrow(umat))){
  for(j in seq_len(nrow(mat))){
    if(isTRUE(all.equal(mat[j,], umat[i,]))){
      idVec[j] = i
    }    
  }
}
cbind(idVec, mat)
table(idVec)

Actually this function http://www.stat.washington.edu/~rje42/lca/html/group.html would just be perfect. However, it's not on CRAN, no source code, and was built prior to R 3.0.0.

Thank's for your help!

Answer 1

I reduced your example mat a bit for better handling:

mat = rbinom(n=100, size=1, prob=0.8)
dim(mat) = c(20, 5)

Now you can create the idVec like this (assuming you don't care about the actual numbers, just the correct "mapping"):

idVec <- as.integer(factor(apply(mat, 1, toString)))

And of course you can add it or create the table:

> cbind(idVec, mat)
      idVec          
 [1,]     6 1 1 1 1 1
 [2,]     5 1 1 1 1 0
 [3,]     6 1 1 1 1 1
 [4,]     5 1 1 1 1 0
 [5,]     1 0 1 1 0 1
 [6,]     2 0 1 1 1 1
 [7,]     6 1 1 1 1 1
 [8,]     6 1 1 1 1 1
 [9,]     6 1 1 1 1 1
[10,]     5 1 1 1 1 0
[11,]     4 1 0 1 1 1
[12,]     5 1 1 1 1 0
[13,]     6 1 1 1 1 1
[14,]     4 1 0 1 1 1
[15,]     3 1 0 1 0 0
[16,]     1 0 1 1 0 1
[17,]     6 1 1 1 1 1
[18,]     6 1 1 1 1 1
[19,]     6 1 1 1 1 1
[20,]     2 0 1 1 1 1
> table(idVec)
idVec
1 2 3 4 5 6 
2 2 1 2 4 9