如何将嵌套循环生成的带标识矩阵存入R语言列表以便后续调用？

直接通过命名列表实现，给每个矩阵分配由相关系数和维度组成的唯一名称，后续可直接通过名称调用对应矩阵。

完整代码示例 #

# 初始化空列表用于存储矩阵
mat_list <- list()

# 嵌套循环生成矩阵并添加到列表
for (i in seq(-1, 1, by = 0.01)) {
  for (j in seq(2, 6, by = 1)) {
    # 生成目标矩阵
    M <- matrix(i, ncol = j, nrow = j)
    diag(M) <- 1
    # 生成唯一标识名称：格式化相关系数为两位小数，规避浮点数精度问题
    mat_name <- sprintf("cor_%.2f_dim_%dx%d", i, j, j)
    # 将矩阵存入列表对应名称的位置
    mat_list[[mat_name]] <- M
  }
}

使用说明 #

• 调用单个矩阵：直接通过名称索引，比如mat_list[["cor_0.50_dim_3x3"]]即可取出相关系数为0.5、维度3x3的矩阵
• 批量筛选矩阵：用grep匹配名称，比如提取所有2x2的矩阵：mat_list[grep("dim_2x2", names(mat_list))]
• 用sprintf格式化名称是为了避免浮点数精度问题（比如0.1可能被存储为0.1000000001），保证名称统一规范

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