proc format;
value happiness 1='1级' 2='2级' 3='3级' 4='4级' 5='5级';
value marrital_status 0='单身' 1='已婚';
value education 1 ='小学' 2 ='初中' 3 ='高中' 4='大学' 5='硕士及以上';
value saving 0='无储蓄' 1='有储蓄';
value applied 0='未申请' 1='申请过';
value havecard 0='无卡' 1='有卡';
run;
data yy;
missing a ;
input (happiness marrital_status education saving
applied havecard )(1.);
if n( of happiness marrital_status education saving
applied havecard ) eq 0 then do;
input;
return;
end;
format happiness happiness.
marrital_status marrital_status.
education education.
saving saving.
applied applied.
havecard havecard. ;
output;
cards;
4 0 6 1 1 1
2 0 5 0 1 1
4 0 5 0 1 0
4 0 6 1 1 1
3 0 6 0 0 0
4 0 3 1 0 0
3 0 5 0 0 0
4 1 5 1 1 1
4 0 5 0 0 0
3 0 6 0 1 1
4 0 6 0 1 1
5 0 4 0 1 1
4 0 6 0 1 1
4 1 6 1 1 1
2 0 5 0 1 1
4 0 6 0 1 1
3 0 5 0 1 1
3 0 5 0 0 0
4 0 5 0 1 1
3 0 5 0 0 0
3 0 5 0 0 0
3 0 6 0 1 1
4 1 5 0 1 1
3 1 6 1 1 1
4 0 6 0 1 1
3 0 6 0 1 1
5 0 6 1 1 1
4 0 4 1 1 1
3 1 5 0 1 1
3 0 6 0 1 1
4 0 5 1 0 0
3 0 5 0 0 0
2 0 5 0 1 0
2 1 6 1 1 1
4 0 6 0 1 0
4 0 5 0 0 1
3 0 6 0 1 1
1 0 5 0 0 0
4 1 6 1 1 1
1 0 5 0 0 0
4 0 6 0 1 1
4 0 5 1 1 0
4 0 6 0 1 1
4 1 5 0 1 1
3 0 6 1 0 0
4 0 6 1 1 1
4 0 5 0 1 1
3 0 5 1 1 1
4 0 3 1 0 0
3 0 5 0 1 1
4 0 6 0 1 1
3 0 5 1 1 1
4 0 6 1 1 1
4 0 5 0 1 1
4 0 5 0 0 0
4 0 6 1 1 1
4 0 5 1 1 1
4 1 6 0 1 1
4 1 6 0 1 1
3 0 4 0 0 0
3 0 5 0 1 0
4 0 5 0 1 1
3 0 5 0 1 1
5 0 6 1 1 1
4 0 6 1 1 1
3 0 5 0 0 0
2 0 1 0 0 0
4 1 5 1 1 1
3 1 6 1 1 1
2 0 5 0 0 0
4 0 6 0 0 0
4 0 6 0 0 0
3 0 5 0 1 1
3 1 5 1 0 0
4 0 6 0 0 0
4 0 5 0 1 1
3 0 5 1 0 0
4 1 6 1 1 1
4 0 5 0 0 0
3 0 5 0 1 1
4 0 5 0 1 0
3 0 5 0 1 1
1 0 6 0 0 0
3 0 6 1 1 1
4 0 6 0 1 1
4 1 6 1 1 1
4 0 6 1 1 1
3 0 5 0 1 1
4 1 5 1 1 1
2 0 5 0 1 1
4 0 5 0 1 1
2 0 1 1 0 1
4 0 6 0 1 1
5 1 6 1 0 0
4 0 6 0 1 1
3 0 5 1 0 0
3 0 5 0 0 0
5 1 6 1 1 1
3 0 6 1 1 1
4 0 5 0 1 1
4 1 6 0 1 0
3 0 1 0 0 0
4 0 5 0 0 0
1 0 4 0 1 1
3 0 6 0 1 1
4 0 6 1 1 1
4 0 6 0 0 0
3 0 5 0 1 1
4 0 6 0 1 0
3 0 5 1 1 1
3 0 6 1 1 1
4 1 5 0 1 1
3 0 5 1 1 1
3 0 5 1 1 1
2 0 5 0 1 0
3 0 5 1 1 1
1 0 5 0 1 1
4 0 5 0 1 1
4 0 6 0 1 0
3 0 5 0 1 1
4 0 5 1 1 1
4 0 6 0 1 0
3 0 6 1 1 1
4 1 5 0 1 1
5 1 6 1 1 1
3 0 4 1 0 0
1 0 6 1 1 1
4 0 5 1 1 1
4 0 6 0 1 0
2 0 6 0 1 1
4 0 5 0 1 1
3 0 5 0 1 0
4 0 5 0 1 1
4 0 5 0 0 0
3 0 5 0 1 1
3 0 5 0 1 0
2 0 6 0 0 0
3 0 5 0 0 0
3 0 6 1 0 0
3 0 5 1 1 1
4 0 5 0 1 1
4 0 5 0 0 0
3 0 5 1 1 1
3 0 5 1 1 1
3 1 6 0 1 1
3 0 5 0 0 0
3 1 5 1 0 0
4 0 5 0 0 0
4 0 6 0 1 1
3 0 6 0 0 0
5 0 5 0 0 1
4 1 5 1 1 1
2 0 5 0 1 1
3 0 5 1 1 1
4 1 5 1 1 1
3 0 5 1 1 0
3 0 5 0 0 0
3 0 5 0 1 1
4 0 5 0 1 1
2 1 5 0 1 1
4 0 5 1 1 1
4 1 5 1 1 1
4 1 5 0 1 1
4 1 6 0 1 1
4 0 6 1 0 0
4 1 6 0 1 1
2 1 6 0 1 1
3 1 6 0 0 0
4 0 6 0 1 1
2 1 5 0 1 1
3 0 6 0 1 1
4 0 5 0 0 0
4 1 6 0 0 0
4 0 6 1 1 1
4 0 6 0 1 1
4 0 5 0 1 1
2 0 6 0 1 1
4 0 6 1 1 1
3 0 5 0 1 1
3 0 5 0 1 1
1 0 6 0 1 1
4 0 6 0 0 0
4 0 5 0 1 1
3 0 5 1 1 1
4 1 1 0 1 1
4 0 6 0 1 1
4 0 6 0 1 0
5 0 6 0 1 1
4 0 5 0 1 0
4 0 5 0 1 1
3 0 5 1 1 0
4 0 6 0 1 1
2 0 6 0 1 1
4 1 5 1 0 1
3 0 6 0 1 1
4 0 5 1 0 0
4 0 5 0 1 1
4 1 6 1 1 1
3 1 6 1 0 0
4 0 5 0 0 0
2 0 5 0 0 0
4 0 3 0 1 1
4 0 6 1 1 1
4 0 5 1 0 0
4 0 5 0 0 0
3 0 5 0 1 1
2 0 5 0 1 1
3 0 5 1 0 0
5 0 5 1 1 1
4 0 6 0 1 1
3 1 5 0 1 1
4 0 5 0 1 1
4 0 5 0 1 1
4 0 6 1 0 0
4 0 6 1 1 1
4 0 5 0 1 1
3 0 6 0 1 1
3 0 6 0 1 1
4 0 6 0 1 1
3 0 5 0 0 0
4 1 6 0 0 0
3 1 6 1 1 1
5 0 5 0 1 1
5 1 6 1 1 1
4 1 5 0 1 1
2 0 5 0 1 1
;
proc corresp mca observed data=yy outc=coor;
tables happiness marrital_status education saving
applied havecard ;
run;
proc plot data=coor vtoh=2;
plot dim1*dim2='*' $ _name_/
haxis=by 1 vaxis=by 1 box href=0 vref=0;
run;