如何批量修改变量名为它的label名

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

比如一个数据集 data a导入后 变量名为 _c1_，_c2_ ，...， _c40_
比如_c1_的label是id 如何将它的label “id” 替代_c1_
...以此类推
批量处理

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：label Abel Lab 批量处理 Data

attrib  _all_  label='' ;

jg.sas 发表于 2020-7-3 11:49
attrib  _all_  label='' ;

这样只能把所有变量的label删除诶
比如第一个变量是_c1_
我想要的效果等价于rename _c1_=vlabel(_c1_) 当然这个语句运行不了

%macro mdf(libname=,memname=);

proc sql noprint;
   select nvar
   into :nvar
   from dictionary.tables
   where libname = "&libname" and memname = "&memname";
quit;
%do s=1 %to &nvar;
data _null_;
set &memname;
call symput("varlabel",vlabel(_c&s._));
run;
data &memname;
        set &memname;
        rename _c&s._=&varlabel;
run;
%end;
%mend;


想了个办法暂时解决了下

hyb971006 发表于 2020-7-3 14:10
%macro mdf(libname=,memname=);

proc sql noprint;

思路是对的，但是应该优化一下，你这多少个变量循环set多少次dataset，要是数据量大，估计。。。。循环做到rename后面，或者直接用call execute来做。

孤单的我们 发表于 2020-7-6 12:03
思路是对的，但是应该优化一下，你这多少个变量循环set多少次dataset，要是数据量大，估计。。。。循环做 ...

对。。我也感觉每次data步读 效率太低了

%macro mdf(libname=,memname=);
proc sql noprint;
   select nvar
   into :nvar
   from dictionary.tables
   where libname ="&libname" and memname ="&memname";
quit;
%put &nvar;
data _null_;
set &memname;
%do s=1 %to &nvar;
call symput("varlabel&s",vlabel(_c&s._));
%end;
run;
data &memname;
        set &memname;
%do s=1 %to &nvar;
        rename _c&s._=&&varlabel&s;
%end;
run;
%mend;

把循环加进data步中 小改了下宏 效率快了点

因为是初学sas，call execute还没弄清楚是怎么写

1. %macro mdf(libname=,memname=);
   
2. proc sql noprint;
   
3.         create table _temp as
   
4.         select distinct name,label from dictionary.columns where libname=upcase("&libname.") and memname=upcase("&memname.");
   
5. quit;
   
6. 
   
7. data _null_;
   
8.         set _temp end=last;
   
9.         if _n_=1 then do;
   
10.                 call execute("data &memname.; set &libname..&memname.; rename " );
    
11.         end;
    
12.         call execute(strip(name)||"="||strip(label)||" ");
    
13.         if last then call execute('; run;');
    
14. run;
    
15. 
    
16. proc delete data=_temp;
    
17. run;
    
18. %mend;

复制代码

抛砖引玉吧

1. proc contents data=sashelp.cars out=aa noprint;
   
2. run;
   
3. 
   
4. proc sql noprint;
   
5.         select strip(name)||"="||strip(label) into:renamevar separated by " " from aa ;
   
6. run;
   
7. %put &renamevar;

复制代码

我也来抛个砖