proc transpose的列名问题

1. data aaa;
   
2. input usubjid x1 x2$ x3$;
   
3. cards;
   
4. 1 1 1 a
   
5. 1 2 2 b
   
6. 2 1 1 a
   
7. 3 1 2 b
   
8. 4 2 2 b
   
9. ;
   
10. run;
    
11. 
    
12. proc sql noprint;
    
13.         create table bbb as
    
14.         select x1,x3,count(distinct usubjid) as sum
    
15.         from aaa
    
16.         group by x1,x3;
    
17. quit;
    
18. 
    
19. proc transpose data=bbb prefix=col out=ccc(drop=_:);
    
20.         var sum;
    
21.         id x1 x3;
    
22.         by x1 x3;
    
23. run;

复制代码

数据集ccc中col1a col1b col2b，不改变数据集aaa和bbb情况下，采用proc transpose使其列名为col11 col12 col22。谢谢！

想了一个办法，先产生一个format，指定a=1，b=2，不知道是否符合你意。

1. proc format ;
   
2. value $trans 'a'='1'
   
3.       'b'='2';
   
4.           run;
   
5. 
   
6. proc transpose data=bbb prefix=col out=ccc(drop=_:);
   
7.         var sum;
   
8.         id x1 x3;
   
9.         by x1 x3;
   
10.                 format x3 $trans.;
    
11. run;
    
12. 
    
13. data ccc;
    
14. set ccc;
    
15. format x3;
    
16. run;

复制代码

结果：
Obs    x1    x3    col11    col12    col22

1      1    a       2        .        .
2      1    b       .        1        .
3      2    b       .        .        2