r - 逐个构建公式

Question

我正在尝试构建一个在 deriv() 中使用的公式。它很长，所以我想把它分成几个部分(每个部分都有子部分)，但我不知道该怎么做。我已经尝试了 as.formula()、expression()、eval()、paste() 等的各种组合，但没有成功。我希望它最终看起来像这样(非工作示例):

chunk1a <- a + b^2/c
chunk1b <- 4*c - a^2
chunk1 <- chunk1a^2 + 4*chunk1b

chunk2a <- 3*a
chunk2b <- a*b*c^2
chunk2 <- 7*chunk2b/chunk2a

chunk3a <- 5*b*c/a
chunk3b <- b^4 + 5*c
chunk3 <- 4*chunk3a - 1/chunk3b

myderiv <- deriv(~ chunk1 + chunk2/chunk3, 
                 c('a', 'b', 'c'))

Answer 1

不要使用字符串和字符串操作(如@Justin 的回答)，而是使用带引号的调用和语言操作:

chunk1a <- quote(a + b^2/c)
chunk1b <- quote(4 * c - a^a)

substitute((a) ^ 2 + (b) * 4, list(a = chunk1a, b = chunk1b))

# OR
bquote(.(chunk1a) ^ 2 + .(chunk1b) * 4)

更多详情请访问 https://github.com/hadley/devtools/wiki/Computing-on-the-language