如何在sas中将多列合并为一列

Question

我有一个时间序列 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

我们该怎么做？

提前致谢。

Answer 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