如何測試矩陣列表中是否存在矩陣？ （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}