请教高手，如何添加缺失的月份？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我的数据中，有的公司的数据有丢失的月份，想把这些丢失的月份补充进去，该如何编code?
如下表：

company	date	sales
1001	200509	20
1001	200603	30
1016	200603	451
1016	200606	521
1016	200609	358
1016	2006012	650

增加新的行，至于新增的sales值则设为missing value ‘.’：

company	date	sales
1001	200509	20
1001	200510	.
1001	200511	.
1001	200512	.
1001	200601	.
1001	200602	.
1001	200603	30
1016	200603	451
1016	200604	.
1016	200605	.
1016	200606	521
1016	200607	.
1016	200608	.
1016	200609	358
1016	200610	.
1016	200611	.
1016	2006012	650

望指点一二！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：请教高手 company missing compan sales 如何

自己顶一下，例子的数据输入可以：
Data a;
  input company $ date $;
  datalines;
1001 200509
1001 200603
1016 200603
1016 200606
1016 200609
1016 200612
;
run;
日期的调整 可以用：
data b;
set a;
date1=input(compress(date),yymmn6.);
date2=date1;
format date1 yymmn6.;
run;

上面的例子中sales忘了写了：
Data a;
  input company date sales;
  datalines;
1001 200509 20
1001 200603 30
1016 200603 451
1016 200606 521
1016 200609 358
1016 200612 650  
;
run;
data b;
set a;
date1=input(compress(date),yymmn6.);
date2=date1;
format date1 yymmn6.;
run;

can anyone give me any comment? i appreciate your concern.

1. data a;
   
2.   input company date:yymmn6. sales;
   
3.   format date yymmn6.;
   
4.   datalines;
   
5. 1001 200509 20
   
6. 1001 200603 30
   
7. 1016 200603 451
   
8. 1016 200606 521
   
9. 1016 200609 358
   
10. 1016 200612 650  
    
11. ;
    
12. run;
    
13. 
    
14. proc sort data=a;by company descending date;run;quit;
    
15. 
    
16. data b;
    
17.         set a;
    
18.         by company descending date;
    
19.         D=intck("MONTH",date,lag(date));
    
20.         if first.company then D=.;
    
21. run;
    
22. 
    
23. proc sort data=b;by company date;run;
    
24. 
    
25. data c;
    
26.         set b;
    
27.         by company date;
    
28.         if D^=. then do;
    
29.         output;
    
30.                 do i=1 to D-1 by 1;
    
31.                         date=intnx("MONTH",date,1,"BEG");
    
32.                         sales=.;
    
33.                         output;
    
34.                 end;
    
35.         end;
    
36.         else do;
    
37.                 output;
    
38.         end;
    
39.         keep company date sales;
    
40. run;

复制代码

一个笨办法，我觉得可以一个data步搞定，容我再想想

1. data a;
   
2.   input company date:yymmn6. sales;
   
3.   format date yymmn6.;
   
4.   datalines;
   
5. 1001 200509 20
   
6. 1001 200603 30
   
7. 1016 200603 451
   
8. 1016 200606 521
   
9. 1016 200609 358
   
10. 1016 200612 650  
    
11. ;
    
12. run;
    
13. 
    
14. proc sort data=a;by company date;run;quit;
    
15. 
    
16. data b;
    
17.         retain Stt_Dte End_Dte ;
    
18.         set a;
    
19.         by company  date;
    
20.         Stt_Dte=lag(date);
    
21.         End_Dte=date;
    
22.         output;
    
23.         if not first.company then do;
    
24.                 do i=1 to intck("MONTH",Stt_Dte,End_Dte)-1;
    
25.                         date=intnx("MONTH",Stt_Dte,i,"BEG");
    
26.                         sales=.;
    
27.                         output;
    
28.                 end;
    
29.         end;
    
30.         keep company date sales;
    
31. run;
    
32. 
    
33. proc sort data=b;by company date;run;quit;

复制代码

一个data步啦，可是最后要多个排序，睡觉去了，哪位高手改改，可以让sales直接赋值给循环最后1条，上面循环多做一次就好了，也就不要排序了
明天来看结果......

soporaeternus 发表于 2010-3-28 22:31

1. data a;
   
2.   input company date:yymmn6. sales;
   
3.   format date yymmn6.;
   
4.   datalines;
   
5. 1001 200509 20
   
6. 1001 200603 30
   
7. 1016 200603 451
   
8. 1016 200606 521
   
9. 1016 200609 358
   
10. 1016 200612 650  
    
11. ;
    
12. run;
    
13. 
    
14. proc sort data=a;by company descending date;run;quit;
    
15. 
    
16. data b;
    
17.         set a;
    
18.         by company descending date;
    
19.         D=intck("MONTH",date,lag(date));
    
20.         if first.company then D=.;
    
21. run;
    
22. 
    
23. proc sort data=b;by company date;run;
    
24. 
    
25. data c;
    
26.         set b;
    
27.         by company date;
    
28.         if D^=. then do;
    
29.         output;
    
30.                 do i=1 to D-1 by 1;
    
31.                         date=intnx("MONTH",date,1,"BEG");
    
32.                         sales=.;
    
33.                         output;
    
34.                 end;
    
35.         end;
    
36.         else do;
    
37.                 output;
    
38.         end;
    
39.         keep company date sales;
    
40. run;

复制代码

一个笨办法，我觉得可以一个data步搞定，容我再想想

已经满足我所需要的了，非常感谢！
虽然分了步骤，但是非常容易理解！感激不尽！