x取值为3 4给个体标记为1 否则为0

1. data aaa;
   
2. input id trt x;
   
3. cards;
   
4. 1 1 0
   
5. 1 1 1
   
6. 1 1 .
   
7. 1 1 2
   
8. 1 1 2
   
9. 2 1 0
   
10. 2 1 2
    
11. 2 1 3
    
12. 2 1 4
    
13. 2 1 .
    
14. 3 2 0
    
15. 3 2 3
    
16. 3 2 3
    
17. 3 2 4
    
18. 3 2 4
    
19. 4 2 0
    
20. 4 2 .
    
21. 4 2 .
    
22. 4 2 3
    
23. 4 2 .
    
24. ;
    
25. run;

复制代码

希望得到的数据集id  trt  tag
1   1    0
2   1    1
3   2    1
4   2    1

proc sql noprint;
        create table bbb as
select distinct id,trt,count( case when x in (3 4) then id else . end) as tag
from aaa group by id trt order by id trt;
quit;

lovexialulu 发表于 2016-11-23 22:48
proc sql noprint;
        create table bbb as
select distinct id,trt,count( case when x in (3 4) ...

proc sql noprint;
        create table bbb as
select distinct id,trt,count( case when x in (3 4) then id else . end) as tag
from aaa group by id,trt order by id,trt;
quit;
程序缺了两个逗号。
但结果和我的要求不一样

在楼上的基础上增加一步就可以了~
proc sql noprint;
        create table ccc as
        select distinct id ,trt,count(case when x in (3 4) then id else . end) as x1 from aaa
        group by id,trt;
quit;

data ddd;
        set ccc;
        if x1 = 0 then tag = 0;
        else tag = 1;
        drop x1;
run;

1. proc sql;
   
2.         create table want as
   
3.         select id, max(case when x in (3,4) then 1 else 0 end) as tag
   
4.         from aaa
   
5.         group by 1;
   
6. quit;

复制代码

data b;
        set aaa;
        by id;
        retain tag;
        if first.id then tag=0;
        if x in (3,4) then  tag=1;
        if last.id;
run;