代码之家 › 专栏 › 技术社区 › Ben Bolker

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

formula recursion r

Ben Bolker · 技术社区 · 2 年前

假设我有一个公式或其他类似表达式的对象

ee <- a ~ b + c

并希望替换(例如)符号的所有实例 b 具有 B .实现这一点的技巧是使用字符串替换:

(ee 
   |> deparse() 
   |> gsub(pattern = "\\<b\\>", replacement = "B") 
   |> as.formula()
)

这是有效的(结果是 ee <- a ~ B + c ,根据需要)

可以说,更好的方法是编写一个递归函数,检查特定元素是否与目标元素相同,并用替换项替换它。如果是,则在元素上调用自己。。。这是一个巨大的痛苦。有人能建议 最小的 痛苦的实现方式(例如涉及 rapply() )?

(与 this question 关于移除公式中的术语…)

1 回复 | 直到 2 年前

Mikael Jagan 2 年前

递归函数已存在: substitute 。

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

请注意

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

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

> typeof(substitute)
[1] "special"

Allan Cameron 2 年前

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

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}

推荐文章

jkfe · 为什么println会在这段递归代码中执行?

3 年前

Brian Patterson · Javascript自定义数组。原型方法日志“未定义”

3 年前

Jimmy · 这种算法怎么能按顺序遍历树“爬上”树呢?

3 年前

iRon · 匿名递归函数

3 年前

ProgrammingNoob321312 · 为什么这个Java代码会输出“3210123”?

3 年前

AvirukBasak · gcc中无return语句的尾部递归

3 年前

Dharmik Patel · 使用python递归完全可以整除

3 年前

W.tan · 一维最短距离递归算法

3 年前

ncarrawa · 将1添加到i(递归)时出现类型错误

3 年前

Eren · Python递归何时返回[duplicate]

3 年前