如何在R中调整嵌套列表层级并重命名元素

要实现把嵌套列表的二级元素提升为一级，并命名为1.1、1.2这类格式，核心是保留回归模型对象的完整性，同时按父/子索引组合新名称——避免像unlist那样拆解模型结构导致失效。以下是两种高效实现方式：

方法一：基础R循环（无需额外包） #

假设你的嵌套列表名为nested_models，结构是一级元素包含多个回归模型（二级元素）：

# 示例嵌套列表（替换成你的实际数据）
nested_models <- list(
  group1 = list(lm(mpg ~ wt, mtcars), lm(mpg ~ wt + hp, mtcars)),
  group2 = list(lm(mpg ~ disp, mtcars), lm(mpg ~ disp + drat, mtcars))
)

# 初始化空列表存储处理后的结果
flattened_models <- list()
current_pos <- 1

# 遍历一级元素
for (parent_idx in seq_along(nested_models)) {
  # 遍历当前一级元素下的所有二级模型
  for (child_idx in seq_along(nested_models[[parent_idx]])) {
    # 设置新名称：父索引.子索引
    names(flattened_models)[current_pos] <- paste0(parent_idx, ".", child_idx)
    # 将二级模型添加到新列表
    flattened_models[[current_pos]] <- nested_models[[parent_idx]][[child_idx]]
    current_pos <- current_pos + 1
  }
}

方法二：用purrr包简化代码（更简洁） #

如果习惯tidyverse风格，用purrr的imap函数可以更高效地完成遍历和命名：

library(purrr)

flattened_models <- imap(nested_models, function(child_group, parent_idx) {
  # 遍历每个子组内的模型，生成带新名称的子列表
  imap(child_group, function(model, child_idx) {
    list(model) %>% set_names(paste0(parent_idx, ".", child_idx))
  })
}) %>% 
  # 把嵌套的子列表平展为一级列表
  flatten()

验证使用 #

处理完成后，直接传入compare_performance函数即可：

library(performance)
compare_performance(flattened_models)

为什么之前的方法失效？ #

unlist或rlist::flatten会递归拆解列表到原子向量级别，破坏了回归模型的对象结构，导致无法被compare_performance识别。上面的方法是直接提取完整的模型对象，仅调整列表层级和命名，因此能保留模型的完整性。

内容的提问来源于stack exchange，提问作者Felipe Gonçalves Pereira