求变量排序问题

假设数据表test中有A、B、C、D、E、F六个变量,如何实现新增64变量max1,max1V,max3，maxV分别等于6个值大小排序中的最大值和记录最大值的变量名和记录第3大值的变量名（如果两个变量值相等，则记录为两个变量值的复合）原始表
obs     A       B      C      D      E      F
1       5       6      4       10     8      9
2       8       6      6       5       9      4
应该得到新的数据表
obs     A       B      C      D      E      F      max1        max1V      max2      max2V   
1       5       6      4       10     8      9        10             D            8             E
2       8       6      6       5       9      4         9             F             6             BC

求助各位大神，这个逻辑如何实现？

若你希望第三行返回的第3大的值为 6，则有另外一种做法——寻找最大的值，然后将它写成缺失。重复3次，第3次的最大值即为要寻找的第3大的值。

1. data test;
   
2.   input A B C D E F;
   
3.   cards;
   
4. 5 6 4 10 8 9
   
5. 8 6 6 5 9 4
   
6. 8 6 6 9 9 4
   
7. 9 9 9 9 9 9
   
8. ;
   
9. run;
   
10. 
    
11. data want;
    
12.   set test;
    
13. 
    
14.   array _par_[6] A B C D E F;
    
15.   array _tmp_[6]_temporary_;
    
16.   array _max_[3]max1-max3;
    
17.   array _maxv_[3]$42. max1v max2v max3v;
    
18. 
    
19.   do i=1 to dim(_par_);
    
20.     _tmp_[i]=_par_[i];
    
21.   end;
    
22. 
    
23.   do t=1 to 3;
    
24.     _max_[t]=max(of _tmp_[*]);
    
25.     do i=1 to dim(_par_);
    
26.       if _tmp_[i]=_max_[t]^=. then do;
    
27.         _maxv_[t]=catx(',',_maxv_[t],vname(_par_[i]));
    
28.         _tmp_[i]=.;
    
29.       end;
    
30.     end;
    
31.   end;
    
32. run;

复制代码

是否考虑最大值存在结的情况？如 A 和 B 的值都是最大值时，是否也将结果写作 A, B ?
若不存在第3大的值怎么办？如 A 至 F 的值都一样大，此时第3大的值是否为缺失值？

假设刚才所提的两个问题都有肯定的回答。

1. data test;
   
2.   input A B C D E F;
   
3.   cards;
   
4. 5 6 4 10 8 9
   
5. 8 6 6 5 9 4
   
6. 8 6 6 9 9 4
   
7. 9 9 9 9 9 9
   
8. ;
   
9. run;
   
10. 
    
11. data want;
    
12.   set test;
    
13. 
    
14.   length max1 8 max1v $42. max3 8 max3v $42.;
    
15.   array _par_[6] A B C D E F;
    
16.   array _gt_[6]_temporary_;
    
17. 
    
18.   max1=max(of _par_[*]);
    
19.   call missing(of _gt_[*]);
    
20. 
    
21.   do i=1 to dim(_par_);
    
22.     if _par_[i]=max1 then max1v=catx(',',max1v,vname(_par_[i]));
    
23.     do j=1 to dim(_par_);
    
24.       if _par_[i]<_par_[j] then _gt_[i]+1;
    
25.     end;
    
26.     if _gt_[i]=2 then do;
    
27.       max3=_gt_[i];
    
28.       max3v=catx(',',max3v,vname(_par_[i]));
    
29.     end;
    
30.   end;
    
31. run;

复制代码

谢谢大神虽然还没看懂，但是结果很赞