如何测试矩阵列表中是否存在矩阵？ （Wordle 项目）

Question

我是一个不常见的 R 用户，所以如果我的任何术语不正确，我深表歉意。 我正在围绕游戏 Wordle 开展一个项目，以查看我的家庭群聊中给定的 Wordle 提交是否是唯一的，或者它们之前是否已经提交过。 其灵感来自 twitter 帐户“Scorigami”，该帐户跟踪每场 NFL 比赛并在推特上发布该比分是否在联盟历史上发生过。

要将 Wordle 条目加载到 R 中，我决定将每个提交变成一个矩阵，其中 0 = 不正确的字母，1 = 正确的字母/错误的 position，以及 2 = 正确的字母/正确的 Z4757FE07FD492A8BEEZEA6A6766 在 R 中，这看起来像这样：

wordle_brendan <- rbind(c(1,0,0,0,0),c(2,2,0,0,0),c(2,2,0,0,0),c(2,2,2,2,2))
wordle_jack <- rbind(c(2,0,0,0,0),c(2,2,0,0,0),c(2,2,2,2,2))

然后，我将它们组合成一个列表，用于检查任何未来的 Wordle 提交，以查看它们之前是否已提交。

list <- list(wordle_brendan, wordle_jack)

我认为我在正确的轨道上，但我不知道如何创建一个新的 wordle 矩阵来测试之前是否已经提交过该提交。 假设我使用相同的值但使用不同的名称重新创建了“wordle_brendan”......然后我将如何让 R 检查该矩阵是否存在于我预先存在的矩阵列表中？ 我已经尝试使用 %in% function 1,000 种不同的方式，但无法使其正常工作。任何帮助将不胜感激，谢谢！ （如果您能想到更好的方法，请告诉我！）

Answer 1

有多种方法可以做到这一点，但这很简单。 我们需要一些样本来检查：

new1 <- list[[2]]   # The same as your second matrix
new2 <- new1
new2[3, 5] <- 0     # Change one position from 2 to 0.

比较

any(sapply(list, identical, y=new1))
# [1] TRUE
any(sapply(list, identical, y=new2))
# [1] FALSE

所以new1匹配现有矩阵，但new2不匹配。 查看哪个矩阵：

which(sapply(list, identical, y=new1))
# [1] 2
which(sapply(list, identical, y=new2))
# integer(0)

所以new1匹配list中的第二个矩阵，但new2不匹配任何矩阵。

Answer 2

这是一种与matequal function 配合使用的方法。 基本 function identical比较对象，而不是值，如果矩阵具有相同的值但不同的属性（例如名称），则identical返回 FALSE。

很多时候这太严格了。 在这些情况下，仅比较值的 function 将返回 TRUE。

我将使用dcarlson 的new1来说明这一点。

matequal <- function(x, y) {
  ok <- is.matrix(x) && is.matrix(y) && all(dim(x) == dim(y))
  ok && all(x == y)
}

wordle_brendan <- rbind(c(1,0,0,0,0),c(2,2,0,0,0),c(2,2,0,0,0),c(2,2,2,2,2))
wordle_jack <- rbind(c(2,0,0,0,0),c(2,2,0,0,0),c(2,2,2,2,2))
list <- list(wordle_brendan, wordle_jack)
new1 <- list[[2]]   # The same as your second matrix

wordle_john <- wordle_jack
dimnames(wordle_john) <- list(1:3, letters[1:5])
list2 <- list(wordle_brendan, wordle_jack, wordle_john)

sapply(list2, identical, y=new1)
#> [1] FALSE  TRUE FALSE

sapply(list2, matequal, y=new1)
#> [1] FALSE  TRUE  TRUE

^{使用reprex v2.0.2创建于 2022-09-27}