数据集变量值改变

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教大家一个问题：
数据集a:
data a;
input var $ center scrno pageno seqno;
cards;
height 1 1 4 1
height 1 1 5 1
weight 1 2 2 1
weight 1 2 5 1
vssbp  1 1 4 1
vssbp  1 1 5 1
;
run;


数据集b:
data b;
input height $ 1-20 weight $ 21-40 vssbp $ 41-60 ;
cards;
height is missing    weight is missing     vssbp is missing
;
run;


有什么方法使数据集a的变量var的值变成数据集b相应变量的值，即如下数据集c的形式: 不知宏能不能实现？各位大牛给给建议，谢谢！
数据集c:
height is missing     1 1 4 1
height is missing     1 1 5 1
weight is missing     1 2 2 1
weight is missing     1 2 5 1
vssbp is missing      1 1 4 1
vssbp is missing      1 1 5 1

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据集变量 数据集 变量值 请教大家一个问题 missing center

1. data c(drop=height weight vssbp);
   
2. length var $20.;
   
3.         if _n_=1 then set b;
   
4.         set a;
   
5.         array bb(3) height weight vssbp;
   
6.                 do i=1 to 3;
   
7.                         if var=scan(left(bb(i)),1,'') then var=bb(i);
   
8.                 end;
   
9. run;

复制代码

试试！

非常感谢baoaibaobao 的code, 执行结果是正确的。
但是我的变量有一千多个，不方便写这样的语句：drop=height weight vssbp及array bb(3) height weight vssbp;
能否有更简单的方法来达到目的？

ttklkl 发表于 2011-3-14 21:45
非常感谢baoaibaobao 的code, 执行结果是正确的。
但是我的变量有一千多个，不方便写这样的语句：drop=height weight vssbp及array bb(3) height weight vssbp;
能否有更简单的方法来达到目的？

1. data c;
   
2. length var $20.;
   
3.         if _n_=1 then set b;
   
4.         set a;
   
5.         array bb(*) _character_;
   
6.                 do i=1 to dim(bb);
   
7.                         if var=scan(left(bb(i)),1,'') then var=bb(i);
   
8.                 end;
   
9.                 keep var center scrno pageno seqno;
   
10. run;

复制代码

baoaibaobao 发表于 2011-3-14 22:05

ttklkl 发表于 2011-3-14 21:45
非常感谢baoaibaobao 的code, 执行结果是正确的。
但是我的变量有一千多个，不方便写这样的语句：drop=height weight vssbp及array bb(3) height weight vssbp;
能否有更简单的方法来达到目的？

1. data c;
   
2. length var $20.;
   
3.         if _n_=1 then set b;
   
4.         set a;
   
5.         array bb(*) _character_;
   
6.                 do i=1 to dim(bb);
   
7.                         if var=scan(left(bb(i)),1,'') then var=bb(i);
   
8.                 end;
   
9.                 keep var center scrno pageno seqno;
   
10. run;

复制代码

非常感谢baoaibaobao ，高手！

再请教下baoaibaobao，如果数据集b是如下形式：不是数值前第一个单词是变量名，例如变量vssbp值是Blood Pressure (SBP) is missing. Please provide。

data b;
input height $ 1-20 weight $ 21-40 vssbp $ 41-100 ;
cards;
height is missing    weight is missing     Blood Pressure (SBP) is missing. Please provide.;
run;

该怎么处理？谢谢！

根据我的理解，A表里面var的值是B表里相应变量的名字，需要把A表的值替换为相应B表该变量的值。
我写了个小程序如下：

proc sql noprint;
        select distinct var
        into :varA1-:varA3
        from a;
quit;

data _null_;
        set b;
        array bb(*) _character_;
        call symput("countvar", dim(bb));
        maxlen=0;
        do i=1 to dim(bb);
                maxlen=max(maxlen,lengthc(bb(i)));
        end;
        call symput("maxlength", maxlen);
run;

data c;
        length var $ &maxlength;
        set a;
run;

%macro update;
        proc sql;
                %do i=1 %to &countvar;
                        update c
                        set var=(select &&vara&i from b)
                        where var="&&vara&i";
                %end;
        quit;
%mend update;
%update

7# myc_sas

Thanks, great！

试一试这个。
proc transpose data=b out=transb; var _all_; run;                                                                                       
proc sql;                                                                                                                              
select transb.COL1,center, scrno, pageno, seqno                                                                                         
from a left join transb on a.var=transb._name_                                                                                          
;                                                                                                                                       
quit;

Thank you! 9# david0