如何取出每个变量的标签，在每个标签前统一加上aa

1. data aaa;
   
2. label x='xxx' y='yyy';
   
3. input x y;
   
4. cards;
   
5. 1 2
   
6. 2 2
   
7. ;
   
8. run;

复制代码

如何取出每个变量的标签，在每个标签前加上aa，使x的标签变为aaxxx，y的标签变为aayyy。

label x='aaxxx' y='aayyy'; 自己可以指定，问题是如何用取出再加，谢谢！

proc contents data=aaa out=alabel;
run;

data newlabel;
  set alabel;
        labelnew=cats('aa',label);
run;

1. data aaa;
   
2. label x='xxx' y='yyy';
   
3. input x y;
   
4. cards;
   
5. 1 2
   
6. 2 2
   
7. ;
   
8. run;
   
9. 
   
10. data _null_;
    
11.   if 0 then set aaa;
    
12.   call execute('proc datasets nolist; modify aaa; label ');
    
13.   call execute(cats('x="aa',vlabel(x),'"'));
    
14.   call execute(cats('y="aa',vlabel(y),'"'));
    
15.   call execute(';quit;');
    
16. run;

复制代码

whymath 发表于 2022-2-20 14:22

变量很多，怎么写更好

proc contents data=aaa out=b;
run;

data step1;
        length code $200;
  set b;
        labelnew=cats('aa',label);
        code=cats(name,"=",quote(cats(labelnew)));
        keep code;  
run;

data step2;
    set step1 end=lastobs;
                if _n_=1 then call execute("data newaaa; set aaa; label");
                call execute(code);
run;
;run;

dxystata 发表于 2022-2-28 10:37
变量很多，怎么写更好

多次执行相同的操作，自然当用循环。

1. data aaa;
   
2.   label x='xxx' y='yyy';
   
3.   input x y;
   
4.   cards;
   
5.   1 2
   
6.   2 2
   
7.   ;
   
8. run;
   
9. 
   
10. data _null_;
    
11.   if 0 then set aaa;
    
12.   array _var_ var1 var2 var3...varn;
    
13.   call execute('proc datasets nolist; modify aaa; label ');
    
14.   do over _var_;
    
15.     call execute(cats(',vname(_par_),'="aa',vlabel(_par_),'"'));
    
16.   end;
    
17.   call execute(';quit;');
    
18. run;

复制代码