如何产生新变量

1. data aaa;
   
2. label sbp1='第一次收缩压' sbp2='第二次收缩压' sbp3='第3次收缩压';
   
3. input sbp1 sbp2 sbp3;
   
4. cards;
   
5. 120 118 119
   
6. 118 138 120
   
7. ;
   
8. run;

复制代码

根据数据集aaa提取变量标签然后产生新变量value为：
第一次收缩压：120，第二次收缩压：118，第三次收缩压：119
第一次收缩压：118，第二次收缩压：138，第三次收缩压：120

注：变量可能为2个，3个或更多。希望程序能通用。
可以用macro实现。

dxystata 发表于 2014-12-8 09:10
我需要的是value是两个观测！

1. This is what you want?
   
2. 
   
3. data want;
   
4.   set aaa ;
   
5.   array sbp sbp:;
   
6.   length value $500;
   
7.   do over sbp;
   
8.     value=catx(',',value, catx(':',vlabel(sbp),sbp));
   
9.   end;
   
10.   keep value;
    
11. run;

复制代码

1. data bbb;
   
2.   set aaa;
   
3.   array sbp sbp1 - sbp3;
   
4.   array sbpc $50 sbpc1 - sbpc3;
   
5. 
   
6.   do over sbp;
   
7.     sbpc = catx(':',vlabel(sbp),sbp);
   
8.   end;
   
9. run;

复制代码

变量名不同的话，请给出一定的规律。

银子我可能已经用不到了哈。

Tigflanker 发表于 2014-12-7 21:01
变量名不同的话，请给出一定的规律。

银子我可能已经用不到了哈。

学一招do over

Tigflanker 发表于 2014-12-7 21:01
变量名不同的话，请给出一定的规律。

银子我可能已经用不到了哈。

我希望得到一个新变量，你的程序中是三个新变量。
注：变量可能为2个，3个或更多。希望程序能通用。可以用macro实现。

Tigflanker 发表于 2014-12-7 21:01
变量名不同的话，请给出一定的规律。

银子我可能已经用不到了哈。

我希望得到一个新变量，你的程序中是三个新变量。
注：变量可能为2个，3个或更多。希望程序能通用。可以用macro实现。

    data aaa;
    label sbp1='No. 1' sbp2='No. 2' sbp3='No. 3';
    input sbp1 sbp2 sbp3;
    cards;
    120 118 119
    118 138 120
    ;
    run;

        data bbb;
          set aaa;
          array x(*) sbp1 sbp2 sbp3;
          do _I_=1 to dim ( x );
            value=x(_I_);
                desc=catt( vlabel(x(_I_) ), ' / N=', _N_);
                output;
          end;
          keep value desc;
        run;

        proc print;run;

bobguy 发表于 2014-12-8 08:34
data aaa;
    label sbp1='No. 1' sbp2='No. 2' sbp3='No. 3';
    input sbp1 sbp2 sbp3;

输出不对！

1. data aaa;
   
2. label sbp1='first pressure' sbp2='second pressure' sbp3='third pressure';
   
3. input sbp1 sbp2 sbp3;
   
4. cards;
   
5. 120 118 119
   
6. 118 138 120
   
7. ;
   
8. run;
   
9. 
   
10. 
    
11. data want;
    
12.   set aaa end=last;
    
13.   array sbp sbp:;
    
14.   length value $500;
    
15.   retain value;
    
16.   do over sbp;
    
17.     value=catx(',',value, catx(':',vlabel(sbp),sbp));
    
18.   end;
    
19.   if last;
    
20.   keep value;
    
21. run;

复制代码

farmman60 发表于 2014-12-8 09:02

我需要的是value是两个观测！