原始数据调整

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请各位大神帮助，我有下面一张原始数据表格：

      时间             公司 event1   event2   event3
    01012002         A        1          .           .
    01012002         A        .           1          .
    04122006         A        1          .           .
    20122007         B        .           1          .
    20122007         B        .           .          1
...................................................................

以此类推, 其中event1,2,3代表某公司在当天发生的事件，1表示发生，.表示未发生。由于在原始数据中，同一天发生的不同事件是分开列出的，比如A公司在2002年1月1号发生了事件1和事件2。 现在我想把每个公司的事件按照发生的时间合并在一起，也就是变成以下格式：

时间             公司  event1 event2 event3
01012002        A       1         1           .
04122006        A       1          .           .
20122007        B       .          1           1

请问一下这样的调整该如何进行，谢谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据调整 原始数据 Event vent Even 数据

如果这个1是记录的数字型，可以按照“时间+公司”分类求和

1. data test;
   
2. input time $ company $ event1 event2 event3;
   
3. cards;
   
4. 01012002         A        1          .           .
   
5. 01012002         A        .           1          .
   
6. 04122006         A        1          .           .
   
7. 20122007         B        .           1          .
   
8. 20122007         B        .           .          1
   
9. ;
   
10. run;
    
11. 
    
12. proc sql;
    
13. select time,company,case when(sum(event1<>.)=1) then 1 else . end as event1,
    
14.                               case when(sum(event2<>.)=1) then 1 else . end as event2,
    
15.                               case when(sum(event3<>.)=1) then 1 else . end as event3
    
16. from test
    
17. group by  time,company
    
18. ;
    
19. quit;

复制代码

tj0412ymy 发表于 2012-6-5 08:23

发现你很喜欢用SQ，运用确实很熟。

不错,很好的方法

1. data test;
   
2. input time $ company $ event1 event2 event3;
   
3. cards;
   
4. 01012002         A        1          .           .
   
5. 01012002         A        .           1          .
   
6. 04122006         A        1          .           .
   
7. 20122007         B        .           1          .
   
8. 20122007         B        .           .          1
   
9. ;
   
10. run;
    
11. 
    
12. proc sort data=test; by time company event1-event3; run;
    
13. 
    
14. data last;
    
15.         set test;
    
16.         by time company event1-event3;
    
17.         retain new1-new3;
    
18. 
    
19.         array even(*) event1-event3;
    
20.         array new(*) new1-new3;
    
21. 
    
22.         do i=1 to dim(even);
    
23.         if first.company then do; if even(i)=1 then new(i)=1; else new(i)=.; end;
    
24.                 else if even(i)=1 then new(i)=1;
    
25.         end;
    
26. 
    
27.         if last.company;
    
28.         drop event1-event3 i;
    
29.         rename new1=event1 new2=event2 new3=event3;
    
30. run;

复制代码

tj0412ymy 发表于 2012-6-5 08:23

非常谢谢，很实用的代码！

遇女心惊 发表于 2012-6-5 14:30

太感谢了！·