请教sas 排序取值问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

原始data aa  希望可以根据变量a1  a2  a3  a4 排序1-4； 得到对应的d1   d2   d3   d4 的值；并且只要前两个，及a1  a2  a3  a4 中为1和2的值；得到data BB；
data aa;
   input   a1  a2  a3  a4   d1   d2   d3   d4 @@;
   cards;
         2    1   4   3   145  45   34   45
         1    3   3   1    43   3   55   45
         .    2   .   4     .  32    .   44
         3    4   1   .    44  55    3    .
         4    .   2   2    22       34    6
   ;
run;
希望得到DATA  BB如下：
a1  a2  a3  a4   d1   d2   d3   d4  
1    1   1   1      43   45   3    45
2    2   2   2     145   32   34   6
求高手：

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：cards Input Data card 求高手

路过。。拿分闪人！

求高手

帮你一忙， 大恩不言谢

1. %macro sex;
   
2. %do i=1 %to 4;
   
3. data a&i;
   
4. set aa;
   
5. keep a&i d&i;
   
6. run;
   
7. proc sort data=a&i;
   
8. by a&i;
   
9. run;
   
10. data a&i;
    
11. set a&i;
    
12. if a&i not in (1,2) then delete;
    
13. run;
    
14. %end;
    
15. data final;
    
16. retain a1-a4 d1-d4;
    
17. merge a1 a2 a3 a4;
    
18. run;
    
19. %mend;
    
20. 
    
21. %sex;

复制代码

data aa;
   input   a1  a2  a3  a4   d1   d2   d3   d4 @@;
   cards;
2    1   4   3   145  45   34   45
1    3   3   1    43   3   55   45
.    2   .   4     .  32    .   44
3    4   1   .    44  55    3    .
4    .   2   2    22  .     34    6
;
run;


%macro twomin(num);
if a&num ne . then do;
      if mst(1,&num) = 0 or a&num<mst(1,&num) then do;
            mst(2,&num)=mst(1,&num);
                trn(2,&num)=trn(1,&num);
        mst(1,&num)=a&num;
                trn(1,&num)=d&num;
          end;
      else if mst(2,&num) = 0 or a&num<mst(2,&num) then do;
           mst(2,&num)=a&num;
                   trn(2,&num)=d&num;
          end;
  end;   
%mend twomin;

data bb(drop=i j);
        array mst(2,4) _temporary_;
        array trn(2,4) _temporary_;
        do i=1 to 2;
          do j=1 to 4;
            mst(i,j)=0;
                trn(i,j)=0;
          end;
        end;
        do i=1 to toobs;
           set aa point=i nobs=toobs;       
       %twomin(1)
           %twomin(2)
           %twomin(3)
           %twomin(4)
        end;
        do i=1 to 2;
           a1=mst(i,1);
           a2=mst(i,2);
           a3=mst(i,3);
           a4=mst(i,4);
           d1=trn(i,1);
           d2=trn(i,2);
           d3=trn(i,3);
           d4=trn(i,4);
      output;
    end;       
        stop;

run;

proc print data=bb;
run;

applebobysps 发表于 2012-9-5 10:34
求高手

谢谢  很好理解很好用  麻烦问一下 我的变量有50个 观测30   取前10.。。那样的话跑起来会不会很慢

Imasasor 发表于 2012-9-5 11:43
帮你一忙， 大恩不言谢

谢谢  很好理解很好用  麻烦问一下 我的变量有50个 观测30   取前10.。。那样的话跑起来会不会比较慢；而且会生成很多data

haku_x300 发表于 2012-9-5 12:38
data aa;
   input   a1  a2  a3  a4   d1   d2   d3   d4 @@;
   cards;

谢谢高手  。。这个运行很快。麻烦再请教一下  如果变量很多。。。50*30的。。。。是不是要写很长code
每个变量都要重新定义一次

applebobysps 发表于 2012-9-5 17:07
谢谢  很好理解很好用  麻烦问一下 我的变量有50个 观测30   取前10.。。那样的话跑起来会不会很慢

小数据，不会慢，你的变量是有规律的，有规律的变量都可以简写。a1 a2....a50，就可以写成a1-a50

Imasasor 发表于 2012-9-5 17:14
小数据，不会慢，你的变量是有规律的，有规律的变量都可以简写。a1 a2....a50，就可以写成a1-a50

恩  前面的变量我是这样简写的  merge 的时候  是不是不能用简写了？