求：重新命名多个不同变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现有一个数据表有n(比较大)个变量，现在想把变量从第一个开始命名为x1-xn,不知在SAS中可以搞定不？谢谢各位了。

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：数据表 命名 数据表

自己先顶了，谢谢

继续顶一下

这个问题还真没遇见过，坐等高手解答。

呵呵。我又来了。我自己编了个程序。
data a;
input  z x c v b n m;
cards;
1 2 3 4 5 6 7
5 6 7 8 9 0 1
;
run;
proc transpose data=a out=b;
run;
data c(drop=i);
do i=1 to n;
set b nobs=n;
_name_='x'||left(i);
output;
end;
run;
proc transpose data=c out=d(drop=_name_);
run;

但是这是说你已经用别的变量名保存了这些变量之后的修改。如果是一开始就没有定义的话。
你可以直接用Length 定义x1-xn变量 直接用他们来作为你的变量名。

data a;
input  z x c v b n m;
cards;
1 2 3 4 5 6 7
5 6 7 8 9 0 1
;
run;


proc sql noprint;
   select "rename " || strip(name) ||"= x"||put(varnum,best.-l)||";"
        into :rename separated by " "
         from dictionary.columns
         where libname="WORK" and memname="A";
quit;


data b;
   set a;
   &rename
run;

谢谢楼上各位的回复，我自己也做了一个：
data a;
input  z x c v b n m;
cards;
1 2 3 4 5 6 7
5 6 7 8 9 0 1
;
run;
proc transpose data=a out=a1 ；
run;
data a2;
set a1;
_name_=compress('p'||_n_);
run;
proc transpose data=a2 out=af (drop=_name_);
run;
最终将所有变量命名为p1-p7

1# wkn1986

data a;
input  z x c v b n m;
cards;
1 2 3 4 5 6 7
5 6 7 8 9 0 1
;
run;

options mprint;

%macro rename(lib,dsn,new);
proc sql noprint;
select nvar into :num_vars
from dictionary.tables
where libname="%upcase(&LIB)" and memname="%upcase(&DSN)";

select distinct(name) into :var1-:var%trim(&num_vars)
from dictionary.columns
where libname="%upcase(&LIB)" and memname="%upcase(&DSN)";
quit;
run;

proc datasets library=&lib;
modify a;
rename
%do i=1 %to &num_vars;
   &&var&i=&new&i
%end;
;
run;
%mend;

%rename(work,a,x)

将数据导出后如  txt 文件， 然后重新导入。