重新制定 R log(Y+1)

Question

我正在处理一个数据集，我必须在其中生成要动态传递给 lm 的公式。所以，我正在使用重新制定来做到这一点。

formula = reformulate(termlabels = c('feature1', 'feature2', 'feature3'), response="y")

y 是连续的。

这让我得到了公式 y ~ feature1+feature2+feature3

但是我希望公式为 log(y+1) ~ feature1+feature2+feature3

如何使用重新制定来做到这一点？

Answer 1

将响应作为带引号的表达式传递:

x <- c("feature1", "feature2", "feature3")
reformulate(x, response=quote(log(y+1)))

或者您可以手动构建公式。这就是 reformulate 在后台所做的。

formula(paste("log(y + 1) ~", paste(x, collapse="+")))