我有一个名为modelTrain
的对象,由glm()
函数生成。这个对象还有其他几个对象,如:coefficients
、formula
、terms
等。
modelTrain<- glm(Def90Adj ~ .-1,data=base,family=binomial(link='logit'))
我必须更改一些变量的名称,保留用于预测的值。modelTrain
中的一个对象类型为"调用"(或"语言"(
其内容如下:
attr(,"variables")
list(Def90Adj, `AveLncerLimiteRatio(0,1.04]`, `AveLncerLimiteRatio(1.04,3.96]`,
`AveLncerLimiteRatio(11.4,40.3]`, `AveLncerLimiteRatio(3.96,11.4]`,
`AveLncerLimiteRatio(40.3, Inf]`, `Ave6mEvoluçãoAvencerRatio(0, Inf]`,
`Ven6mEvoluçãoVencidoRatio(0.0001, Inf]`, `Ven6mEvoluçãoVencidoRatio[-Inf,-0.0001]`,
`Avvencer(0,1.01e+04]`, `AVBenNegAVenRatio(0, Inf]`,
`AVeNnNociAVenRatio(0, Inf]`, LimDummy, VencidoDummy,
PrejuDummy, AVedncerDummy)
我想将带有特殊字符(如"Ven6mEvoluçãoVencidoRatio(0.0001, Inf]"
(的名称更改为"Ven6mEvolucaoVencidoRatio(0.0001, Inf]"
(没有特殊字符(
我尝试复制没有特殊字符的当前内容
attr(modelTrain$terms, "variables") <- list((Def90Adj,AveLncerLimiteRatio(0,1.04]....
但它抛出错误:
未找到"Def90Adj"。
蛮力方法使用quote()
:
L1 <- quote(list(Def90Adj, `AveLncerLimiteRatio(0,1.04]`, `AveLncerLimiteRatio(1.04,3.96]`,
`AveLncerLimiteRatio(11.4,40.3]`, `AveLncerLimiteRatio(3.96,11.4]`,
`AveLncerLimiteRatio(40.3, Inf]`, `Ave6mEvolucaoAvencerRatio(0, Inf]`,
`Ven6mEvolucaoVencidoRatio(0.0001, Inf]`, `Ven6mEvolucaoVencidoRatio[-Inf,-0.0001]`,
`Avvencer(0,1.01e+04]`, `AVBenNegAVenRatio(0, Inf]`,
`AVeNnNociAVenRatio(0, Inf]`, LimDummy, VencidoDummy,
PrejuDummy, AVedncerDummy))
要以编程方式执行此操作,您需要类似的东西:
for (i in 2:length(L1)) {
L1[[i]] <- substitute(x,list(x=gsub("V","v",deparse(L1[[i]]))))
}
(这个例子只是将大写的V更改为小写的v...
对这个问题的答案表明,stringi::stri_trans_general(x,"Latin-ASCII")
会将重音字符转换为非重音类似物......