如何删除全部是缺省值的 行 或 列？

shiyiming

如何删除全部是缺省值的 行 或 列？

比如，
1, delete 第3和5行
2, or delete v2和v3列？
3, position and type of variables (both char and num/date/time) and no. of records are not fixed... <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->

<!-- s:shock: --><img src="{SMILIES_PATH}/icon_eek.gif" alt=":shock:" title="Shocked" /><!-- s:shock: --> 谢谢先。

***************；
data test;
input v1-v6;
datalines;
1 . . 1 1 1
1 . . 1 1 1
. . . . . .
1 . . . 1 .
. . . . . .
1 . . . 1 1
;
run;

shiyiming

感觉可以分两部,先删掉全是的行,得出一个数据集,然后再删某一个全列的.

shiyiming

怎么又跑到这里来发帖了？？

shiyiming

先来个笨办法

生成两个临时变量：一个是行合计，一个是列合计。

然后如果行合计＝. ，那就delete这行

如果列合计＝.  ，那就drop这行

shiyiming

如果是字符型的呢？并且对一行来说，如何求值。如果有上百个变量，有简便的求和表达式吗？总不能sum=a1+a2+...全部列举一遍吧？
还引申出一个问题，是否可以得到数据集所有变量名称的数组，以便统一处理变量名。attrn()方法返回的是有多少个变量，但不能返回变量的数组。

shiyiming

[code:01c28]%let lib=WORK;
%let mem=missdata;

options symbolgen;

data missdata;
  input n1 n2 n3 n4 n5 n6 n7 n8 c1 $ c2 $ c3 $ c4 $;
  sumnum=sum&#40;of _numeric_&#41;;
  sumchar=COMPRESS&#40;COMPBL&#40;KSTRCAT&#40;OF _character_&#41;&#41;&#41;;
datalines;
1 &#46; 1 &#46; 1 &#46; 1 4 a &#46; c &#46;
1 &#46; &#46; &#46; 2 &#46; &#46; 5 e &#46; g h
1 &#46; 1 &#46; 3 &#46; &#46; 6 &#46; &#46; k l
3 &#46; 5 &#46; 8 &#46; 4 7 f &#46; y z
&#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46;
6 &#46; 5 &#46; 8 &#46; &#46; 7 f &#46; y z
;
data tempdata;
set missdata;
if sumnum=&#46; and sumchar='' then delete;
drop sumnum sumchar;
run;
proc sql noprint;
  select name, put&#40;count&#40;name&#41;,5&#46;-L&#41; into &#58;clist separated by ' ' , &#58;charct
  from dictionary&#46;columns
  where libname=upcase&#40;&quot;&amp;lib&quot;&#41; and memname=upcase&#40;&quot;&amp;mem&quot;&#41; and type='char';

  select name, put&#40;count&#40;name&#41;,5&#46;-L&#41; into &#58;nlist separated by ' ', &#58;numct
  from dictionary&#46;columns
  where libname=upcase&#40;&quot;&amp;lib&quot;&#41; and memname=upcase&#40;&quot;&amp;mem&quot;&#41; and type='num';
quit;

data _null_;
  set tempdata end=finished;

  array num_vars&#91;*&#93; _NUMERIC_;
  array char_vars&#91;*&#93; _CHARACTER_;

  array num_miss &#91;&amp;numct&#93; $ &#40;&amp;numct*'missing'&#41;;
  array char_miss &#91;&amp;charct&#93; $ &#40;&amp;charct*'missing'&#41;;
  

  length list $ 50;
  

  do i=1 to dim&#40;num_vars&#41;;
    if num_vars&#40;i&#41; ne &#46; then num_miss&#40;i&#41;='non-miss';
  end;
  do i=1 to dim&#40;char_vars&#41;;
    if char_vars&#40;i&#41; ne '' then char_miss&#40;i&#41;='non-miss';
  end;


  if finished then do;
  do i= 1 to dim&#40;num_vars&#41;;
    if num_miss&#40;i&#41; = 'missing' then list=trim&#40;list&#41;||' '||trim&#40;vname&#40;num_vars&#40;i&#41;&#41;&#41;;
  end;
  do i= 1 to dim&#40;char_vars&#41;;
    if char_miss&#40;i&#41; = 'missing' then list=trim&#40;list&#41;||' '||trim&#40;vname&#40;char_vars&#40;i&#41;&#41;&#41;;
  end;
  call symput&#40;'mlist',list&#41;;
  end;
run;
                                                                                                                                 
data notmiss;
  set tempdata;
  drop &amp;mlist;
run;
proc print;
run;[/code:01c28]