SAS截取数据得到不同数据集，请大侠解决

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

比如我有这样的程序：
data a;
input id x;
cards;
001 a
001 g
003 4
003 g
004 h
;
run;
等等，其中id 不是等间距的，而且其中每个id对应的行数不一定相同，我想把每个id对应的变量分别创建数据集，请大侠指点！谢谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据集 cards Input card Data 程序 而且

I hope the following code could help.

data a;
input id $ x $;
cards;
001 a
001 g
003 4
003 g
004 h
;
run;

proc sort data = a out = b(keep = id) nodupkey; by id;run;

%macro test();
data _null_;
        set b nobs=n;
        call symput(cats('var',_n_),id);
        if _n_ = n then do;
                call symput('n',n);
                stop;
        end;
run;
data %do ii = 1 %to &n.;
                c_&ii.
         %end;;
        set a;
        select(id);
                %do ii = 1 %to &n.;
                        when (compress("&&var&ii..")) output c_&ii.;
                %end;
                otherwise;
        end;
run;
%mend;
%test();

这个程序太有用了，非常感谢！thanks！

1. data a;
   
2. input id $  x $;
   
3. cards;
   
4. 001 a
   
5. 001 g
   
6. 003 4
   
7. 003 g
   
8. 004 h
   
9. 005 a
   
10. 005 a
    
11. 005 t
    
12. ;
    
13. /*method one-hash*/
    
14. data _null_;
    
15. length id x $8;
    
16. if _n_=1 then do;
    
17. declare hash h();
    
18. h.definekey('id','x','_n_');
    
19. h.definedata('id','x');
    
20. h.definedone();
    
21. call missing(id,x);
    
22. end;
    
23. do _n_=1 by 1 until(last.id);
    
24. set a;
    
25. by id;
    
26. rc=h.add();
    
27. if last.id  then h.output(dataset:'data'||id);
    
28. end;
    
29. h.clear();
    
30. run;
    
31. /*method two-macro*/
    
32. data _null_;
    
33. set a end=last;
    
34. by id;
    
35. if first.id then do;
    
36.    cnt+1;
    
37.    call symputx('data'||put(cnt,2.-l),'data'||id);
    
38.    end;
    
39. if last then call symputx('totalkind',put(cnt,2.-l));
    
40. run;
    
41. %macro ss();
    
42. data
    
43. %do i=1 %to &totalkind.; &&data&i. %end;;
    
44. set a;
    
45. %do j=1 %to &totalkind.;
    
46.     %if %eval(&j. ge 2) %then %do;else %end;
    
47.   if 'data'||id="&&data&j." then output &&data&j.;
    
48. %end;
    
49. run;
    
50. %mend;
    
51. %ss
    
52. /*method three--select when*/
    
53. proc sql noprint;
    
54. select distinct 'data'||id into :namelist separated by ' '
    
55. from a;
    
56. select "when('"||id||"') output data"||id into :whenlist separated by ';'
    
57. from a;
    
58. quit;
    
59. data &namelist.;
    
60. set a;
    
61. select(id);
    
62. &whenlist;
    
63. otherwise;
    
64. end;
    
65. run;
    
66. /*method four--call execute--效率有待改进*/
    
67. data _null_;
    
68. set a;
    
69. by id;
    
70. if last.id then call execute('data  data'||trim(id)||";  set a;where id=('"||trim(id)||"');run;");
    
71. run;

复制代码

感谢大家的帮忙！

1112345

什么网站？登录了以后居然无法评分！！！
京剧