求教：如何根据条件插入补齐行

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教各位高人，如何根据条件在满足条件观测值的下方插入新行？


条件：根据Name 和id 顺序，截止到2010-01-09，如果id不连续（缺行）则补充行：
          ①id和date 按照排列顺序补齐   ②其他=上一行数据

数据如下：

1. data Insert;
   
2. input Name $ id date yymmdd10. money @;
   
3. format date yymmdd10.;
   
4. datalines;
   
5. A 1 2007-01-09 90
   
6. A 2 2008-01-09 80
   
7. A 4 2010-01-09 70
   
8. 
   
9. B 2 2006-01-09 89
   
10. B 3 2007-01-09 98
    
11. B 4 2008-01-09 87
    
12. ;
    
13. run;

复制代码

应该补齐如下 (若id不连续则补充行,截止2010年)
Name id date money


A 1 2007-01-09 90
A 2 2008-01-09 80
A 3 2009-01-09 80---------非首行，money=上一行money 80
A 4 2010-01-09 70

B 1 2005-01-09 0  ---------Name=B的首行，money取0或空.
B 2 2006-01-09 89
B 3 2007-01-09 98
B 4 2008-01-09 87
B 5 2009-01-09 87---------非首行，money=上一行87
B 6 2010-01-09 87
----------------------从ID=1开始截止2010年止，每年1月9日

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：insert format money FORMA Lines money 如何

1. 是补全2006-01-09 至 2010-01-09的所有1月9号的年吗？如果是，那第一个group为啥没对2006-01-09补全？
还是自动探测每个group最小的那个年，从最小的那个年至2010进行补齐？

2. 补入的MONEY值有什么要求？

Tigflanker 发表于 2014-12-18 16:01
1. 是补全2006-01-09 至 2010-01-09的所有1月9号的年吗？如果是，那第一个group为啥没对2006-01-09补全？
...

您好，是补全id=1 开始 至 2010-01-09的所有1月9号的年。第一个group是从 2007-01-09开始的，  ID=1 日期为2007-01-09。
money=上一行money或首行时空.。见下。谢谢。

应该补齐如下 (若id不连续则补充行,截止2010年)
Name id date money

A 1 2007-01-09 90
A 2 2008-01-09 80
A 3 2009-01-09 80---------非首行，money=上一行80
A 4 2010-01-09 70

B 1 2005-01-09 0  ---------Name=B的 首行，money取0或空.
B 2 2006-01-09 89
B 3 2007-01-09 98
B 4 2008-01-09 87
B 5 2009-01-09 87---------非首行，money=上一行87
B 6 2010-01-09 87
----------------------截止2010年，每年1月9日

1. data Insert;
   
2. input Name $ id date yymmdd10. money @;
   
3. format date yymmdd10.;
   
4. datalines;
   
5. A 1 2007-01-09 90
   
6. A 2 2008-01-09 80
   
7. A 4 2010-01-09 70
   
8. B 2 2006-01-09 89
   
9. B 3 2007-01-09 98
   
10. B 4 2008-01-09 87
    
11. ;run;
    
12. 
    
13. data Want;
    
14.   if 0 then set insert;
    
15.   if _n_ = 1 then do;
    
16.     dcl hash h(dataset:'insert',ordered:'y');
    
17.         h.definekey('name','id');
    
18.         h.definedata('money');
    
19.         h.definedone();
    
20.   end;
    
21. 
    
22.   set insert;
    
23.     by name;
    
24.         retain firstdate;
    
25.   output;
    
26. 
    
27.   if first.name then do;
    
28.     firstdate = intnx('year',date,1 - id,'s');
    
29. 
    
30.     do id = 1 to intck('year',firstdate,'09JAN2010'd) + 1;
    
31.       if h.check() then do;
    
32.             date = intnx('year',firstdate,id - 1,'s');
    
33.             rc = h.find(key:name,key:id - 1);
    
34.             money = ~sign(rc) * money;
    
35.             impute = 1;
    
36.         output;
    
37. 
    
38.             h.add();
    
39.           end;
    
40.     end;
    
41.   end;
    
42. 
    
43.   drop rc firstdate;
    
44. 
    
45.   proc sort;
    
46.     by name id;
    
47. run;

复制代码

给，做的我好辛苦的。

试试这个：

1. data Insert;
   
2.         input Name $ id date yymmdd10. money @;
   
3.         format date yymmdd10.;
   
4. datalines;
   
5. A 1 2007-01-09 90
   
6. A 2 2008-01-09 80
   
7. A 4 2010-01-09 70
   
8. B 2 2006-01-09 89
   
9. B 3 2007-01-09 98
   
10. B 4 2008-01-09 87
    
11. C 4 2008-01-09 87
    
12. D 2 2010-01-09 87
    
13. E 1 2010-01-09 87
    
14. ;
    
15. run;
    
16. 
    
17. data _null_;
    
18.         if 0 then set insert;
    
19.         if _n_=1 then do;
    
20.                 dcl hash h(dataset:'insert', ordered:'y');
    
21.                 h.definekey('NAME', 'ID');
    
22.                 h.definedata(all:'y');
    
23.                 h.definedone();
    
24.         end;
    
25.         set insert end=eof;
    
26.         do I=1 to 1000;
    
27.                 if h.find(key:NAME, key:I) ne 0 then do;
    
28.                         DATE=intnx('year', DATE, ifn(ID > I, I-ID, 1), 's');
    
29.                         if DATE gt '09jan2010'd then leave;
    
30.                         ID=I;
    
31.                         if I=1 then MONEY=0;
    
32.                         h.add();
    
33.                 end;        
    
34.         end;
    
35.         if eof then h.output(dataset:'want');
    
36. run;

复制代码

Tigflanker 发表于 2014-12-19 00:06
给，做的我好辛苦的。

辛苦。

自己功夫没到用数组做没成功，又学到哈希一招。

非常感谢！