我需要创建几个具有modelr::formulas()
个函数的公式,这些公式针对我拥有的每个组的一些独立变量进行区分.例如,我想为第1组和第2组生成
log(price) ~ year + 'var1_Group 1':var2
log(price) ~ year + 'var1_Group 1':var3
log(price) ~ year + 'var1_Group 2':var2
log(price) ~ year + 'var1_Group 2':var3
我try 了as.formula()
个功能,但没有成功:
map(c("Group 1", "Group 2"),
.f = \(x) {
formulas <- formulas(~ log(price),
reg1 = as.formula(~ year + str_c("`var1_", x, "`:var2")),
reg2 = as.formula(~ year + str_c("`var1_", x, "`:var3")))
})
这回到了我:
[[1]]
[[1]]$reg1
log(price) ~ year + str_c("`var1_", x, "`:var2")
<environment: 0x0000027365340dc0>
[[1]]$reg2
log(price) ~ year + str_c("`var1_", x, "`:var3")
<environment: 0x0000027365340dc0>
[[2]]
[[2]]$reg1
log(price) ~ year + str_c("`var1_", x, "`:var2")
<environment: 0x000002730bac4590>
[[2]]$reg2
log(price) ~ year + str_c("`var1_", x, "`:var3")
<environment: 0x000002730bac4590>
提前感谢!