如何让sapply仅返回TRUE值？附匹配矩阵定位方法

1. 仅返回TRUE匹配结果 #

先通过sapply生成所有匹配的逻辑向量，再过滤出仅为TRUE的部分：

# 生成所有匹配结果的逻辑向量
match_flag <- sapply(matrix_list, identical, new_matrix)
# 仅保留TRUE值
true_matches <- match_flag[match_flag]

如果列表中存在匹配项，true_matches会显示所有为TRUE的条目（带对应列表索引或名称）；无匹配则返回空向量。

2. 定位匹配的具体矩阵 #

有三种常用方式快速定位：

• 获取匹配位置的索引：

  match_indices <- which(match_flag)
  

  match_indices返回列表中与新矩阵完全一致的矩阵所在位置（数字索引）。

• 获取匹配矩阵的名称（若列表有命名）：

  match_names <- names(matrix_list)[match_flag]
  

  若你的matrix_list是命名列表，这会直接返回匹配项的名称。

• 直接提取所有匹配的矩阵：

  matched_matrices <- matrix_list[match_flag]
  

  这会返回列表中所有与new_matrix完全一致的矩阵子集，直接查看或后续处理都很方便。

简化写法 #

也可以合并成一行代码直接获取匹配的矩阵：

matched_matrices <- matrix_list[sapply(matrix_list, identical, new_matrix)]

内容的提问来源于stack exchange，提问作者Liam Brothers