如何能把id列中id相同的数据转换到同一行中？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

数据是这样的：

复制代码

我想通过写一个宏把上面的数据转成如下形式：


自己写了一个程序，但实现不了，也不知道哪里有问题，求大神们帮帮忙～～～～～
我的程序：

1. proc sql;
   
2. select id into: list1 separated by " " from credit_inf;
   
3. select status into: list2 separated by " " from credit_inf;
   
4. select currency into: list3 separated by " " from credit_inf;
   
5. quit;
   
6. %macro create;
   
7. data split;
   
8. set credit_inf;
   
9. %let i=1;
   
10. rename
    
11. status=status_&i;
    
12. currency=currency_&i;
    
13. %do %while(%scan(&list1,&i," ")~=);
    
14. %let id=%scan(&list1,&i," ");
    
15. %let status=%scan(&list2,&i," ");
    
16. %let currency=%scan(&list3,&i," ");
    
17. 
    
18. if id=&id. then
    
19. 
    
20. status_&i=status;
    
21. currency_&i=currency;
    
22. else
    
23. 
    
24. %let i=%eval(&i.+1);
    
25. %end;
    
26. run;
    
27. %mend;
    
28. %create;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：相同的数据 数据转换 currency separate proc sql 如何

木有人会吗。。。。。。。。

。。。。。。。。

1. /* the data need to be sorted by the ID */
   
2. 
   
3. data credit_inf;
   
4. input id status currency;
   
5. datalines;
   
6. 1771 11 2
   
7. 1771 33 4
   
8. 1772 55 6
   
9. 1773 77 8
   
10. 1773 99 7
    
11. 1773 11 9
    
12. ; run;
    
13. 
    
14. 
    
15. data credit_inf_trans;
    
16.   do i = 1 by 1 until (last.id);
    
17.     set credit_inf (rename=(status=stat currency=curr));
    
18.       array status{3};
    
19.       array currency{3};
    
20.     by id;
    
21.     status[i]=stat;
    
22.     currency[i]=curr;
    
23.   end;
    
24.   drop i stat curr;
    
25. run;

复制代码

yongyitian 发表于 2014-7-21 09:33

太感谢了，帮了大忙了，谢谢