如何在R语言中替换方程指定符号并简化方程？

需求说明：将num_names中的符号替换为num_values对应数值，同时完成方程简化——可直接计算的部分求值，含未知变量的部分保留简化后的表达式。

原始数据 #

num_names <- c("num_a","num_aa","num_aaa","num_b")
num_values <- c(1,2,3,4)

df <- data.frame(id=c(1:3),
                 equation=c("2*x_a*num_a","num_a*(num_aa+1)^2","num_aaa+num_b*x_b"),
                 stringsAsFactors = F)

df

实现代码 #

# 构建符号-数值的替换映射
replace_map <- setNames(as.character(num_values), num_names)

# 定义处理单个方程的函数
process_equation <- function(expr_str) {
  # 逐个替换方程中的目标符号，用\\b确保完整匹配单词
  for (name in names(replace_map)) {
    expr_str <- gsub(paste0("\\b", name, "\\b"), replace_map[name], expr_str)
  }
  # 解析表达式并尝试简化或求值
  parsed_expr <- parse(text = expr_str)
  simplified_result <- tryCatch(
    # 无未知变量时直接计算结果
    expr = as.character(eval(parsed_expr)),
    # 存在未知变量时，简化表达式并转回字符串
    error = function(e) {
      deparse(simplifyParsed(parsed_expr))
    }
  )
  return(simplified_result)
}

# 应用函数到数据框的equation列
df$equation <- sapply(df$equation, process_equation)

# 查看最终结果
df

运行结果 #

id equation
1  1    2*x_a
2  2        9
3  3  3+4*x_b

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