一个困扰我的很难得数据处理问题

shiyiming

我有这样一个数据集：
   data a;
input n id X1 X2@@;
cards
   1  1  2 3
   1  2  3 3
   1  3  3  4
   2  1   2  3
   2   2  3  4
;
run;

这个数据集是表示第一个变量跟后面多个变量对应，我想把一个变量的三行变为一行，比如说1这个变量，后面有1 2 3 三个变量对应，我想能不能用SAS程序编为这样的1 2 3 3 3 3 4 ，2这个变量就变为2 2 3 3 4 的，麻烦各位高手帮忙。

shiyiming

问题没看明白，谢谢！

shiyiming

[quote:3jt8lk7d]我想能不能用SAS程序编为这样的1 2 3 3 3 3 4 ，2这个变量就变为2 2 3 3 4[/quote:3jt8lk7d]

如果把变量理解为行的话，那第二行不就成了瘸子了吗？第一行7个变量第二行5个。人瘸可以，SAS如果瘸了，它就不干活了。

shiyiming

按我理解，LZ应该是这个意思吧，偶比较愚钝..
n X1_id X2_id 即
n X1_1 X2_1 X1_2 X2_2 X1_3 X2_2
1     2      3      3      3       3      4
2     2      3      3      4        .      .

shiyiming

[code:1wi9y0qq]
data raw;
        length x $20;
        input;
        id=input(scan(_infile_,1),best.);
        x=substr(_infile_,5);
datalines;
1 1 2 3
1 2 3 3
1 3 3 4
2 1 2 3
2 2 3 4
;

proc sort data=raw;
        by id;
run;

data final(drop=x varn max);
        retain max;
        length x_list $50;
        do _n_=1 by 1 until(last.id);
                set raw end=eof;
                by id;
                x_list=catx(' ',strip(x_list),strip(x));
        end;
        varn=count(strip(x_list),' ')+1;
        max=max(max,varn);
        if eof then call symputx('varn',max);
run;

data final(drop= x_list i);
        set final;
        array arr{*} x1-x&varn;
        do i=1 to &varn;
                arr(i)=input(scan(x_list,i),best.);
        end;
run;[/code:1wi9y0qq]

shiyiming

[code:2oa01swx]data a;
input n id X1 X2@@;
cards;
1 1 2 3
1 2 3 3
1 3 3 4
2 1 2 3
2 2 3 4
;
run;
proc transpose data=a out=ax1(drop=_name_) prefix=x1_;
  var x1;
  id id;
  by n;
run;
proc transpose data=a out=ax2(drop=_name_) prefix=x2_;
  var x2;
  id id;
  by n;
run;
data aa;
  merge ax1 ax2;
run;
[/code:2oa01swx]