R 自编函数中如何指代参数data的参数variable-经管之家官网！

之前发表了一个悬赏提问（https://bbs.pinggu.org/thread-5277059-1-1.html），但是没有成功解决，所以提高悬赏，再问一次，希望有经验丰富的R user能给些指点。谢谢~！
主要问题是我的函数要设置的参数包括数据集和数据集中的变量名，我希望运用函数的时候参数可以直接写数据集名称和变量名称就可以运行，但是不知道在函数内部需要怎么写，能让软件将我写的变量名识别为数据集中的某个变量（或某列）。
比如下面的函数，我希望使用函数的时候输入 recommend2(df, a, b) 就可以，而不是必须输入 recommend2(df, df$a, df$b) （df和a之间，df和b之间都有美元符号）。
请在这篇帖子下回复，这样我才能设置最佳答案，把悬赏给出去哦
我的另一个悬赏提问，if else 条件判断为缺失，程序无法运行，应该怎么处理，也希望大家能指导。
https://bbs.pinggu.org/forum.php?mod=viewthread&tid=5279912

1. recommend2 <- function(data, var1, var2) {
   
2. #若药物1的治疗有效率大于0.9，则推荐药物1
   
3. if (var2[var1==1]>0.9) {
   
4. r <- 1
   
5. } else if (
   
6. #若药物1与药物2、药物3的治疗有效率差异不大（<20%),则推荐药物1
   
7. max(abs(var2[var1==1]-var2[var1==2]/
   
8. max(var2[var1==1],var2[var1==2])),
   
9. abs(var2[var1==1]-var2[var1==2]/
   
10. max(var2[var1==1],var2[var1==2]))) <0.2) {
    
11. r <- 1
    
12. } else if (
    
13. #若药物1与药物2或药物3的治疗有效率差异大（>20%），则推荐治疗有效率高的药物
    
14. any(c(abs(var2[var1==1]-var2[var1==2]/
    
15. max(var2[var1==1],var2[var1==2])),
    
16. abs(var2[var1==1]-var2[var1==2]/
    
17. max(var2[var1==1],var2[var1==2]))) >0.2)) {
    
18. r <- var1[which.max(var2)]
    
19. }
    
20. return(r)
    
21. }
    
22. a <- c(1,2,3)
    
23. b <- c(0.6, 0.98, 0.95)
    
24. df <- data.frame(a,b)
    
25. rm(a,b)
    
26. recommend(df,df$a,df$b) #df与a之间，df与b之间均有美元符号 这样可以运行
    
27. recommend(df, a,b) # 这样无法运行，会提示object “b” 不存在

复制代码