循环输出数据集

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

数据处理过程中碰到这样一个问题：
变量1    变量2
1            1989
1            1990
1            1991
2            1990
2            2004
2            2006
……         ……
最终要分别把变量2是1989、1990、1991的人   和   变量2是1990、2004、2006的人作为两个数据集输出，求大虾指教，谢谢？

扫码加我 拉你入群

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

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

关键词：数据集 数据集输出 数据处理

data c9501m c9501f；
　　set a；
　　select（id）；
　　when（'1'）output c9501m；
　　when（'2'）output c9501f；
　　end；
　　run；

sushe1527 发表于 2015-1-28 21:49
data c9501m c9501f；
　　set a；
　　select（id）；

谢谢，不过我可能没完全把我的问题描述清楚。变量1是编号，同为1的是一个人，变量2代表该人的不同三年（后面还有其他变量），可能有几种组合（比如上面提到的两种89、90、91以及90、04、06，还可能有其他组合，但都是3年的）。现在想把每一种组合都单独输出成一个数据集，比如新输出的数据集1里个体都是有89、90、91三年的数据，而新数据集2里个体都是90、04、06三年的数据，等等。
万分感谢：）

1. data test;
   
2. input a $ b $ c$ @;
   
3. call symput("A"||left(_n_),a);
   
4. call symput("B"||left(_n_),b);
   
5. call symput("C"||left(_n_),c);
   
6. cards;
   
7. A1  B1 C1
   
8. A2  B2 C2
   
9. A3  B3 C3
   
10. A4  B4 C4
    
11. ;
    
12. run;
    
13. %macro test;
    
14. data test;
    
15. %do i=1 %to 4;
    
16. a="&&A&i.";
    
17.        %do j=1 %to 4;
    
18.           b="&&B&j.";
    
19.             %do k=1 %to 4;
    
20.             c="&&C&k.";
    
21.             output;
    
22.             %end;
    
23.           output;
    
24.        %end;
    
25. output;
    
26. %end;
    
27. run;
    
28. %mend test;
    
29. %test;

复制代码

楼主我看了一下，因为你的数据给的不全，我只能按照我的理解写了下面的代码，供你参考！
[url=]data test;         input var1 var2;         cards; 1 1989 1 1990 1 1991 2 1990 2 2004 2 2006 ; run; data r1 r2;         set test (where=(var2 in (1989,1990,1991)));         output r1;         set test (where=(var2 in (1990,2004,2006)));         output r2; run; proc print data=r1; run; proc print data=r2; run;[/url]

上面的文字太乱了，不好意思，下面的为准！

1. data test;
   
2.         input var1 var2;
   
3.         cards;
   
4. 1 1989
   
5. 1 1990
   
6. 1 1991
   
7. 2 1990
   
8. 2 2004
   
9. 2 2006
   
10. ;
    
11. run;
    
12. data r1 r2;
    
13.         set test (where=(var2 in (1989,1990,1991)));
    
14.         output r1;
    
15.         set test (where=(var2 in (1990,2004,2006)));
    
16.         output r2;
    
17. run;
    
18. proc print data=r1;
    
19. run;
    
20. proc print data=r2;
    
21. run;

复制代码

Great work.

1. data test;
   
2.         input var1 var2;
   
3.         cards;
   
4. 1 1989
   
5. 1 1990
   
6. 1 1991
   
7. 2 1990
   
8. 2 2004
   
9. 2 2006
   
10. 3 1989
    
11. 3 1990
    
12. 3 1991
    
13. 4 1990
    
14. 4 2004
    
15. 4 2008
    
16. ;
    
17. 
    
18. *** Get distinct groups;
    
19. data group;
    
20.     set test;
    
21.     by var1 var2;
    
22.         length group $100;
    
23.         retain group ;
    
24.     if first.var1 then group=cats(var2);
    
25.         else group=catx(",",group,var2);
    
26.         if last.var1;
    
27.         keep group;
    
28. run;
    
29. 
    
30. proc sort data=group nodupkey;
    
31.    by group;
    
32. run;
    
33. 
    
34. *** create datasets for each group;
    
35. data _null_;
    
36.     set group nobs=nobs end=last;
    
37.         length datasets $100;
    
38.         if _n_=1 then do;
    
39.              do i=1 to nobs;
    
40.                     datasets=catx(" ",datasets, "test"||strip(i));
    
41.                  end;
    
42.          call execute("data "||strip(datasets)||"; set test;");
    
43.         end;
    
44.         call execute("if var2 in ("||strip(group)||") then output test"||strip(_n_)||";");
    
45.     if last then call execute("run;");
    
46. run;

复制代码