R语言如何按行名、列名筛选列表中嵌套的matrix矩阵

核心思路 #

通过lapply遍历列表内的所有矩阵，对每个矩阵单独执行行列筛选，最终返回的结果会自动保留原列表的嵌套结构。

实现代码 #

首先拆分筛选条件，分离目标行名和列名：

# 从筛选向量中提取行名、列名
target_rows <- c("row2", "row3")
target_cols <- c("col1", "col2")

# 也可以用正则匹配自动从你的names向量中提取，无需手动拆分
# target_rows <- grep("^row", names, value = TRUE)
# target_cols <- grep("^col", names, value = TRUE)

遍历列表执行批量筛选：

result_list <- lapply(my_list, function(mat) {
  mat[target_rows, target_cols]
})

可选优化 #

如果存在部分矩阵没有对应行/列名的场景，可以加交集判断避免索引报错：

result_list <- lapply(my_list, function(mat) {
  keep_rows <- intersect(target_rows, rownames(mat))
  keep_cols <- intersect(target_cols, colnames(mat))
  mat[keep_rows, keep_cols]
})

输出验证 #

打印结果列表即可得到符合要求的输出：

# 打印第一个矩阵
print(result_list[[1]])
#>      col1 col2
#> row2   37   86
#> row3   56   97

# 打印第二个矩阵
print(result_list[[2]])
#>      col1 col2
#> row2    1   77
#> row3   44   64

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