[英]Replacing a string in an R formula
我对R中的公式修改有疑问。
可以说我有一个公式。
> fo <- a ~ b + c
我可以使用substitute_q
替换术语
> pryr::substitute_q(fo, list(a = 'happy'))
"happy" ~ b + c
如果要替换不带引号的术语,可以将其替换为名称
> pryr::substitute_q(fo, list(a = as.name('happy')))
happy ~ b + c
但是,现在让我们说我有一个带字符串的公式。
> fo <- 'a' ~ b + c
> fo
"a" ~ b + c
我找不到从公式中替换字符串的方法。
> pryr::substitute_q(fo, list(a = as.name('happy')))
"a" ~ b + c
> pryr::substitute_q(fo, list("a" = as.name('happy')))
"a" ~ b + c
> pryr::substitute_q(fo, list(`"a"` = as.name('happy')))
"a" ~ b + c
> pryr::substitute_q(fo, list('"a"' = as.name('happy')))
"a" ~ b + c
我认为这是因为substitute_q
在执行替换时会在环境中查找变量,这意味着它始终尝试替换公式中的名称 。 有没有办法替换字符“ a”?
在基数R中,使用deparse
将公式转换为字符,执行必要的替换,然后强制返回公式
fo <- 'a' ~ b + c
as.formula(gsub("\"a\"", "\"happy\"", deparse(fo)))
#"happy" ~ b + c
fo2 = func1(a, b) ~ func2("e", 10) + b * c + func3(d)
as.formula(gsub("func2(\"e\", 10)", "func2(HAN, SOLO)", deparse(fo2), fixed = TRUE))
#func1(a, b) ~ func2(HAN, SOLO) + b * c + func3(d)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.