將字符串轉換為基礎 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)))