一个特殊数据集的转换

请教SAS高手如何实现下面的目标

*基础数据集 x;

data x;

input name$ chinese math music ;

cards;

Tom    1.1 1.2  1.3

Jack   2.1 2.2  2.3

Alice  3.1 3.2  3.3

;

run;

/*希望产生如下数据集 y

包含三个变量student, subject, score

Tom   chinese 1.1

Tom   math    1.2

Tom   music   1.3

Jack  chinese 2.1

Jack  math    2.2

Jack  music   2.3

Alice chinese 3.1

Alice math    3.2

Alice music   3.3

*/

注意数据集x中除姓名name外，课程Chinese, Math, Music可能还包括其他课程，但在x中都是变量名，需要程序自动判断有多少种课程及其名称，然后将课程名列在数据集y的subject变量中。

请高手指教，多谢！

fanglibing 发表于 2014-5-31 18:34
感谢mingfeng07的回答，遗憾的是proc transpose 过程中的var变量列表需要手动确定。
感谢farmman60，程序最 ...

Replace "drop chinese--english; " with "keep name subject score;" or get a macro variable of subjects".

1. data x;
   
2. input name$ chinese math music ;
   
3. cards;
   
4. Tom    1.1 1.2  1.3
   
5. Jack   2.1 2.2  2.3
   
6. Alice  3.1 3.2  3.3
   
7. ;
   
8. run;
   
9. proc transpose data=x out=x1(rename=(name=student col1=score)) name=subject;
   
10. var chinese math music;
    
11. by descending name;
    
12. run;
    
13. data x1;
    
14. set x1;
    
15. label subject=' ';
    
16. run;

复制代码

1. data x;
   
2. infile cards missover truncover;
   
3. input name$ chinese math music physics chemistry english ;
   
4. cards;
   
5. Tom    1.1 1.2  1.3  . 2.3  .
   
6. Jack   2.1 .  2.3 . 2.6 .  
   
7. Alice  . 3.2  .  1.3  1.5 1.6
   
8. ;
   
9. run;
   
10. 
    
11. data want;
    
12.   set x;
    
13.   array vars _numeric_;
    
14.   do over vars;
    
15.   subject=vname(vars);
    
16.   score=vars;
    
17.   if not missing(vars) then output;
    
18.   end;
    
19.   drop chinese--english;
    
20.   run;

复制代码

感谢mingfeng07的回答，遗憾的是proc transpose 过程中的var变量列表需要手动确定。
感谢farmman60，程序最大可能的实现了目标，遗憾的是drop语句中的起止变量名需要手动确定。
再次感谢两位大侠！

完美解决，全自动化实现。

1. data x;
   
2.         input name $ chinese math music ;
   
3. cards;
   
4. Tom    1.1 1.2  1.3
   
5. Jack   2.1 2.2  2.3
   
6. Alice  3.1 3.2  3.3
   
7. ;
   
8. 
   
9. proc sql noprint;
   
10.         select name into :varlist separated by ' '
    
11.         from dictionary.columns
    
12.         where libname='WORK' and memname="X" and name <> 'name';
    
13. quit;
    
14. 
    
15. proc transpose data=x out=y(rename=(name=student _NAME_=subject col1=score));
    
16.         var &varlist.;
    
17.         by descending name;
    
18. run;
    
19. 
    
20. data y;
    
21.         set y;
    
22.         label subject=' ';
    
23. run;

复制代码

感谢zhengbo8，这个程序漂亮，但个人还是感觉farmman60的程序更漂亮。
多谢各位大侠！