R语言如何通过函数将多个列表转换为指定结构的嵌套列表

核心实现思路 #

全程不需要手动逐个子元素赋值，基于现有list_分组ID_字段ID格式的命名规则自动解析组装，所有操作仅做列表引用映射不做冗余数据拷贝，内存开销极低，适配GB级大数据量处理场景：

• 自动匹配所有符合命名规则的输入列表，不需要手动枚举待处理对象
• 按一级分组ID拆分数据，自动识别总共有多少个大分组（比如示例里的one、two对应分组1、2）
• 按字段ID对齐同组下的三类数据：list_x_1对应sequence字段、list_x_2对应starting字段、list_x_3对应ending字段
• 按索引位置逐行打包成标准子列表结构，自动命名后组装为最终嵌套输出

可直接复用的代码 #

# 第一步：抓取所有符合list_x_y命名规则的输入列表
# 如果你的列表不在全局环境，把.GlobalEnv替换成对应存储列表的环境即可
all_input_lists <- mget(
  x = ls(pattern = "^list_\\d+_\\d+$", envir = .GlobalEnv),
  envir = .GlobalEnv
)

# 第二步：解析每个列表的分组ID、字段ID
list_meta <- do.call(rbind, strsplit(
  x = gsub("^list_", "", names(all_input_lists)),
  split = "_"
))
mode(list_meta) <- "integer"
colnames(list_meta) <- c("group_id", "field_id")

# 第三步：按分组批量组装
final_output <- lapply(
  X = split.data.frame(list_meta, list_meta[, "group_id"]),
  FUN = function(group_tables) {
    # 按字段ID取对应列表：1=sequence,2=starting,3=ending
    seq_list <- all_input_lists[[paste0("list_", group_tables[1,1], "_1")]]
    start_list <- all_input_lists[[paste0("list_", group_tables[1,1], "_2")]]
    end_list <- all_input_lists[[paste0("list_", group_tables[1,1], "_3")]]
    
    # 按索引打包每个子项
    sub_items <- lapply(
      X = seq_along(seq_list),
      FUN = function(i) {
        list(
          sequence = seq_list[[i]],
          starting = start_list[[i]],
          ending = end_list[[i]]
        )
      }
    )
    # 给子项自动命名（和示例命名规则一致：分组名_序号，比如one_1、two_1）
    group_name <- c("one", "two", "three", "four", "five")[group_tables[1,1]]
    names(sub_items) <- paste0(group_name, "_", seq_along(sub_items))
    return(sub_items)
  }
)

# 给一级分组命名
names(final_output) <- c("one", "two", "three", "four", "five")[as.integer(names(final_output))]

注：如果你的一级分组名不是one/two这类英文序数，或者分组数超过5个，把代码里两处c("one", "two", "three", "four", "five")替换为你自定义的分组名称向量即可，向量长度和实际分组总数匹配就行。

效果说明 #

• 以上代码跑示例数据得到的final_output和手动构造的final_desired_output结构完全一致
• 后续新增分组（比如list_3_1、list_3_2、list_3_3）不需要修改代码，直接运行即可自动把对应分组加入结果
• 全程没有对原始向量做拷贝，即使单个序列长度达到千万级，内存占用也不会明显上涨

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