如何将R矩阵转换为每行独立的嵌套列表并保存为RData

1. 先模拟你的数据场景（和CSV读取结果一致） #

先创建和你描述匹配的矩阵数据，方便后续代码验证：

# 模拟读取后的矩阵（行名c1-c4，列名m1-m5，含1、0、NA）
data <- matrix(c(1, 0, NA, 1, 0,
                 0, NA, 1, 0, 1,
                 1, 1, 0, NA, 0,
                 NA, 0, 1, 1, NA),
               nrow = 4, byrow = TRUE,
               dimnames = list(paste0("c", 1:4), paste0("m", 1:5)))
str(data) # 查看结构，和你的输出匹配

2. 基于行索引生成「每行独立子列表」的嵌套结构 #

按你要求优先用行索引实现，避免依赖split，直接遍历行号生成嵌套列表：

# 遍历行索引，将每行转为带列名的子列表
nested_list <- lapply(1:nrow(data), function(row_idx) {
  as.list(data[row_idx, ])
})
# 给外层列表命名为行名（c1-c4）
names(nested_list) <- rownames(data)

# 查看结果结构
str(nested_list)

最终结构：外层是命名列表（c1/c2/c3/c4），每个元素是对应行的子列表（含m1-m5的键值对）。

3. 按指定行数分组打包为命名列表（如1-2行=T1，3-4行=T2） #

两种实现方式，按需选择：

方式1：均匀分组（自动按行数拆分） #

# 定义分组规则：每2行一组，生成T1/T2标签
group_tags <- cut(1:nrow(data), breaks = 2, labels = paste0("T", 1:2))

# 按分组打包，组内每行转为子列表
grouped_list <- lapply(unique(group_tags), function(tag) {
  # 取出当前组的行索引
  target_rows <- which(group_tags == tag)
  # 组内每行生成子列表
  lapply(target_rows, function(row_idx) as.list(data[row_idx, ]))
})
names(grouped_list) <- paste0("T", 1:2)

方式2：自定义分组（手动指定行范围） #

如果分组不是均匀的，直接指定行号更灵活：

# 自定义分组规则：T1对应1-2行，T2对应3-4行
custom_groups <- list(T1 = 1:2, T2 = 3:4)
grouped_list_custom <- lapply(custom_groups, function(row_range) {
  lapply(row_range, function(row_idx) as.list(data[row_idx, ]))
})

4. 保存结果为RData文件 #

用save()函数把需要的结构保存到本地：

# 保存嵌套列表和分组列表到RData
save(nested_list, grouped_list, grouped_list_custom, file = "matrix_to_list_result.RData")

# 后续验证读取可执行：
# load("matrix_to_list_result.RData")

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