R中文本的动态公式

Question

我想从文本中读取公式，然后执行它。

示例1 -

a <- 4
b <- 7 
formula_text2 <- "a * b"
y2 = as.formula(formula_text2)

示例2 - （使用dplyr）

x <- data.frame("SN" = 1:2, "Age" = c(21,15))
formula_text = "x %>%   mutate( AGE_SQ = Age * Age)"
y = as.formula(formula_text)

上述两种方法都会导致错误。

Answer 1

使用eval / parse：

eval(parse(text = formula_text2))
## [1] 28

eval(parse(text = formula_text))
##   SN Age AGE_SQ
## 1  1  21    441
## 2  2  15    225