Question

如何避免出现以下错误。 as.formula（）似乎不接受以数字开头的变量，后跟_（下划线）。我正在动态生成这些变量，我处于一个我不想返回并更改变量名称的阶段。谢谢

lhsOfFormula = "25_dep"
rhsOfFormula  = "predVar1+predVar2+10_predVar3"
as.formula(paste(lhsOfFormula , " ~ ", rhsOfFormula ))

ERROR：

> as.formula(paste(lhsOfFormula , " ~ ", rhsOfFormula ))
Error in parse(text = x) : <text>:1:3: unexpected input
1: 25_
     ^

Answer 1

你需要在反引号中包装名称，类似这样的

> lhsOfFormula <- "25_dep"
> rhsOfFormula <- c("predVar1", "predVar2", "10_predVar3")
> addq <- function(x) paste0("`", x, "`")
> as.formula(paste(addq(lhsOfFormula) , " ~ ", paste(addq(rhsOfFormula),collapse=" + " )))
`25_dep` ~ predVar1 + predVar2 + `10_predVar3`

我还隐约记得有一个函数来帮助创建公式，比如formulate，也许？但是我在快速搜索中找不到任何相关内容。

编辑：感谢@DWin，它是reformulate，它有助于响应而不是预测变量。这里RHS被更改为具有有效名称，以便代码可以工作：

> lhsOfFormula = "25_dep"
> rhsOfFormula  = c("predVar1", "predVar2", "x10_predVar3")
> reformulate(rhsOfFormula, lhsOfFormula)
`25_dep` ~ predVar1 + predVar2 + x10_predVar3

编辑：直接将公式应用于数据框将自动添加反引号，使用第一列作为响应

> d <- data.frame(`25_dep`=1:5, predvar1=1:5, predvar2=1:5, `10_predvar3`=1:5, 
                  check.names=FALSE)
> formula(d)
`25_dep` ~ predvar1 + predvar2 + `10_predvar3`

可以调整该函数的代码（stats:::formula.data.frame）;它使用as.name这样：

> lhsOfFormula <- "25_dep"
> rhsOfFormula <- c("predVar1", "predVar2", "10_predVar3")
> ns <- sapply(c(lhsOfFormula, rhsOfFormula), as.name)
> formula(paste(ns[1], paste(ns[-1], collapse="+"), sep=" ~ "))
`25_dep` ~ predVar1 + predVar2 + `10_predVar3`

R中的as.formula似乎不接受以数字后跟_开头的名称

1 个答案: