在表达式中用字符串替换名称的正确方法

Question

我有一些关于在不同函数中以一致的方式用字符串替换表达式中的名称的问题 来自数据框

sample_df <- data.frame(a = 1:5, b = 5:1, c = c(5, 3, 1, 4, 1))

• 在lm 中，我可以使用不同的命令将回归量替换为公式中的字符串

  lm(a~get("b"),sample_df) # substituting a part of a formula
  lm(a~eval(as.name("b")),sample_df) # substituting a part of a formula
  lm(substitute(a~v,list(v=as.name("b"))),sample_df) # substituting the whole formula
  lm(eval(substitute(a~v,list(v=as.name("b"))),sample_df)) # substituting the whole formula
  eval(substitute(lm(a~v,sample_df),list(v=as.name("b")))) # substituting the whole call
  

  所有这些命令之间有什么区别？我可以看到前两个命令给出了一个分别命名为 get("b") 和 eval(as.name("b")) 的回归量，而其他命令给出了 b。还有其他（可能更微妙/有问题的）差异吗？为什么eval 在 3 和 4 之间不相关？

• 在data.table 中，所有工作都类似于lm

  sample_dt=as.data.table(sample_df)
  sample_dt[,mean:=mean(get("b"))]
  sample_dt[,eval(substitute(mean:=mean(v),list(v=as.name("b"))))]
  eval(substitute( sample_dt[,mean:=mean(v)],list(v=as.name("b"))))
  

• 现在，尝试用 dplyr 中的字符串替换名称

  sample_df %>% mutate(mean=mean(get("b")))
  eval(substitute(sample_df %>% mutate(mean=mean(v)),list(v=as.name("b"))))
  

  第一个在全局环境中寻找一个对象，而第二个工作。我怎么能预测 get 在 lm 和 [.data.table 中工作时不会在这里工作？

Answer 1

您为所描述的目的错误地设置了测试用例。您想通过包含字符值的变量传入各种值：

sample_df <- data.frame(a = 1:5, b = 5:1, c = c(5, 3, 1, 4, 1))
x <- "b"
lm(a~get(x),sample_df) # succeeds
lm(a~eval(as.name(x)),sample_df)  # also succeeds

更典型的做法是在 lm() 调用之外使用 as.formula：

form <- as.formula(paste("a ~", x))
form
#a ~ b
lm(form,sample_df)
predict(lm(form,sample_df))
1 2 3 4 5 
1 2 3 4 5 

在 lm() 函数之外执行此操作的优点是替换在 lm 处理工具记录调用之前完成。比较输出：

terms(lm(form,sample_df))
terms( lm(a~eval(as.name(x)),sample_df))

从第二个示例返回到quote(b) 需要大量的“语言计算”，而如果传入公式对象，则很容易从 terms() 对象中获取 RHS：

> terms(lm(form,sample_df))[[3]]
b