如何把一条记录变成6条记录

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现在的数据表是这样的：
ID ADRESS CHECKER   DATE   SEX01  SEX02 SEX03 OCCUP1    OCCUP02    OCCUP03 OLD01 OLD02 OLD03
1  PKU        CRACKMAN  090909 F         M       M        STUDENT        STUDENT   STUDENT              23       22      24
2  PKU        CRACKMAN  090909 F         M       F        STUDENT        STUDENT   STUDENT               22      21      22
3  PKU        CRACKMAN  090909 M        F        M        STUDENT       STUDENT   STUDENT                19     19     23
4  PKU        CRACKMAN  090909 M        F       M        STUDENT         STUDENT   STUDENT              24       24    21

现在想变成如下这个表：

ID       ADRESS CHECKER   DATE      SEX      OCCUP    LOD
101     PKU  CRACKMAN      090909    F             STUDENT 23
102   PKU   CRACKMAN      090909     M                STUDENT 22
........
就是把第一个表的一条记录变成下面的三条记录
谢谢！！！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：crackman Student Ackman CRACK Dress 记录

应该符合你的要求了
data a;
input ID ADRESS $ CHECKER $  DATE:ddmmyy.  SEX01$  SEX02$ SEX03$  OCCUP01$  OCCUP02$  OCCUP03$  OLD01 OLD02 OLD03;
format date ddmmyy6.;
datalines;
1  PKU    CRACKMAN  090909  F       M      M     STUDENT    STUDENT   STUDENT  23    22    24
2  PKU    CRACKMAN  090909  F       M      F     STUDENT    STUDENT   STUDENT  22    21    22
3  PKU    CRACKMAN  090909  M       F      M     STUDENT    STUDENT   STUDENT  19    19    23
4  PKU    CRACKMAN  090909  M       F      M     STUDENT    STUDENT   STUDENT  24    24    21
;
run;

data b;
set work.a;
keep ID ADRESS  CHECKER   DATE  SEX ;
array ta {*} $ SEX01  SEX02 SEX03;
do ti = 1 to dim(ta);                                                                                                        
     SEX = ta{ti};
output;                                                                                                                           
end;
run;         
data c;
set work.a;
keep  OCCUP;
array tb {*} $ OCCUP01  OCCUP02  OCCUP03;
do ti = 1 to dim(tb);                                                                                                        
     OCCUP = tb{ti};
output;
end;
run;
data d;
set work.a;
keep  OLD;
array tc {*} OLD01 OLD02 OLD03;
do ti = 1 to dim(tc);                                                                                                        
     OLD = tc{ti};
output;
end;
run;

data abc;
merge b c d;
run;

1# crackman

1. *using the above dataset a;
   
2. data b (keep=id_ adress date sex occup old rename=(id_=id));
   
3. set a;
   
4. array sex_  SEX01  SEX02 SEX03;
   
5. array occ_  OCCUP01  OCCUP02  OCCUP03;
   
6. array old_   OLD01 OLD02 OLD03;
   
7. n=0;
   
8. do over sex_;
   
9.   n+1;
   
10.   id_ = id*100+n;
    
11.   sex = sex_;
    
12.   occup = occ_;
    
13.   old = old_;  
    
14.   output;
    
15. end;  
    
16. run;

复制代码

*note:address mistakenly spelled as adress;

data a;
input
ID ADRESS$ CHECKER$   DATE:yymmdd10.   SEX01$  SEX02$ SEX03$ OCCUP01$    OCCUP02 $   OCCUP03$  OLD01 OLD02 OLD03@@;
format date yymmdd10.;
cards;
1  PKU        CRACKMAN  090909 F         M       M        STUDENT        STUDENT   STUDENT              23       22      24
2  PKU        CRACKMAN  090909 F         M       F        STUDENT        STUDENT   STUDENT               22      21      22
3  PKU        CRACKMAN  090909 M        F        M        STUDENT       STUDENT   STUDENT                19     19     23
4  PKU        CRACKMAN  090909 M        F       M        STUDENT         STUDENT   STUDENT              24       24    21
;run;
%let num=3;%macro x;%do i=1 %to #proc sql;create table a&i as select id*100+&i as id,adress,
checker,date,sex0&i as sex,occup0&i as occup,old0&i as old from a ;quit;%end;%mend;%x;
%macro y;data final; set %do i=1 %to #a&i %end; ;run;proc sort;by id;run;%mend;%y;

馊主意
output 3次再set

Here is my macro way.

1. data a;
   
2. input ID ADRESS $ CHECKER $  DATE:ddmmyy.  SEX01$  SEX02$ SEX03$  OCCUP01$  OCCUP02$  OCCUP03$  OLD01 OLD02 OLD03;
   
3. format date ddmmyy6.;
   
4. datalines;
   
5. 1  PKU    CRACKMAN  090909  F       M      M     STUDENT    STUDENT   STUDENT  23    22    24
   
6. 2  PKU    CRACKMAN  090909  F       M      F     STUDENT    STUDENT   STUDENT  22    21    22
   
7. 3  PKU    CRACKMAN  090909  M       F      M     STUDENT    STUDENT   STUDENT  19    19    23
   
8. 4  PKU    CRACKMAN  090909  M       F      M     STUDENT    STUDENT   STUDENT  24    24    21
   
9. ;
   
10. run;
    
11. %macro test(n);
    
12. data b;
    
13.         set %do ii = 1 %to &n.;
    
14.                       a(keep = ID ADRESS CHECKER DATE SEX0&ii. OCCUP0&ii. OLD0&ii.
    
15.                          rename=(SEX0&ii. = SEX OCCUP0&ii. = OCCUP OLD0&ii. = OLD))
    
16.               %end;;
    
17. run;
    
18. %mend;
    
19. %test(n = 3);

复制代码