r - 用系数 (R) 从 lm 中提取公式

Question

我有一个 lm 对象，想用系数提取公式。我知道如何提取没有系数的公式，以及如何在没有公式的情况下获得系数，但不知道如何获得例如。 y ~ 10 + 1.25b 相对于 y~b 或截距表，b 等。

这是我目前正在使用的代码:

a = c(1, 2, 5)
b = c(12, 15, 20)

model = lm(a~b)
summary(model)
formula = formula(model)
formula
coefficients(model)

我想从上面得到的是 y ~ -5.326 + .51b

谢谢

编辑:在我的实际代码中，我使用了超过 63 个预测变量和 18 个不同的模型，所以我想要一些无需太多工作就可以扩展的东西。

Answer 1

as.formula(
  paste0("y ~ ", round(coefficients(model)[1],2), " + ", 
    paste(sprintf("%.2f * %s", 
                  coefficients(model)[-1],  
                  names(coefficients(model)[-1])), 
          collapse=" + ")
  )
)
# y ~ -5.33 + 0.51 * b