r - 在线性模型中结合 cbind 和 paste

Question

我想知道我怎样才能想出lm使我能够使用 paste 的公式语法连同cbind用于多元多元回归。

例子

在我的模型中，我有一组变量，对应于下面的原始示例:

data(mtcars)
depVars <- paste("mpg", "disp")
indepVars <- paste("qsec", "wt", "drat")

问题

我想用我的 depVars 创建一个模型和 indepVars .手工输入的模型看起来像这样:

modExmple <- lm(formula = cbind(mpg, disp) ~ qsec + wt + drat, data = mtcars)

我有兴趣生成相同的公式而不引用变量名并且只使用 depVars和 indepVars上面定义的向量。

尝试 1

例如，我想到的将对应于:

mod1 <- lm(formula = formula(paste(cbind(paste(depVars, collapse = ",")), " ~ ",
                                   indepVars)), data = mtcars)

尝试 2

我也试过这个:

mod2 <- lm(formula = formula(cbind(depVars), paste(" ~ ",
                                                   paste(indepVars, 
                                                         collapse = " + "))),
           data = mtcars)

旁注

我找到了多个good examples关于如何使用 paste使用公式，但我想知道如何与 cbind 结合使用.

这主要是一个语法问题；在我的真实数据中，我想向模型中引入许多变量，利用以前生成的向量更加简洁，并使代码更易于展示。实际上，我只对创建一个包含 cbind 的公式对象感兴趣。变量名对应一个向量，其余变量对应另一个向量。

总之，我想得出modExample中的公式无需键入变量名称。

Answer 1

认为它有效。

data(mtcars)
depVars <- c("mpg", "disp")
indepVars <- c("qsec", "wt", "drat")

lm(formula(paste('cbind(',
                 paste(depVars, collapse = ','),
                 ') ~ ',
                 paste(indepVars, collapse = '+'))), data = mtcars)