变量中的观测转变成0或1

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问怎么把表一转化为表二数据？变量很多的情况是否需要写宏？

表一

变量a	变量b	变量c
上	一	老
下		是
	三
		无
午	七

表二

变量a	变量b	变量c
1	1	1
1	0	1
0	1	0
0	0	1
1	1	0

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

1. data a1;
   
2.         infile datalines missover dlm='|';
   
3.         input         a $
   
4.                         b $
   
5.                         c $;
   
6.         datalines;
   
7. 上|一|老
   
8. 下|  |是
   
9.   |三|
   
10.   |  |无
    
11. 午|七|
    
12. ;
    
13. run;
    
14. 
    
15. %macro miss(libname,dataset);
    
16.         %global code;
    
17.         proc sql noprint;
    
18.                 select 'if '||name||' >"" then '||name||'=1;else '||name||'=0;' into :code
    
19.                 separated by ''
    
20.                 from dictionary.columns
    
21.                 WHERE libname=upcase("&libname.") AND memname=upcase("&dataset.");
    
22.         quit;
    
23. %mend;
    
24. 
    
25. %miss(work,a1);
    
26. 
    
27. data a2;
    
28.         set a1;
    
29.         &code.
    
30. run;

复制代码

data test;    set test(keep=var1 var2 var3);
  array var var1-var3;  ** char      version;
  array col  col1-col3;  ** numeric version;
  do over test;
      if test ne '' then test="1";
     else test="0";
      col=input(test,best.);
  end;
  drop var:;
run;