循环内使用substitute生成表达式列表的求值问题

你的问题核心在于substitute会保留符号i的引用，而非立即替换为循环中的当前值。当循环结束后i固定为3，所有表达式执行时都会读取这个最终值，导致结果一致。以下是几种可行的解决方案：

方法1：使用bquote()插入当前值 #

bquote()允许你通过.()语法将当前变量的值直接嵌入表达式中，避免延迟引用：

expressions = list()
values = list(1, 2, 3)

for (i in 1:3) {
  expressions[[i]] = bquote(print(values[[.(i)]]))
}

方法2：为substitute()指定独立环境 #

每次循环创建一个新环境，将当前i的值存入其中，让substitute从这个环境中读取i，而非全局环境：

expressions = list()
values = list(1, 2, 3)

for (i in 1:3) {
  local_env = new.env()
  local_env$i = i
  expressions[[i]] = substitute(print(values[[i]]), envir = local_env)
}

方法3：用purrr::map替代循环（更简洁） #

借助purrr的映射函数，自动为每个元素创建独立的表达式，避免循环变量捕获问题：

library(purrr)
values = list(1, 2, 3)
expressions = map(1:3, ~bquote(print(values[[.(.)]])))

验证效果 #

执行以下代码会得到预期的不同结果：

eval(expressions[[1]]) # 输出1
eval(expressions[[2]]) # 输出2
eval(expressions[[3]]) # 输出3

为什么之前的尝试无效？ #

• substitute(print(values[[eval(i)]]))中，eval(i)并不会被substitute执行，它只是被保留为表达式的一部分。最终eval整个表达式时，i已经是3，所以eval(i)仍返回3。
• Bang Bang（!!）是tidyeval框架的语法，仅在支持tidyeval的函数（如dplyr系列函数）中生效，无法直接在基础R的substitute里使用。

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