求助，整理数据的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

现在我有的数据如下：
ind         wash soap     touch_1
99101    2        0           noteboo
99101    2        0           bottle
99102    2        0           child a
99102    1        1            noteboo
99102    2         0            toys
99102    2        0            child a
99103    2         0            child a
99103    1        1           noteboo
99104    3        3           bottle
99104    1        1           Food co
99104    2        0           self (n
。。。
数据全都按照ind排过序。
现在要整合成如下表：
ind         wash#1 soap#1 touch_1#1   wash#2 soap#2  touch_1#2 wash#3 soap#3  touch_1#3  wash#4 soap#4  touch_1#4....
99101    2            0           noteboo       2            0           bottle          .             .             .                .              .             .
99102    2            0           child a         1            1             noteboo       2             0            toys           2             0            child a
99103    2             0            child a         1            1           noteboo      .              .             .                .               .           .
.....
其实就是新建变量，做成一行一个ind的表，请大家帮忙，写下code,事成给钱。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：整理数据 bottle Touch eboo note

1# 456852

1. 
   
2. proc transpose data =UrData out =new1 prefix ='wash#'n;
   
3. by ind; var wash;
   
4. proc transpose data =UrData out =new2 prefix ='soap#'n;
   
5. by ind; var soap;
   
6. proc transpose data =UrData out =new3 prefix ='touch_1#'n;
   
7. by ind; var touch_1;
   
8. data new;
   
9. merge new1 new2 new3; by ind;
   
10.    drop _name_;
    
11. run;

复制代码

拿钱来。

我现在变量有很多个，超过30，不止这3个，手动的写肯定不行。

变量是不允许含 # 的
----------------------
data a;
input ind$    wash$  soap$     touch_1 &$15.@@;
cards;
99101    2        0           noteboo
99101    2        0           bottle
99102    2        0           child a
99102    1        1            noteboo
99102    2        0            toys
99102    2        0            child a
99103    2        0            child a
99103    1        1           noteboo
99104    3        3           bottle
99104    1        1           Food co
99104    2        0           self (n
;run;
data b;set a(drop=ind);run;
proc sql noprint ;
create table vars as
select varnum,name
from dictionary.columns
where memname='B';
select count(distinct(name))
into: mark from vars;
quit;
%macro ca;
data _null_;                              
set vars;                                 
call symput ('n',_n_);                    
call symput (compress('ca'||_n_),name);
run;  
%do i=1 %to &mark;
proc transpose data =a
out=new&i(drop=_name_) prefix=&&ca&i ;
by ind; var &&ca&i;
%end;
run;
data tmp;
merge %do i=1 %to &mark;
new&i
%end;
;by ind;
run;
%mend;
%ca;
data c;set tmp(drop=ind);run;
proc sql noprint;
create table vars1 as
select varnum,name
from dictionary.columns
where memname='C';
quit;
data vars2;set vars1;l=length(name);
z=substr(name,l,1);run;
proc sort data=vars2;by z varnum;run;
data vars3;set vars2;keep name;run;
%macro ba;                             
data _null_;                              
set vars3;                                 
call symput ('n',_n_);                    
call symput (compress('co'||_n_),name);
run;  
proc sql noprint;
select count(*) into:n1 from vars3;
quit;
data s;
array  v(*) _char_ ind v1-v%eval(&n1);
%do i=1 %to &n1;
%end;
run;
data s1;
set s;
_ind=trim(ind);
%do i=1 %to &n1;
_v&i=trim(v&i);
drop v&i ind;
rename _ind=ind _v&i=v&i;
%end;
run;
data s2;
set s1;
%do i=1 %to &n1;
rename v&i=&&co&i;
%end;
data s3;
set s2 tmp;
run;
data final ;set s3(firstobs=2);run;
proc print data=final;run;
%mend;
%ba;

3# 456852

1. 
   
2. data a;
   
3. input ind    wash  soap     touch_1 &$15.@@;
   
4. cards;
   
5. 99101    2        0           noteboo
   
6. 99101    2        0           bottle
   
7. 99102    2        0           child a
   
8. 99102    1        1            noteboo
   
9. 99102    2        0            toys
   
10. 99102    2        0            child a
    
11. 99103    2        0            child a
    
12. 99103    1        1           noteboo
    
13. 99104    3        3           bottle
    
14. 99104    1        1           Food co
    
15. 99104    2        0           self (n
    
16. ;run;
    
17. proc contents data =a out =b(where =(upcase(name) ^='IND')) noprint; run;
    
18. proc sql noprint ;
    
19. select name into :NameList  separated by ' ' from b;
    
20. quit;
    
21. %macro cMcr;
    
22. %local i dsets;
    
23. %let i =1; %let dsets =;
    
24. %do%while(%scan(&NameList, &i) ^=);
    
25.   %let var =%scan(&NameList, &i);
    
26.   proc transpose data =a out =new&i prefix =&var.;
    
27.    by ind; var &var.;
    
28.   run;
    
29.   %let dsets =&dsets new&i;
    
30.   %let i =%eval(&i+1);
    
31. %end;
    
32. data final; merge &dsets; by ind; run;
    
33. quit;
    
34. %mend cMcr;
    
35. %cMcr
    
36. ;

复制代码

拿钱来！！！另外，我觉得你很挑剔呢。三十几个变量一个一个写也没有多少。太懒了。

5# jingju11 强的！

• 1. data tmp;
     
  2. input ind wash soap touch_1:&$ 20. ;
     
  3. datalines;
     
  4. 99101 2 0 noteboo
     
  5. 99101 2 0 bottle
     
  6. 99102 2 0 child a
     
  7. 99102 1 1 noteboo
     
  8. 99102 2 0 toys
     
  9. 99102 2 0 child a
     
  10. 99103 2 0 child a
      
  11. 99103 1 1 noteboo
      
  12. 99104 3 3 bottle
      
  13. 99104 1 1 Food co
      
  14. 99104 2 0 self (n
      
  15. ;
      
  16. run;
      
  17. %macro trans(fname,type);
      
  18. proc transpose data=&fname out=tmp2 name=t;
      
  19. by ind notsorted;
      
  20. var _&type._;
      
  21. run;
      
  22. proc transpose data=tmp2 out=tmp2_2 ;
      
  23. by ind t notsorted;
      
  24. var col:;
      
  25. run;
      
  26. data tmp2_21;
      
  27. set tmp2_2;
      
  28. by ind t notsorted;
      
  29. if first.t then sum=0;
      
  30. sum+1;
      
  31. t=cat(compress(t),compress(sum));
      
  32. run;
      
  33. proc transpose data=tmp2_21 out=&type;
      
  34. by ind notsorted;
      
  35. id t;
      
  36. var col1;
      
  37. run;
      
  38. %mend trans;
      
  39. %trans(tmp,character)
      
  40. %trans(tmp,numeric)
      
  41. data last(drop=ind1-ind4 _name_);
      
  42. merge numeric character;
      
  43. by ind;
      
  44. run;

  复制代码