使用函数传递的数据评估模型矩阵

Question

任何见解为什么只有两个中的第一个＆＃34;与＆＃34;下面的调用返回模型矩阵，而第二个调用返回错误消息？

data<-data.frame(y=runif(10),x=runif(10))
formula1<-y~x
with(data,model.matrix(y~x))
with(data,model.matrix(formula1))
#Error in eval(predvars, data, env) : object 'y' not found

Answer 1

以下作品

data<-data.frame(y=runif(10),x=runif(10))
formula1<-"y~x"
with(data,model.matrix(y~x))
with(data,model.matrix(formula(formula1)))

请阅读post1和post2，了解非常相似的问题和非常有见地的评论。