如何統(tǒng)計(jì)每個(gè)個(gè)體x取值為1的個(gè)數(shù)

1. data aaa;
   
2. input id x;
   
3. cards;
   
4. 1 1
   
5. 1 1
   
6. 1 1
   
7. 2 1
   
8. 3 1
   
9. 3 1
   
10. 4 1
    
11. 4 1
    
12. 4 1
    
13. 4 1
    
14. ;
    
15. run;

復(fù)制代碼

如何統(tǒng)計(jì)每個(gè)個(gè)體x取值為1的個(gè)數(shù)？
希望得到的數(shù)據(jù)集為
id num
1   3
2   1
3   2
4   4

謝謝！

data aaa;
input id x;
cards;
1 1
1 1
1 1
2 1
3 1
3 1
4 1
4 1
4 1
4 1
;
run;

proc sql;
   create table bbb as
   select id, count(x) as num from aaa
   group by id;
quit;

proc print;run;

l1i2n3i4n5g 發(fā)表于 2019-4-10 09:37
data aaa;
input id x;
cards;

data步可以實(shí)現(xiàn)嗎？

dxystata 發(fā)表于 2019-4-10 15:13
data步可以實(shí)現(xiàn)嗎？

data aaa;
input id x;
cards;
1 1
1 1
1 1
2 1
3 1
3 1
4 1
4 1
4 1
4 1
;
run;

data bbb;
   set aaa;
   by id;
   if first.id then num=0;
   if x=1 then num+1;
   if last.id then output;
   drop x;
run;

proc print;run;

proc freq noprint data=aaa;
table id*x/out=bbb;
run;
proc print noobs data=bbb(rename=(count=num));
var id num;
run;

希望得到的數(shù)據(jù)為
id x num
1 1 3
1 1 .
1 1 .
2 1 1
3 1 2
3 1 .
4 1 4
4 1 .
4 1 .
4 1 .
如何實(shí)現(xiàn)呢？謝謝！

dxystata 發(fā)表于 2019-4-14 18:22
希望得到的數(shù)據(jù)為
id x num
1 1 3

proc freq noprint data=aaa;
table id*x/out=bbb (drop=percent rename=(count=num));
attrib _all_ label='';
run;
data ccc;
set bbb aaa;
run;
proc sort data=ccc;
by id;
run;
data ddd;
set ccc;
by id;
if last.id then delete;
run;