如何使用相同的函数按行比较矩阵列表

假设我有一个包含两个矩阵的列表，x and y.

 x <- c(3,4,5,5,
3,4,5,6,
5,6,2,1)

x <- matrix(x,3,4)

y <- c(3,4,5,5,
3,4,5,6,
5,5,2,1)

y <- matrix(y,3,4)

d <- list(x, y)

> x
     [,1] [,2] [,3] [,4]
[1,]    3    5    5    6
[2,]    4    3    6    2
[3,]    5    4    5    1

> y
     [,1] [,2] [,3] [,4]
[1,]    3    5    5    5
[2,]    4    3    6    2
[3,]    5    4    5    1

我想使用比较这两个矩阵的每一行identical功能。在这里，除非第一行的最后一个元素，否则两个矩阵相同。

我如何逐行比较这两个矩阵？有什么帮助吗？

我的尝试是：

res <- round(apply(array(unlist(d), c(4, 4, 4)), c(1,2), identical),2)

（从那里 ”我尝试了这里使用的代码 https://stackoverflow.com/questions/39351013/standard-deviation-over-a-list-of-matrices-in-r)

但我有一个错误：

FUN(newX[ i], ...) 中的错误：缺少参数“y”，没有默认值

请注意，列表的元素是任意的。也就是说，有时我只有 2 个矩阵，但是，其他时候我可能有 6 个矩阵

预期的输出应该是这样的

output:
     [,1] [,2] [,3] [,4]
[1,]    TRUE    TRUE    TRUE    FALSE
[2,]    TRUE    TRUE    TRUE    TRUE
[3,]    TRUE    TRUE    TRUE    TRUE

1)这定义了Identical是一个如果所有参数都相同则返回 TRUE 的函数。它通过计算sd其参数并将其与零进行比较。第二行代码将其应用于矩阵的相应元素。

Identical <- function(...) sd(c(...)) == 0
array(do.call("mapply", c(Identical, d)), dim(d[[1]]))

giving:

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

定义相同的几种替代方法。它们的优点是它们也可以处理非数字矩阵。第二个使用identical按照要求。

Identical <- function(...) all(c(...)[-1] == ..1)

Identical <- function(...) all(sapply(c(...)[-1], identical, ..1))

2)这种替代方法只有一行代码，并且使用整个对象方法，没有显式使用维度或索引。它取消列出d并适用sd使用的相应元素tapply。最后将其与零进行比较。

tapply(unlist(d), list(sapply(d, row), sapply(d, col)), sd) == 0

2a)一种变体是将比较定义为单独的函数：

Same <- function(x) sd(x) == 0
tapply(unlist(d), list(sapply(d, row), sapply(d, col)), Same)

这使得通过重新定义来定义替代方案变得更容易Same如下第二个定义使用的地方identical.

Same <- function(x) all(x[-1] == x[1])

Same <- function(x) all(sapply(x[-1], identical, x[1]))