将字符串转换为基础 R 中的公式对象

Question

我想知道是否有办法将像"time"这样的字符串转换为像time ~ 1 in BASE R这样的formula对象？

注意：通过formula ，我的意思是在lm() 。

这是我尝试但没有成功的方法：

a = "time"

formula(bquote(.(noquote(a)))~1)

# Desired output a formula object:

time ~ 1

Answer 1

使用reformulate

a <- "time"
reformulate("1", a)
## time ~ 1

这也有效：

formula(paste(a, "~ 1"))
## time ~ 1

流

请注意， lm可以使用字符串而不是公式，因此我们实际上不必将字符串转换为公式（除了公式具有附加的环境，因此在某些情况下它可能会有所作为，尽管通常会获胜） 't)。 下面ch可以从碎片粘贴在一起。 下面的两个lm示例都可以工作，但在第一个示例中，它会在输出中按字面显示Call: lm(formula = ch, data = BOD)而后者将显示实际公式Call: lm(formula = "demand ~ Time", data = BOD)在输出中。

ch <- "demand ~ Time"

lm(ch, BOD)
do.call("lm", list(ch, quote(BOD)))