如何在R中用quote()生成多变量call类可求值表达式？

要批量生成coef1 * prev1 + coef2 * prev2 + ...这类可直接求值的call类表达式，不用手动逐个输入变量，有两种实用方法：

方法一：纯call对象构建（推荐，无字符串解析风险） #

通过call()函数构建单个乘法项，再用Reduce()把所有项用+串联起来：

# 定义系数和变量的名称向量（可根据需求扩展长度）
coef_names <- paste0("coef", 1:3)
prev_names <- paste0("prev", 1:3)

# 生成每个系数×变量的乘法call对象
terms <- mapply(function(coef, var) {
  call("*", as.name(coef), as.name(var))
}, coef_names, prev_names, SIMPLIFY = FALSE)

# 把所有乘法项用+连接成最终的call表达式
final_expr <- Reduce(function(x, y) call("+", x, y), terms)

# 验证类型和求值
class(final_expr)
#> [1] "call"

# 赋值后直接求值
coef1 <- 2; coef2 <- 3; coef3 <- 4
prev1 <- 10; prev2 <- 20; prev3 <- 30
eval(final_expr)
#> [1] 200

方法二：字符串解析法（代码简洁，注意名称合法性） #

先构建表达式字符串，再用parse()解析为call对象：

# 构建表达式字符串
expr_str <- paste(paste0(coef_names, " * ", prev_names), collapse = " + ")
# 解析为call对象（取parse返回的第一个元素）
final_expr <- parse(text = expr_str)[[1]]

class(final_expr)
#> [1] "call"
eval(final_expr)
#> [1] 200

关键说明 #

• 直接用paste0()生成的是字符串，无法直接求值；把paste0()包在quote()里只会得到paste0()的函数调用表达式，不会执行字符串拼接。
• 方法一全程操作R的语言对象（name、call），避免字符串解析可能带来的风险（比如变量名含特殊字符）；方法二代码更简洁，但需确保系数和变量名是合法的R标识符。

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