根据要求查找缺失值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

一个兄弟问我的问题，大家有兴趣可以自己写一下。
我自己的解决方法可参见：http://elek.me/sas-homework-find-missing-values.html


Datasets:

1. data data1;
   
2.         input no x0 y0 a0 ab x1 x2 x3;
   
3. cards;
   
4. 1 1 1 1 1 2 2 2
   
5. 2 . . . . 1 1 1
   
6. 3 1 2 3 4 . . .
   
7. 4 . . 2 3 3 4 .
   
8. ;
   
9. 
   
10. data data2;
    
11.         input variable $ visit;
    
12. cards;
    
13. x0 1
    
14. y0 1
    
15. a0 1
    
16. ab 1
    
17. x1 2
    
18. x2 2
    
19. x3 2
    
20. ;

复制代码

Expected dataset:
data1中no为编号(唯一)，x0 y0 a0 ab为访视1的变量，x1 x2 x3为访视2的变量。现在核查缺失的情况：如果某个个体访视1的变量全部缺失，则查访视1的四个变量时忽略这个个体，访视2类似。结果如下：

1. no   variable   value
   
2. 4      x0          .
   
3. 4      y0          .
   
4. 4      x3          .

复制代码

扫码加我 拉你入群

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

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

分享0 收藏4 回帖

关键词：缺失值 Variable datasets Expected Homework 缺失 缺失 缺失

谢谢elek.me 兄！

1. data _null_;
   
2.         set data2 nobs=nobs;
   
3.         call symputx("NOBS",nobs);
   
4.         stop;
   
5. run;
   
6. %put &NOBS;
   
7. 
   
8. data t1;
   
9.         set data1;
   
10.         array _arr _all_;
    
11.         do i=1 to %eval(&NOBS+1) by 1;
    
12.                 variable=vname(_arr[i]);
    
13.                 value=_arr[i];
    
14.                 if upcase(variable)^="NO" then output;
    
15.         end;
    
16.         keep no variable value;
    
17. run;
    
18. 
    
19. proc sql;
    
20.         create table t2(where=(missing(value))) as
    
21.                 select
    
22.                         a.*
    
23.                 from t1 a
    
24.                 inner join data2 b
    
25.                 on a.variable=b.variable
    
26.                 group by
    
27.                         a.no
    
28.                         ,b.visit
    
29.                 having sum(case when missing(a.value) then 1 else 0 end)^=count(*)
    
30.         ;
    
31. quit;

复制代码

积极响应号召，练手学习......

楼上思维很犀利！学习了

1. proc sql;
   
2.         create table temp01 as
   
3.         select
   
4.                 a.no,
   
5.                 b.visit,
   
6.                 b.variable,
   
7.                 sum(
   
8.                         case when variable='x0' then x0
   
9.                          when variable='y0' then y0
   
10.                          when variable='a0' then a0
    
11.                          when variable='ab' then ab
    
12.                          when variable='x1' then x1
    
13.                          when variable='x2' then x2
    
14.                          when variable='x3' then x3 else . end
    
15.                 ) as x
    
16.         from data1 as a
    
17.         cross join data2 as b
    
18.         group by a.no,b.visit,b.variable
    
19.         ;
    
20. 
    
21.         create table temp02 as
    
22.         select
    
23.                 *
    
24.         from temp01 as a
    
25.         where exists (
    
26.                 select * from (
    
27.                         select no,visit from temp01 group by no,visit
    
28.                         having count(1)<>count(case when x=. then 1 else . end)
    
29.                         and count(1)<>count(x)
    
30.                 ) as b where a.no=b.no and a.visit=b.visit
    
31.         ) and x is missing
    
32.         ;
    
33. quit;

复制代码

yatming 发表于 2011-1-10 11:18

1. proc sql;
   
2.         create table temp01 as
   
3.         select
   
4.                 a.no,
   
5.                 b.visit,
   
6.                 b.variable,
   
7.                 sum(
   
8.                         case when variable='x0' then x0
   
9.                          when variable='y0' then y0
   
10.                          when variable='a0' then a0
    
11.                          when variable='ab' then ab
    
12.                          when variable='x1' then x1
    
13.                          when variable='x2' then x2
    
14.                          when variable='x3' then x3 else . end
    
15.                 ) as x
    
16.         from data1 as a
    
17.         cross join data2 as b
    
18.         group by a.no,b.visit,b.variable
    
19.         ;
    
20. 
    
21.         create table temp02 as
    
22.         select
    
23.                 *
    
24.         from temp01 as a
    
25.         where exists (
    
26.                 select * from (
    
27.                         select no,visit from temp01 group by no,visit
    
28.                         having count(1)count(case when x=. then 1 else . end)
    
29.                         and count(1)count(x)
    
30.                 ) as b where a.no=b.no and a.visit=b.visit
    
31.         ) and x is missing
    
32.         ;
    
33. quit;

复制代码

不错。 不过如果问题的数据集结构发生改变的话，这个就不好使了。

而且我发现这个论坛里的朋友们，都比较偏爱sql.....

elek.me 发表于 2011-1-10 11:25
而且我发现这个论坛里的朋友们，都比较偏爱sql.....

京剧,hopewell等诸大神嘴角露出一丝狡捷的微笑......

新手报到  哎

7# elek.me
呵呵，其实是乐于以效率为重。
这段写戳了，扩展性确实不好，好的让胖子写掉了。