分享——多选题变二分类变量SAS源程序（原创） [推广有奖]

0关注
47粉丝

教授

29%

还不是VIP/贵宾

威望: 1 级
论坛币: 4821 个
通用积分: 21.8270
学术水平: 165 点
热心指数: 203 点
信用等级: 146 点
经验: 48691 点
帖子: 441
精华: 1
在线时间: 1325 小时
注册时间: 2007-11-9
最后登录: 2024-4-11

楼主

crazygoing 发表于 2010-4-6 16:01:45 |只看作者 |坛友微信交流群|倒序 |AI写论文

相似文件

换一批

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

sas是个很强大的软件，我从接触到现在有4年时间了，期间间断的在学习中用到，本人不是专业统计人士，只是需要的时候用到，临时研究研究，所以本人水平一直不稳定

。好，闲话不多说了，回归正题。
在科研资料处理中我经常会遇到问卷中多选题的问题，如下面这个数据集：
data a;
input id x ;
cards;
1 123
2 234
3 134
4 14
5 24
6 45
7 12
8 135
9 1
;
run;

变量X是问卷中的多选题，有5个选项，录入时图方便，选择ABC，就录入成123……，现在想对其进行处理，就必需将其二分类化，最早的时候我是这样做的：

data a_new;
set a;
x1=index(x,'1');                               /*INDEX(s,s1) 查找s1在s中出现的位置。找不到时返回0。*/
x2=index(x,'2');                               /*引号不可少*/
x3=index(x,'3');
x4=index(x,'4');
x5=index(x,'5');
run;
data a_new1;
set a_new;
if x1^=0 then x1=1;
if x2^=0 then x2=1;
if x3^=0 then x3=1;
if x4^=0 then x4=1;
if x5^=0 then x5=1;
run;

后来随着我sas水平的提高，将程序进行了精简：
data a_new;
set a;
if index(x,'1')^=0 then x1=1; else x1=0;
if index(x,'2')^=0 then x2=1; else x2=0;
if index(x,'3')^=0 then x3=1; else x3=0;
if index(x,'4')^=0 then x4=1; else x4=0;
if index(x,'5')^=0 then x5=1; else x5=0;
run;

再后来，我接触了sas的宏编程技术，就有了把处理过程编程一个宏程序的想法，这样可以改个参数，直接调用即可，现将程序分享如下：
%let data=a;                         /*数据集名称*/
%let v=x;                            /*变量名*/
%let m=5;                            /*多选项数*/
%macro dx;
data &data._new;
set &data;
%do i=1 %to &m;
if index(&v,"&i")^=0 then &v&i=1;else &v&i=0;       /*一定要用双引号*/
%end;
run;
%mend;
%dx;
上面这段程序，只要改变“%let” 部分三个参数，全选运行就可以达到分变量的效果。

最后，将上述sas程序提供给大家下载，欢迎sas高手们指教，看能不能有更好的方法，或者再精简程序。