在R中，匹配矩阵行或列的函数

Question

R中的值匹配功能非常有用。但据我理解，它不足以支持二维或高维输入。

例如，假设x和y是相同列数的矩阵，我想将x的行与y的行进行匹配。“R”函数调用match（x，y）不这样做。列表的输入也存在同样的不足。

我已经实现了我自己的版本，名为matchMat（xMat，yMat）（附在下面），但我想知道您对此任务的解决方案是什么。

matchMat = function(xMat, uMat, dimn=1) {
    ind = rep(-1, dim(xMat)[dimn])
    id = 1 : dim(uMat)[dimn]
    for (i in id) {
        e = utilSubMat(i, uMat, dimn)
        isMatch = matchVect(e, xMat, dimn)
        ind[isMatch] = i
    }
    return(ind)
}

matchVect = function(v, xMat, dimn) {
    apply(xMat, dimn, function(e) {
        tf = e == v
        all(tf)
    })
}

unittest_matchMat = function() {
    dimn = 1
    uMat = matrix(c(1, 2, 2, 3, 3, 4, 4, 5), ncol=2, byrow=T)
    ind = sample(dim(uMat)[1], 10, replace=T)
    print(ind)
    xMat = uMat[ind, ]
    rst = matchMat(xMat, uMat, dimn)
    print(rst)
    stopifnot(all(ind == rst))

    xMat2 = rbind(c(999, 999), xMat, c(888, 888))
    rst2 = matchMat(xMat2, uMat, dimn)
    print(rst2)
    stopifnot(all(c(-1, ind, -1) == rst2))
    print('pass!')   
}

Answer 1

您可以在不使用任何函数的情况下执行此操作：

假设adj1是包含列名和行名的3*3矩阵。名称为c（'V1'、'V2'、'V3'）和vec1是您希望矩阵转换为的顺序：

vec1 <- c('V2','V3','V1')

您可以简单地使用以下代码：

adj1[vec1,vec1]

这会给你带来魔力。

干杯

Answer 2

函数行。程序包prodlim中的match允许您识别一个矩阵中在另一个矩阵中也找到（相同）的行。非常方便和易于使用。

library(prodlim)
row.match(x,y)

Answer 3

match将处理原子向量的列表。因此，要将一个矩阵的行与另一个矩阵的行进行匹配，可以执行以下操作：

match(data.frame(t(x)), data.frame(t(y)))

t将行转置为列，然后data.frame在转置矩阵中创建列的list。