如何解决？

a<- data.frame(sex=c(1,1,2,2,1,1),
               bq=c(1,2,1,2,2,2),
               age=c(15,16,20,22,14,NA),
               height=c(1.75,1.70,1.65,1.68,1.72,1.80))

aaa<-function(vars){
  print(vars)  
  print(sex)
}

attach(a)
aaa("sex")

要求在函数内部(红色部分)修改，print(vars)  显示的结果和print(sex)结果一致。
谢谢！

1. > a<- data.frame(sex=c(1,1,2,2,1,1),
   
2. + bq=c(1,2,1,2,2,2),
   
3. + age=c(15,16,20,22,14,NA),
   
4. + height=c(1.75,1.70,1.65,1.68,1.72,1.80))
   
5. > aaa<-function(vars){
   
6. + print(eval(parse(text = vars)))
   
7. + print(sex)
   
8. + }
   
9. > attach(a)
   
10. > aaa("sex")
    
11. [1] 1 1 2 2 1 1
    
12. [1] 1 1 2 2 1 1

复制代码

1. print(eval(parse(text = vars)))

复制代码

zhangyangsmith 发表于 2012-10-23 14:44

结果不对。

zhangyangsmith 发表于 2012-10-23 14:44

如果传递的是aaa(sex)，函数中如何显示为"sex"

No idea. Why do you want to do that? Any examples?