按一定条件补全变量值

sas数据表p98如下：

cn	cpc	label	ass
1	日本	ass_1	Panasonic
1		ass_2	Sumsung
2	美国	ass_1	Vanderbilt
3	韩国	ass_1	Sumsung
3		ass_2	Panasonic

   数据表p98中只有ass_1变量有国籍，从ass_2开始国籍为空，但根据已有公司的国籍属性可以将部分国籍补全，比如上表中两个空着的部分都能够补全。请大侠帮忙。。。写下程序            
   [tr]  [td=86]
[/td][td=94]
[/td][td=94]
[/td][td=157]
[/td][/tr]
[tr][td]

[/td][td]

[/td][td]
[/td][td]




[/td][/tr]

YueweiLiu 发表于 2011-9-25 15:59
如果have数据集没有按cn排序，先排序，再运行上面程序。

好像是要按已有的ass与cpc的对应值补全。试试下面的代码。

1. proc sort data=have;
   
2.   by ass  descending cpc;
   
3. run;
   
4. data want;
   
5.    do until(last.ass);
   
6.      set have;
   
7.      by ass;
   
8.       length cpc0 $ 50;
   
9.       retain cpc0 "";
   
10.       if cpc^=" " then cpc0=cpc;
    
11.       else cpc=cpc0;
    
12.           output;
    
13.         end;
    
14.     drop cpc0;
    
15. run;
    
16. 
    
17. 
    
18. /*小改一下,谢谢YUE*/
    
19. data want;
    
20.   length cpctmp $50;
    
21.   retain cpctmp "";
    
22.     set have;
    
23.     by ass;
    
24. if cpc^="" then cpctmp=cpc;
    
25.    else
    
26.   cpc=cpctmp;
    
27.   drop cpctmp;
    
28. run;

复制代码

1. data want;
   
2.         set have;
   
3.         length cpc0 $ 50;
   
4.         retain cpc0 "";
   
5.         if cpc^=" " then cpc0=cpc;
   
6.         else cpc=cpc0;
   
7.         drop cpc0;
   
8. run;

复制代码

我列出的只是个例子，实际上数据量很大，我不知道没有国籍的机构(ass_2)是否曾经出现在第一位(ass_1)，如果出现则把国籍粘贴过来，如果一次都没出现在第一位，则一直都是空着的

1. data tmp;
   
2.         set have;
   
3.         if cpc^=" ";
   
4.         keep cn cpc;
   
5. run;
   
6. 
   
7. data want;
   
8.         merge have(in=aa) tmp;
   
9.         by cn;
   
10.         if aa;
    
11. run;

复制代码

如果have数据集没有按cn排序，先排序，再运行上面程序。

1. /*人为改了一下数据集*/
   
2. /*以下程序假定每一个ass有且只有一个不是缺失的cpc*/
   
3. /*hash的好处在于楼主的海量数据，并不用排序*/
   
4. data a;
   
5. infile cards;
   
6. input cn cpc $ label $ ass $;
   
7. cards;
   
8. 1  . ass_1  Panasonic
   
9. 1   .   ass_2  Sumsung  
   
10. 2 美国 ass_1 Vanderbilt
    
11. 3 韩国 ass_1 Sumsung
    
12. 3   日本  ass_2 Panasonic
    
13. ;
    
14. data result;
    
15. length cpc ass $8;
    
16. if _n_=1 then do;
    
17. declare hash h();
    
18. h.definekey(key:'ass');
    
19. h.definedata(data:'cpc');
    
20. h.definedone();
    
21. call missing(ass,cpc);
    
22. do until(last);
    
23. set a end=last;
    
24. if ^missing(cpc) then
    
25. h.add();
    
26. end;
    
27. end;
    
28. set a;
    
29. if missing(cpc) then h.find();
    
30. run;

复制代码

如果对于任意一个ass，其CPC都是缺失的，那也就没有了填补的需要，所以可以先筛选出那些CPC不是全部缺失的记录，然后再用上面的程序补全

1. /*人为改了一下数据集*/
   
2. 
   
3. /*以下程序假定每一个ass有且只有一个不是缺失的cpc*/
   
4. 
   
5. /*hash的好处在于楼主的海量数据，并不用排序*/
   
6. 
   
7. data a;
   
8. 
   
9. infile cards;
   
10. 
    
11. input cn cpc $ label $ ass $;
    
12. 
    
13. cards;
    
14. 
    
15. 1  . ass_1  Panasonic
    
16. 
    
17. 1   .   ass_2  Sumsung  
    
18. 
    
19. 2 美国 ass_1 Vanderbilt
    
20. 
    
21. 3 韩国 ass_1 Sumsung
    
22. 
    
23. 3   日本  ass_2 Panasonic
    
24. 3  日本  ass_3  Panasonic
    
25. 
    
26. ;
    
27. /*如果每个ass对应多个cpc，则cpc一定都是相等的，则可以使用如下程序*/
    
28. data result;
    
29. 
    
30. length cpc ass $8;
    
31. 
    
32. if _n_=1 then do;
    
33. 
    
34. declare hash h();
    
35. 
    
36. h.definekey(key:'ass');
    
37. 
    
38. h.definedata(data:'cpc');
    
39. 
    
40. h.definedone();
    
41. 
    
42. call missing(ass,cpc);
    
43. 
    
44. do until(last);
    
45. 
    
46. set a end=last;
    
47. rc=h.find();
    
48. if ^missing(cpc) then do;
    
49.    if rc=1 then h.add();
    
50.    else h.replace();
    
51. end;
    
52. end;
    
53. end;
    
54. 
    
55. set a;
    
56. 
    
57. if missing(cpc) then h.find();
    
58. 
    
59. run;

复制代码

ass这个变量名是你自己起的吧。
ass_1就是屁股1的意思。半开玩笑。其实这也是一个老外给我讲的笑话。源于一个香港来的程序员对于英文语意的敏感度较低。我觉得我们应该尽量避免这一类的变量名。
京剧

jingju11 发表于 2011-9-25 23:26
ass这个变量名是你自己起的吧。
ass_1就是屁股1的意思。半开玩笑。其实这也是一个老外给我讲的笑话。源于一 ...

虽然是笑话，不过您的善意提醒我非常接受，我刚开始接触SAS，很多东西都不懂，ass是assignee的意思，我当时问问题的时候怕很多人嫌变量太长麻烦而不回答我，所以才缩减的，呵呵。以后还有问题希望大侠多多指正啊！小女子在这谢过了