R语言如何将嵌套for循环生成的公式结果存入list或vector

为什么之前的向量存储尝试会失败 #

R的基础原子向量（用c()生成）仅支持存储数字、字符、逻辑值这类基础原子类型。公式对象属于带S3类属性的结构化列表结构，如果直接用c()拼接存储，会被强制转换成纯字符文本，丢失公式的类属性，后续直接代入lm()等建模函数时会报错。统一用列表存储这类结构化对象是R中的常规最优方案。

具体实现步骤 #

1. 避开变量名冲突：尽量不要用seq作为自定义变量名，这是R内置函数名，容易引发潜在报错，可替换为seq_vals
2. 提前初始化空列表作为存储容器
3. 修改原有循环逻辑：去掉零散生成全局对象的assign语句，每轮循环生成的公式对象直接按索引追加到列表中

如果不需要存储参数关联信息，可以直接将生成的公式对象作为列表元素存储，不需要额外嵌套结构

对应修改后的可运行代码 #

# 定义序列
seq_vals <- seq(1,4,1)
# 提前初始化存储列表
formula_list <- list()

# 双层嵌套循环
for (p_try in seq_along(seq_vals)){
  for (p_order  in seq_along(seq_vals)){
    # 生成公式文本
    fmla_text <- paste("Rent ~ poly(SizeSqft,", p_order,") + poly(Bedrooms,",p_try,")")               
    fmla_obj <- as.formula(fmla_text)
    # 直接将公式追加存入列表，可选搭配存储对应参数信息方便后续索引
    formula_entry <- list(
      formula = fmla_obj,
      size_poly_degree = p_order,
      bedroom_poly_degree = p_try
    )
    formula_list[[length(formula_list) + 1]] <- formula_entry
  }
}

方案优势 #

• 不需要在全局环境生成大量零散命名的对象（如R11、R12这类），所有相关对象集中在一个列表中，便于遍历调用
• 存储过程中同步保留每个公式对应的多项式阶数参数，后续批量跑回归、提取拟合结果时不需要反向对应索引和参数的关系
• 避免assign带来的命名冲突问题，代码可维护性更强

简化无循环版本（可选） #

如果不需要循环的中间逻辑，可直接先生成所有参数组合，批量生成所有公式，代码更简洁：

# 生成所有参数的组合网格
param_grid <- expand.grid(
  p_order = seq_vals,
  p_try = seq_vals
)
# 逐行批量生成公式存入列表
formula_list <- apply(param_grid, 1, function(r) {
  as.formula(paste(
    "Rent ~ poly(SizeSqft,", r["p_order"],
    ") + poly(Bedrooms,", r["p_try"], ")"
  ))
})

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