如何stack数据？

1. data aaa;
   
2. infile cards missover;
   
3. input no a1$ b1 c1 a2$ b2 c2 a3$ b3 c3;
   
4. cards;
   
5. 1 x1 1 1 z1 2 1 y1 1 2
   
6. 2 x2 1 2 y2 1 2
   
7. 3 x3 2 2
   
8. ;
   
9. run;
   
10. 
    
11. proc format;
    
12. value b1fmt 1="a" 2="b";
    
13. value c1fmt 1="m" 2="f";
    
14. run;
    
15. 
    
16. /* 希望得到的数据集
    
17. no a1 b1 c1
    
18. 1 x1 a m
    
19. 1 z1 b m
    
20. 1 y1 a f
    
21. 2 x2 a f
    
22. 2 y2 a f
    
23. 3 x3 b f
    
24. */

复制代码

如何实现？谢谢！

1. data bbb(rename=(id=no a=a1 b=b1 c=c1));
   
2.         set aaa;
   
3.         by no;
   
4.         array x(3) a1 a2 a3 ;
   
5.         array y(3) b1 b2 b3 ;
   
6.         array z(3) c1 c2 c3 ;
   
7.         length id 8. a $8. b 8. c 8.;
   
8.         retain id;
   
9.         if first.no then id=no;
   
10.         do i=1 to 3;
    
11.                 if not missing(x(i)) then do;
    
12.                         a=x(i);
    
13.                         b=y(i);
    
14.                         c=z(i);
    
15.                         output;
    
16.                 end;
    
17.         end;
    
18.         format b b1fmt. c c1fmt.;
    
19.         keep id a b c;
    
20. run;

复制代码

有其他的方法，额外奖励啊！

直接在读数据的data步中直接处理，不需要额外的data步再处理。程序如下：

1. proc format;
   
2.    value b1fmt 1="a" 2="b";
   
3.    value c1fmt 1="m" 2="f";
   
4. run;
   
5. 
   
6. data aaa;
   
7. infile cards missover;
   
8.    input no @;
   
9.    do i=1 to 3;
   
10.       input a1$ b1 c1 @;
    
11.       if ^missing(a1) or ^missing(b1) or ^missing(c1) then output;
    
12.    end;
    
13.    format b1 b1fmt. c1 c1fmt.;
    
14.    drop i;
    
15. cards;
    
16. 1 x1 1 1 z1 2 1 y1 1 2
    
17. 2 x2 1 2 y2 1 2
    
18. 3 x3 2 2
    
19. ;
    
20. run;

复制代码

Jessup007 发表于 2014-2-19 20:33
直接在读数据的data步中直接处理，不需要额外的data步再处理。程序如下：

我这里只是举个例子，需要额外的data步处理。