如何统计每个个体x取值为1的个数

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;

复制代码

如何统计每个个体x取值为1的个数？
希望得到的数据集为
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 发表于 2019-4-10 09:37
data aaa;
input id x;
cards;

data步可以实现吗？

dxystata 发表于 2019-4-10 15:13
data步可以实现吗？

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;

希望得到的数据为
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 .
如何实现呢？谢谢！

dxystata 发表于 2019-4-14 18:22
希望得到的数据为
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;