数据如何转置

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

复制代码

visit取值是字符型，希望得到的数据为：
id  visit5 visit6 visit8 visit1401 visit1402 visit1901
1     1       2       3         3           3
2     1       2                                             2
3     2       3                              3

dxystata 发表于 2019-5-15 08:51
transpose后的变量顺序错了！

前面进行了排序操作，可以不用排序，直接转置的。

可以用transpose做

8112mmw 发表于 2019-5-15 08:20
可以用transpose做

要结合id等才行

proc sort data=aaa;
by id visit;
run;
proc transpose data=aaa out=bbb;
by id ;
id visit;
run;
proc print data=bbb;
run;

8112mmw 发表于 2019-5-15 08:34
proc sort data=aaa;
by id visit;
run;

transpose后的变量顺序错了！

直接给代码吧：

data aaa;

input id visit$8. x;

cards;

1 5        1

1 6        2

1 8        3

1 14.01    3

1 14.02    3

2 5        1

2 6        2

2 19.01    2

3 5        2

3 6        3

3 14.02    3

;

run;

data aaa;set aaa;

c=length(visit);

run;

proc sort data = aaa;

by id c visit;

run;

proc sql;

create table dis_vname as

select distinct c,compress(visit) as vname from aaa;

quit;

proc sort data = dis_vname;

by c vname;

run;

data dis_vname;set dis_vname;

vname = compress(vname,'.');

format call $1000.;

call = "retain V"||compress(vname)||";if first.id then V"||compress(vname)||"=.;if compress(visit,'.')='"||compress(vname)||"' then V"||compress(vname)||"=x;";

call symput('c'||compress(_n_),call);

run;

proc sql noprint;

select count(*) into :nc from dis_vname

;quit;

%macro cc;

%do i = 1 %to &nc.;

&&c&i..;;

%end;

%mend;

data bbb;set aaa;

by id;

%cc;

if last.id;

drop c visit x;

run;

thanks for sharing

此问题，还没有解决？