R表达式中总和的术语

Question

给定一个 R 表达式，该表达式表示项的总和，例如

<代码>表达式

我想以名称或表达式列表的形式检索sum的所有项的集合。因此，在本例中，元素将是:< code>a、< code>b * c、< code>d和< code>e * f。

以下内容来自评论。

tems本身可以包含一个运算符，如

expression(a + b * c + d + e * (f + g))

所以我们需要对R语言有所了解。

是否有一个简单的方法进行，例如，使用pryr包的call_tree？

Answer 1

尝试递归解析表达式:

getTerms <- function(e, x = list()) {
  if (is.symbol(e)) c(e, x)
  else if (identical(e[[1]], as.name("+"))) Recall(e[[2]], c(e[[3]], x))
  else c(e, x)
}

expr <- expression(a + b * c + d + e * (f + g))
getTerms(expr[[1]])

给：

[[1]]
a

[[2]]
b * c

[[3]]
d

[[4]]
e * (f + g)

Answer 2

您可以使用递归函数对解析树进行爬网：

foo <- function(x) {
  if (is.call(x)) y <- as.list(x) else return(x)

  #stop crawling if not a call to `+`
  if (y[[1]] != quote(`+`)) return(x) 

  y <- lapply(y, foo)

  return(y[-1]) #omit `+` symbol
}

expr1 <- expression(a + b * c + d + e * f)
unlist(foo(expr1[[1]]))
#[[1]]
#a
#
#[[2]]
#b * c
#
#[[3]]
#d
#
#[[4]]
#e * f


expr2 <- expression(a + b * c + d + e * (f + g))
unlist(foo(expr2[[1]]))
#[[1]]
#a
#
#[[2]]
#b * c
#
#[[3]]
#d
#
#[[4]]
#e * (f + g)