求助，数据合并

shiyiming

现在有数据集X，有两个变量，1个字符，1个数值，如下
aaa    1
bbb     2
aaa,bbb,ccc    3
ddd     4
要把观测合并成
aaa,bbb,ccc 6
ddd 4
请大虾们帮忙看看怎么写

shiyiming

自己顶一个

shiyiming

处理逻辑是什么？

shiyiming

我也看不懂，老大，问题也得写清楚，才有人回答啊

shiyiming

aaa,bbb,ccc包含aaa，将aaa的值加到aaa,bbb,ccc中，并且删除aaa观测。
aaa,bbb,ccc包含bbb，将bbb的值加到aaa,bbb,ccc中，并且删除bbb观测。

shiyiming

Following code is just for your information.

data a;
input x : $20.  y;
cards;
aaa 1
bbb 2
aaa,bbb,ccc 3
ddd 4
ddd,eee 5
fff 6
;
run;

proc sql noprint;
select nobs into : nobs from sashelp.vtable where libname='WORK' and memname='A' and memtype='DATA';
quit;

data b;
array  temp(&nobs) $ 20 ;
do i=1 to total;
set a point=i;
temp(i)=x;
end;
set a nobs=total;
n=0;
do i=1 to total;
if temp(i)=x then n+1;
cnt=count(temp(i),',');
if cnt>0 and temp(i) ne x then do;
do j=1 to cnt+1;
if x=scan(temp(i),j,',') then delete;
end;
end;
end;
keep x y;
run;

shiyiming

to jimmy782
非常感谢这位高手，这段程序写得很好，
这段程序之做到了将aaa、bbb、ddd三条记录删除，
还没完全满足我的需求，
还要将aaa和bbb的y变量值累加到aaa,bbb,ccc中，ddd的y变量值累加到ddd,eee中
结果应该是
aaa,bbb,ccc 6
ddd,eee 9
fff 6
望高手再来指导下，谢谢各位了。

shiyiming

<!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->
帮顶！

Qiong

data a;
input x : $20. y;
cards;
aaa 1
bbb 2
aaa,bbb,ccc 3
aaa,bbb,ccc,fff 3
ddd 4
ddd,eee 5
fff 6
;
run;
      
proc sql;
create table exclu as select b.*
from a as a
inner join a as b
on index(trim(a.x),trim(b.x))and length(b.x)&lt;length(a.x) ;
create table vicky  as select distinct a.x,sum(b.y) as y_sum
from a as a
left join a as b
on index(trim(a.x),trim(b.x))&gt;0
group by a.x;
create table vicky  as select *
from vicky
where x not in (select x from exclu);
quit;           
proc print data=vicky;
run;

shiyiming

简单修改了下，以前没细看需求，不好意思。

data a;
input x : $20. y;
cards;
aaa 1
bbb 2
aaa,bbb,ccc 3
fff,aaa,bbb,ccc 3
ddd 4
ddd,eee 5
fff 6
;
run;

proc sql noprint;
select nobs into : nobs from sashelp.vtable where libname='WORK' and memname='A' and memtype='DATA';
quit;

data b;
array tx(&amp;nobs) $ 20 ;
do i=1 to total;
set a point=i;
tx(i)=x;
end;
array ty(&amp;nobs) $ 20 ;
do i=1 to total;
set a point=i;
ty(i)=y;
end;
set a nobs=total;
n=0;
do i=1 to total;
if tx(i)=x then n+1;
if tx(i) ne x then do;
if index(trim(tx(i)),trim(x))&gt;0 then n+1;
else if index(trim(x),trim(tx(i)))&gt;0 then y+ty(i);
end;
if n&gt;1 then delete;
end;
keep x y;
run;