在R语言中基于不同列选项创建矩阵列表的实现方案

步骤1：准备数据（替换为你的真实数据） #

先模拟原始数据集和列配置表，你可以直接替换成自己的data和columns_data：

# 原始数据集示例
data <- data.frame(
  ID = 1:10,
  A1 = rnorm(10),
  A2 = rnorm(10),
  A3 = rnorm(10),
  B1 = rnorm(10),
  B2 = rnorm(10),
  B3 = rnorm(10),
  C1 = rnorm(10),
  C2 = rnorm(10),
  C3 = rnorm(10)
)

# 列配置表：指定每个矩阵对应的列组合
columns_data <- data.frame(
  MatrixName = paste0("Matrix", 1:6),
  Cols = c("A1,A2", "A1,A3", "B1,B2", "B1,B3", "C1,C2", "C1,C3"),
  stringsAsFactors = FALSE
)

步骤2：批量生成矩阵 #

用循环遍历配置表，自动生成对应矩阵并存储：

# 创建空列表存储所有矩阵
matrix_list <- list()

# 遍历配置表的每一行
for (i in seq(nrow(columns_data))) {
  # 拆分当前行的列名
  col_names <- strsplit(columns_data$Cols[i], ",")[[1]]
  # 提取数据并转为矩阵
  mat <- as.matrix(data[, col_names])
  # 按配置的名称存入列表
  matrix_list[[columns_data$MatrixName[i]]] <- mat
}

# 可选：将矩阵导出到全局环境，直接调用Matrix1-Matrix6
list2env(matrix_list, .GlobalEnv)

验证结果 #

查看生成的Matrix1结构，和示例一致：

str(Matrix1)

输出示例：

num [1:10, 1:2] 0.46 -0.23 1.1 0.34 -0.67 ...
 - attr(*, "dimnames")=List of 2
  ..$ : chr [1:10] "1" "2" "3" "4" ...
  ..$ : chr [1:2] "A1" "A2"

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