替换公式/表达式中的符号

递归函数已存在: substitute 。

> do.call(substitute, list(ee, list(b = quote(B))))
a ~ B + c

请注意

> substitute(ee, list(b = quote(B)))
ee

不起作用,因为 代替 是一个特殊参数,不计算其第一个参数:

> typeof(substitute)
[1] "special"

如果你想要一个更方便的接口,下面的递归函数就可以了,它不使用字符串解析,也不会特别痛苦

replace_formula <- function(f, from, to, level = 1) {
  mc <- match.call()
  if(level > 1) f <- mc$f
  if(is.symbol(f) || is.function(f)) {
    if(identical(f, mc$from)) return(mc$to) else return(f)
  }
  as.call(lapply(as.list(f), function(x) {
    do.call(replace_formula, list(f = x, from = mc$from, to = mc$to, level + 1))
    }))
}

例如:

replace_formula(a ~ b + c, from = b, to = B)
#> a ~ B + c

replace_formula(x ~ y + x|d, y, Y)
#> x ~ Y + x | d

my_formula <- y ~ cos(sin(a)) + a

replace_formula(my_formula, a, A)
#> y ~ cos(sin(A)) + A

^{创建于2023-07-15 reprex v2.0.2}