如何在sas中将多个列连接成一个列

时间:2016-05-12 03:58:33

标签: sas dataset jointable

我有一个时间序列SAS数据集,我想将其传输到垂直数据集。

我的数据看起来像..

ID A2009 A2010 A2011 A2012
1      1     2     3     4  
2      1     2     3     4   
3      1     2     3     4   
4      1     2     3     4   
5      1     2     3     4    

data multcol;
infile datalines;
input ID A2009 A2010 A2011 A2012 A2013;
return;
datalines;
1 1 2 3 4 5
2 1 2 3 4 5
3 1 2 3 4 5
4 1 2 3 4 5
5 1 2 3 4 5
;
run;

proc print data=multcol noobs;
run;

我在网上搜索只找到某人的解决方案如下。没有工作。 但我的数据集太大,这种方法关闭了我的电脑。

data cmbcol(keep=a orig_varname orig_obsnum);
set multcol;
array myvars _numeric_;
do i = 2 to dim(myvars);
orig_varname = vname(myvars(i));
orig_obsnum = _n_;
A = myvars(i);
output;
end;
run;

proc print data=cmbcol ;
title 'cmbcol';
run;

proc sort data=cmbcol;
by orig_varname a;
run;

proc print data=cmbcol noobs;
title 'cmbcol';
run;

我希望他们变得像这样。

ID  t  t+1  
1   1   2    
2   1   2    
3   1   2 
4   1   2   
5   1   2  
1   2   3
2   2   3
3   2   3
4   2   3
5   2   3
1   3   4
2   3   4
3   3   4
4   3   4
5   3   4

我们怎么能这样做?

提前致谢。

1 个答案:

答案 0 :(得分:1)

这肯定是一种不寻常的数据结构,但您可以使用以下宏来实现此目的(根据您的需要进行调整)。

options validvarname = any;

%macro transp;
  %let i = 2009;
  %do %while (&i <= 2011);
    %let j = %eval(&i + 1);
    data part_&i(rename = (A&i = t A&j = 't+1'n));
      set multcol(keep =  ID A&i A&j);
    run;
    %let i = %eval(&i + 1);
  %end;

  data combined;
    set part_:;
  run;

  proc datasets nolist nodetails;
    delete part_:;
  quit;
%mend transp;

%transp