怎样转置

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求助各位大侠，怎样将第一个表的数据转化为第二个表中的形式



测试数据集
bb.xls (201.5 KB)

2012-11-4 10:12:42 上传

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：测试数据 数据转化 各位大侠 数据集

数据透视吧。。。好像可以

suppose your dataset is demo;

1. data want(drop=type);
   
2.     set demo;
   
3.   retain t1 t2 t3 t4 t5;
   
4.   by name notsorted;
   
5.   if first.name  then
   
6.     do; call missing(t1,t2,t3,t4,t5);
   
7.   end;
   
8.   select ;
   
9. when( type='t1' )  t1=sale;
   
10. when( type='t2 ')  t2=sale;
    
11. when( type='t3' )  t3=sale;
    
12. when( type='t4 ')  t4=sale;
    
13. when( type='t5' )  t5=sale;
    
14. end;
    
15. if last.name then output;
    
16. run;

复制代码

1. proc import datafile="K:bb.xls" out=a replace;
   
2. run;
   
3. 
   
4. %macro chao;
   
5. %do i=1 %to 5;
   
6. data t&i;
   
7. set a;
   
8. if type="t&i" then do;
   
9. t&i=sale;
   
10. output;
    
11. end;
    
12. drop type sale;
    
13. run;
    
14. proc sort data=t&i;
    
15. by name code;
    
16. run;
    
17. %end;
    
18. data total;
    
19. merge t1-t5;
    
20. by name code;
    
21. run;
    
22. %mend chao;
    
23. %chao

复制代码

前提是同一个人，只有一个year和month

webgu 发表于 2012-11-4 10:58
suppose your dataset is bb;

学习了高手的not sorted

Imasasor 发表于 2012-11-4 11:05
学习了高手的not sorted

呵呵，他的原数据库已经排好了。就不想再排了。

webgu 发表于 2012-11-4 11:07
呵呵，他的原数据库已经排好了。就不想再排了。

1. data want(drop=type);
   
2.   set bb;
   
3.   by name notsorted;
   
4. retain t1 t2 t3 t4 t5;
   
5. if first.name then do;
   
6. t1=.;
   
7. t2=.;
   
8. t3=.;
   
9. t4=.;
   
10. t5=.;
    
11. end;
    
12.   select ;
    
13. when( type='t1' )  t1=sale;
    
14. when( type='t2 ')  t2=sale;
    
15. when( type='t3' )  t3=sale;
    
16. when( type='t4 ')  t4=sale;
    
17. when( type='t5' )  t5=sale;
    
18. end;
    
19. if last.name then output;
    
20. run;

复制代码

为了避免不小心给人错误的代码，我还是稍稍修正了一下高手的小疏忽。

Imasasor 发表于 2012-11-4 11:14
为了避免不小心给人错误的代码，我还是稍稍修正了一下高手的小疏忽。

呵呵，我也发现了，早已经更新了。谢谢。没记错的话，retain在切换by组的时候，应该会自动置为missing. 但这次好像不是这样，有点疑惑。所以用call missing处理 了下。

非常谢谢上面几位，我自己用比较初级的做出来了
data aa(drop=sale type tiaoshu);
set weigui.xundyue1;
if type='t1' then t1=sale;
if type='t2' then t2=sale;
if type='t3' then t3=sale;if type='t4' then t4=sale;if type='t5' then t5=sale;
run;
proc sql;
create table aa1 as
select name,code,year,month,day,sum(t1) as t1,sum(t2) as t2,sum(t3) as t3,sum(t4) as t4,sum(t5) as t5 from aa
group by name,code,year,month,day
order by year, month ,day ,code;
quit;

Imasasor 发表于 2012-11-4 11:14
为了避免不小心给人错误的代码，我还是稍稍修正了一下高手的小疏忽。

谢谢啦