如何檢查矩陣是否是矩陣列表的元素？在R

Question

我對R中的編程很陌生。

我有一個數字矩陣mat ，以及矩陣列表matlist 。 我想檢查矩陣mat是否與matlist任何元素匹配（即，相同）。 我嘗試了%in%方法，但這並沒有給我希望的輸出。

這就像我的代碼。

mat <- rbind(c(0,1),
             c(1,0))
mat2 <- rbind(c(1,1),
              c(1,0))
matlist <- vector(mode="list", 2)
matlist[[1]] <- mat
matlist[[2]] <- mat2

如果我然后mat %in% matlist嘗試mat %in% matlist我得到： FALSE FALSE FALSE FALSE

我正在尋找一個這樣的表達式，它將評估為TRUE 。

這看起來應該很簡單，但我找不到答案！

Answer 1

你可以嘗試類似的東西：

sapply(matlist,function(x) identical(x,mat)) ，或者@jbaums提到： sapply(matlist,identical,mat)

或者自己構建一個自定義函數來檢查任何矩陣列表中的任何矩陣：

matrix_is_in <- function(my_mat, my_mat_list) {
      sapply(my_matlist, function(x) identical(x, my_mat))
}

然后嘗試一下：

matrix_is_in(mat,matlist)