SAS 数据横向合并问题！求助！ [推广有奖]

11楼

wpfwxn 发表于 2015-3-2 18:36:28

好吧，仔细研究了一下，双set也不好实现。
data a;
  set a;
  obs = _N_;
run;

proc sort data =a; by name; run;

data a;
set a; by name;
if first.name then vobs = 0;
vobs + 1;
run;

proc sort data = b; by name; run;
data b;
set b; by name;
if first.name then vobs = 0;
vobs + 1;
run;

proc sql noprint;
create table c as
   select a.name,b.v1, b.v2, a.v3, a.v4, a.obs
   from a left join b
   on a.name = b.name and a.vobs = b.vobs
order by obs ;
quit;

data c(drop = obs);
  set c; by obs;
  if first.obs then output;
run;

把a先去掉观测4，然后merge，再加上观测4，再恢复顺序，也可以实现

12楼

wpfwxn 发表于 2015-3-2 19:27:01

用merge实现：

data a;
  set a;
  obs = _N_;
  if name = 'orissa' then obs1 = 999;
  else obs1 = obs;
run;

proc sort data = a ; by obs1; run;

data c;
  merge b a;
  drop obs1;
run;

proc sort data = c out= d(drop = obs); by obs; run;

13楼

wpfwxn 发表于 2015-3-2 19:56:47

利用双set过程实现：

data a(index=(namev = (name vobs)));
  set a;
  length namelst $2000;
  retain namelst;
  namelst = catx('', namelst, name);
  vobs = count(namelst, name, 't');
  drop namelst;
run;

data b(index=(namev = (name vobs)));
  set b;
  length namelst $2000;
  retain namelst;
  namelst = catx('', namelst, name);
  vobs = count(namelst, name, 't');
  drop namelst;
run;

data c;
  retain name variable1-variable4;
  set a ;
  set b key = namev;
  if _iorc_ eq 0 then do;
   _iorc_=0;
   _error_=0;
  end;
  else do;
_iorc_=0;
_error_=0;
variable1 = .;
variable2 = .;
  end;
  drop vobs;
run;