如何按名称访问列表中的GLM模型？模型名称是否存于属性中？

我将多个GLM模型存储在列表中，定义方式如下：

model_list <- list(model_I, model_II, model_III...)

目前只能通过索引访问模型，示例如下：

model_list[[2]]$modelType
[1] "Regression"

想请教两个问题：

1. 能不能直接按模型名称（比如用model_list[[model_II]]$modelType这种写法）访问单个模型？
2. model_I这类模型的变量名是否存储在模型对象的某个属性中？

• 直接用model_list[[model_II]]这种方式不可行。因为在R里，当你把对象作为列表索引时，R会尝试将其转换为整数索引（GLM对象做转换大概率报错或得到错误结果），没法实现按名称访问的需求。

• 要实现按名称访问，最简单的方法是给列表元素命名：

  • 创建列表时直接指定名称：

    model_list <- list(model_I = model_I, model_II = model_II, model_III = model_III...)
    

  • 如果已经创建好未命名的列表，也可以事后添加名称：

    names(model_list) <- c("model_I", "model_II", "model_III")
    

  之后就可以用以下两种方式访问：

  # 方括号加引号的方式
  model_list[["model_I"]]$modelType
  # 美元符号的方式（更简洁）
  model_list$model_I$modelType
  

• 关于模型变量名是否存在属性里：
  默认情况下，GLM模型对象本身不会存储它的变量名（比如model_I）——变量名是你在环境中定义的，模型对象本身不知道这个名称。不过你可以手动给模型添加自定义属性来存储：

  # 给单个模型添加名称属性
  attr(model_I, "model_name") <- "model_I"
  # 查看该属性
  attr(model_I, "model_name")
  

  如果需要遍历列表匹配名称，也可以基于自定义属性做筛选，比如：

  # 找出属性model_name为"model_I"的模型
  target_model <- model_list[sapply(model_list, function(x) attr(x, "model_name") == "model_I")][[1]]
  target_model$modelType
  

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