R if else 条件判断为缺失如何处理-经管之家官网！

我写了段函数用于推荐药物，data为数据集，包含var1，var2两个变量，其中var1为药物种类（最多有3种），var2为对应的治疗有效率。因为药物1最经济，所以在药物1的治疗有效率可接受时，总是优先推荐药物1。这段程序在数据包含所有三种药物（即var1包含1、2、3）时可以运行。
但是有时数据只有两种或者一种药物的记录，这时候if else的条件判定就是缺失值，而非TRUE/FALSE，程序就运行不了。我想请教要如何处理这种情况？难道每次都要先判断var1是否包含1，var1是否包含2……？那样感觉条件套条件套条件，语句好复杂，我自己都会理不清。有没有高手能给点建议
我的另一悬赏提问，关于R自编函数中如何设置参数，也希望大家能多指导，谢谢！（https://bbs.pinggu.org/forum.php?mod=viewthread&tid=5279912&page=1&extra=）

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. c <- c(2,3)
    
26. d <- c(0.86, 0.90)
    
27. df2 <- data.frame(c,d)
    
28. 
    
29. recommend(df,df$a,df$b) #当var1包含1、2、3时可以运行。df与a之间，df与b之间均有美元符号。
    
30. recommend(df2, df$c, df$d) #当var1中没包含1时，无法运行。df与c之间，df与d之间均有美元符号。

复制代码