如何在R中嵌套表达式/引用，实现代码对象的合并替换？

问题原因 #

quote()生成的是未求值的表达式对象，它只会保留代码的字面结构，不会自动替换变量指向的表达式内容。所以third <- quote(first + second)里的first和second只是符号，不会被替换成它们实际存储的表达式。

解决方案 #

方法1：用substitute()替换符号

first <- quote(beta_a*a + beta_b*b)
second <- quote(beta_d*d + beta_e*e)
third <- substitute(first + second, list(first = first, second = second))

执行后third会返回合并后的表达式：beta_a*a + beta_b*b + beta_d*d + beta_e*e

方法2：批量合并多个表达式（适合大量效用函数场景）

如果需要合并多个表达式，把它们存入列表后用do.call()拼接：

# 批量定义效用表达式
expr_list <- list(
  quote(beta_a*a + beta_b*b),
  quote(beta_d*d + beta_e*e)
  # 可继续添加更多表达式
)
# 合并所有表达式
third <- do.call(function(...) quote(`+`(...)), expr_list)

这种方式无需手动逐个拼接，适合Apollo模型中减少重复编写的需求。

方法3：用bquote()插入表达式

语法更简洁的写法：

third <- bquote(.(first) + .(second))

同样能得到期望的合并结果。

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