如何在R中穷举地比较两个不同的行矩阵？

我有两个矩阵（mat1和mat2），它们的列数相同（各四列），行数不同（一个矩阵有三行，另一个矩阵有五行）。我想将一个矩阵中的每一行与另一个矩阵中的每一行进行比较。行中的值和位置在两个矩阵中应相同。 我一直在尝试“apply”函数，但在定义函数时遇到了问题：

apply（mat2,1，函数（x）{mat1[x，]==mat2[x，]}

和其他类似的组合会导致消息“下标超出边界”。 我在这个世界上很新（R和编程），在网上有搜索信息，但我什么也没找到。我真的被卡住了。 我将非常感谢你的帮助。 提前谢谢。 卡帕

1.应用

2.tapply

3.lappy

---

输出

---

您能否以可复制的形式共享

mat1

和

mat2

？请参阅：Try

'dim@Carpa如果我的答案解决了您的问题，请将其标记为“已接受”。有关接受答案的详细信息，请阅读。
> mat1
     [,1] [,2] [,3] [,4]
[1,]    2   44    3    9
[2,]   13   56   13   13
[3,]    4    9   14   33
> mat2
     [,1] [,2] [,3] [,4]
[1,]    1    6   11   16
[2,]    2    7   12   17
[3,]    3    8   13   18
[4,]    4    9   14   19
[5,]    5   10   15   20
> 
The output that I am looking for is:

> [1,]
     [,1] [,2] [,3] [,4]
[1,]    FALSE FALSE FALSE FALSE
[2,]    TRUE  FALSE FALSE FALSE
[3,]    FALSE FALSE FALSE FALSE
[4,]    FALSE FALSE FALSE FALSE
[5,]    FALSE FALSE FALSE FALSE

> [2,]
     [,1] [,2] [,3] [,4]
[1,]    FALSE FALSE FALSE FALSE
[2,]    FALSE FALSE FALSE FALSE
[3,]    FALSE FALSE  TRUE FALSE
[4,]    FALSE FALSE FALSE FALSE
[5,]    FALSE FALSE FALSE FALSE

> [3,]
     [,1] [,2] [,3] [,4]
[1,]    FALSE FALSE FALSE FALSE
[2,]    FALSE FALSE FALSE FALSE
[3,]    FALSE FALSE FALSE FALSE
[4,]    TRUE  TRUE  TRUE  FALSE
[5,]    FALSE FALSE FALSE FALSE

array(apply(mat1, 1, function(x) t(x == t(mat2))), dim = c(dim(mat2), nrow(mat1)))

tapply(mat1, row(mat1), function(x) t(x == t(mat2)))

lapply(split(mat1, row(mat1)), function(x) t(x == t(mat2)))

$`1`
      [,1]  [,2]  [,3]  [,4]
[1,] FALSE FALSE FALSE FALSE
[2,]  TRUE FALSE FALSE FALSE
[3,] FALSE FALSE FALSE FALSE
[4,] FALSE FALSE FALSE FALSE
[5,] FALSE FALSE FALSE FALSE

$`2`
      [,1]  [,2]  [,3]  [,4]
[1,] FALSE FALSE FALSE FALSE
[2,] FALSE FALSE FALSE FALSE
[3,] FALSE FALSE  TRUE FALSE
[4,] FALSE FALSE FALSE FALSE
[5,] FALSE FALSE FALSE FALSE

$`3`
      [,1]  [,2]  [,3]  [,4]
[1,] FALSE FALSE FALSE FALSE
[2,] FALSE FALSE FALSE FALSE
[3,] FALSE FALSE FALSE FALSE
[4,]  TRUE  TRUE  TRUE FALSE
[5,] FALSE FALSE FALSE FALSE