我们可以这样使用替代：

subst <- function(e, sub = list(`+` = "add", 
                                `-` = "minus",
                                `/` = "divide",
                                `*` = "multiply")) {
  sub <- Map(as.name, sub)
  do.call("substitute", list(e, sub))
}

# test
e <- quote(x + (y + 1) * z)
res <- subst(e); res
## add(x, multiply((add(y, 1)), z))

# evaluate test against values
add <- `+`; multiply <- `*`; x <- 1; y <- 2; z <- 3
eval(res)
## [1] 10

字符串
如果你想要一个字符串结果，

deparse1(subst(e))
## [1] "add(x, multiply((add(y, 1)), z))"

型

这可能只是因为我不太理解rapply，但任何时候我试图使用它，我的代码都比编写自己的递归函数更复杂。
在本例中，我将递归函数放在一个瘦 Package 器中，该 Package 器允许直接输入表达式，而无需使用quote（如果需要）。

sub_call <- function(input, direct = TRUE,
                     subs = list(`+` = "add", `-` = "minus", 
                                 `/` = "divide", `*` = "multiply")) {
  scall <- function(x, subs) {
    if(is.call(x))
    {
      if(as.character(x[[1]]) %in% names(subs)) {
        x[[1]] <- str2lang(subs[[match(as.character(x[[1]]), names(subs))]])
      }
    }
    if(length(x) == 1) return(x) 
    x[-1] <- lapply(x[-1], scall, subs = subs)
    x
  }

  if(direct) return(scall(as.list(match.call())$input, subs))
  return(scall(input, subs))
}

字符串
这允许直接输入表达式：

sub_call(x + y*z)
#> add(x, multiply(y, z))

型
或间接输入：

my_expr <- quote(x + y*z)

sub_call(my_expr, direct = FALSE)
#> add(x, multiply(y, z))

型
并处理任意深度的嵌套，使括号保持不变：

sub_call(sin(((x + (1/3))^2)))
#> sin(((add(x, (divide(1, 3))))^2))

型

使用外部包，这也可以用rrapply()（在rrapply包中）来完成，与基本rapply()相反，它也通过调用对象/表达式向量递归：

## examples 
lang <- quote(x + (y + 1) * z)
expr <- expression(x + (y + 1) * z, sin(((x + (1/3))^2)))

## replacement function
replace_symbol <- function(s) {
    switch(
      as.character(s),
      '+' = quote(add),
      '-' = quote(minus),
      '/' = quote(divide),
      '*' = quote(multiply),
      s
    )
}

lang1 <- rrapply::rrapply(lang, f = replace_symbol, how = "replace")
str(lang1)
#>  language add(x, multiply((add(y, 1)), z))

expr1 <- rrapply::rrapply(expr, f = replace_symbol, how = "replace")
str(expr1)
#>   expression(add(x, multiply((add(y, 1)), z)), sin(((add(x, (divide(1, 3))))^2)))

字符串