判断字符型变量的缺失值是否大于给定阀值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

学sas中，写了个判断字符型变量的缺失值是否大于给定阀值的宏，分享一下。
data text1;
input x1 $ x2 $ y $;
cards;
. 2 a
. 3 b
6 7 .
3 4 c
9 8 e
. 24 .
8 . g
. 33 .
22 77 t
. 19 b
20 . u
21 16 o
;
run;

proc contents data=work.text1 out=tt;
run;
%macro varmiss(rate);
%if %sysfunc(exist(work.miss)) ne 0 %then %do;
proc datasets lib=work;
delete         miss;
quit;

data miss;
length var $10 percent flag 5;
stop;
run;
%end;
%let disd=%sysfunc(open(work.tt));
%if &disd gt 0 %then %do;
%let nobs=%sysfunc(attrn(&disd,nobs));
%do i =1 %to &nobs;
  %let rc=%sysfunc(fetchobs(&disd,&i));
  %let varnume=%sysfunc(varnum(&disd,name));
  %let variable=%sysfunc(getvarc(&disd,&varnume));
ods listing close;
ods output         OneWayFreqs=cc&i.;
proc freq data=text1 ;
tables &variable. /missing;
run;
ods output close;
ods listing;

data freq&i.(keep=&variable. percent flag rename=(&variable.=var));
set cc&i.;
if &variable eq "" then do ;
&variable.="&variable.";
if percent gt &rate. then flag=1;else flag=0;
output;
end;
run;

proc append base=miss data=freq&i. force;
run;
%end;
%let disd=%sysfunc(close(&disd));
%end;
%mend;
%varmiss(30);

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：字符型变量 字符型 缺失值 Variable datasets contents percent

沙发自己做了。。。

牛逼呀