SAS根据多个列筛选有效数据

fyfzhdsfdx 发表于 2013-6-7 19:59
这些是原始数据，没有转置。
sas的数组我不太会用，能不能麻烦您写一下代码？不过这些列没有之间没有规律 ...

1. data t1;
   
2.     input c1-c8;
   
3. datalines;
   
4. 1 1 1 1 2 3 4 5
   
5. 2 2 2 2 1 2 3 4
   
6. 1 3 3 3 2 1 2 3
   
7. 2 1 4 4 1 3 1 2
   
8. 1 2 1 5 2 2 4 1
   
9. ;
   
10. run;
    
11. 
    
12. /*111111111111111111111111111*/
    
13. proc transpose data=t1 out=t2;
    
14. run;
    
15. data t02 t03 t04 t05;
    
16.      set t2;
    
17.          array cc c:;
    
18.          do over cc;
    
19.              if cc=max(of col:) then max=cc;
    
20.          end;
    
21.          if max=2 then output t02;
    
22.      else if max=3 then output t03;
    
23.          else if max=4 then output t04;
    
24.          else output t05;
    
25.          keep _NAME_;
    
26. run;
    
27. 
    
28. /*222222222222222222222222222*/
    
29. proc means data=t1 noprint;
    
30.     output out=t3(drop=_type_ _freq_) max=/keeplen;
    
31. run;
    
32. proc transpose data=t3 out=t4;
    
33. run;
    
34. data t002 t003 t004 t005;
    
35.      set t4;
    
36.          if col1=2 then output t002;
    
37.      else if col1=3 then output t003;
    
38.          else if col1=4 then output t004;
    
39.          else output t005;
    
40.          drop col1;
    
41. run;

复制代码

boe 发表于 2013-6-6 23:41
这是转置过的数据？
在转置之前，用数组可能也能操作。。。

下面的代码是我想实现的，求有没有简单的代码来实现那？
%macro valid(r);
%do i=1 %to &r;
data b&i;set a&i;
if (max(_col2, _col4, _col6, _col7, of _col18-_col25)in (1,2) and min(_col2, _col4, _col6, _col7, of _col18-_col25) in (1,2)) and
   (_col5 in(1,2,3)) and
   (max(_col3, _col8)in (1,2,3,4) and min(_col3, _col8)in (1,2,3,4)) and
   (max(of _col10-_col17)in (1,2,3,4,5) and min(of _col10-_col17) in (1,2,3,4,5)) and
   (_col9 in(1,2,3,4,5,6,7,8,9,10,11,12)) and
   (max(of A1-A24)in (1,2,3,4,5) and min(of A1-A24) in (1,2,3,4,5)) and
   (max(of B1-B30)in (1,2,3,4,5) and min(of B1-B30) in (1,2,3,4,5)) and
   (max(of C1-C68)in (1,2,3,4,5) and min(of C1-C68) in (1,2,3,4,5)) then output b&i;
run;
%end;
%mend valid;
%valid(20);
但是这个代码的最后结果会包含缺失值，我想把缺失值也给删除，怎么实现那？下面这个代码对吗？
%macro nonmiss(r);
%do i=1 %to &r;
data b&i;set b&i;
%do j=0 %to 25;if missing(_col&j) then delete;%end;
%do j=1 %to 24;if missing(A&j) then delete;%end;
%do j=1 %to 30;if missing(B&j) then delete;%end;
%do j=1 %to 68;if missing(C&j) then delete;%end;
run;
%mend nonmiss;
%nonmiss(20);
如果我想筛选出有效的数据（条件见上面的代码）并删除有缺失值得行，有没有代码可以同时实现？不用编2个宏了。
十分感谢！

boe 发表于 2013-6-7 22:52
楼主的意思是：在一个数据集中，把满足条件的变量找出来？？？不知道理解得对不对。
方法1先转置，数据量大 ...

是想把满足条件的记录全部输出，谢谢！

试试

1. %macro valid(r);
   
2. %do i=1 %to &r;
   
3. data b&i;
   
4.     set a&i;
   
5.     where    1 le _col5 le 3    and    1 le _col9 le 12    and    not missing(_col0)    and    not missing(_col1);
   
6. 
   
7.     array array1 _col2 _col4 _col6 _col7 _col18-_col25;
   
8.     do over array1;
   
9.          if 1 le array1 le 2;
   
10.     end;
    
11. 
    
12.     array array2 _col10-_col17;
    
13.     do over array2;
    
14.          if 1 le array2 le 4;
    
15.     end;
    
16.    
    
17.     array array3 _col10-_col17 A1-A24 B1-B30 C1-C68;
    
18.     do over array3;
    
19.          if 1 le array3 le 5;
    
20.     end;
    
21. run;
    
22. %end;
    
23. %mend valid;
    
24. %valid(20);

复制代码

不知能不能用，能用的话效率会高些

1. %macro valid(r);
   
2. %do i=1 %to &r;
   
3. data b&i;
   
4.     set a&i;
   
5. 
   
6.     where    1 le _col5 le 3    and    1 le _col9 le 12    and    not missing(_col0)    and    not missing(_col1);
   
7. 
   
8.     array array1 _col2 _col4 _col6 _col7 _col18-_col25;
   
9.     array array2 _col10-_col17;
   
10.     array array3 _col10-_col17 A1-A24 B1-B30 C1-C68;
    
11.           do over array1;
    
12.                  if 1 le array1 le 2 then do;
    
13.                         do over array2;
    
14.                                 if 1 le array2 le 4 then do;
    
15.                                         do over array3;
    
16.                                                if 1 le array3 le 5;
    
17.                                         end;
    
18.                                 end;
    
19.                         end;
    
20.                 end;
    
21.         end;
    
22. run;
    
23. %end;
    
24. %mend valid;
    
25. %valid(20);

复制代码

boe 发表于 2013-6-8 00:32
不知能不能用，能用的话效率会高些

十分感谢您的及时和耐心回复！
您发表于00：:6的那个和我代码跑出的结果相同，但下面那个00:32的，您说效率高的那个结果与我的不相同，结果相对于前面的偏多，但是没用error，为什么那？还有为什么下面的比上面运行效率高那？
对了sas里max(of _col18-_col25 _col2 _col4 _col6 _col7) 和max(of _col18-_col25 ，_col2， _col4， _col6 _col7)只是写法不同，结果是相同的，对吗？
谢谢！

fyfzhdsfdx 发表于 2013-6-9 23:53
十分感谢您的及时和耐心回复！
您发表于00：:6的那个和我代码跑出的结果相同，但下面那个00:32的，您说效 ...

麻烦上传一个数据集。。。。

boe 发表于 2013-6-10 00:32
麻烦上传一个数据集。。。。

20.xls (357 KB)

2013-6-10 11:10:49 上传

一个数据集

这是其中的一个数据集，十分感谢！

boe 发表于 2013-6-10 00:32
麻烦上传一个数据集。。。。

顺便提醒一下，您的条件有一部分写错了，应该是
where 1 le _col5 le 3 and 1 le _col9 le 12 and not missing(_col0) and not missing(_col1);
array array1 _col2 _col4 _col6 _col7 _col18-_col25;
do over array1;if 1 le array1 le 2;end;
array array2 _col3 _col8;
do over array2;if 1 le array2 le 4;end;
array array3 _col10-_col17 A1-A24 B1-B30 C1-C68;
do over array3;if 1 le array3 le 5;end;
十分感谢！

前面那个靠谱些，后面那个_col6 还有缺失值，具体原因未知。
还请大牛们给指点一下子。。。。。。