请教：数据分组

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教：数据分组？
   有下列数据：

a1	a2	b1	b2	c1	c2	d1	d2	e1	e2
1	2	3	4	5	6	7	8	9	10

想分组成下列形式：i 是分组 f是观察

i	F
1	1
1	2
2	3
2	4
3	5
3	6
4	7
4	8
5	9
5	10

谢谢各位！！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：数据分组 B2C

不知道理解的对否！

1. data have;
   
2. input a1        a2        b1        b2        c1        c2        d1        d2        e1        e2;
   
3. cards;
   
4. 1        2        3        4        5        6        7        8        9        10
   
5. ;
   
6. run;
   
7. 
   
8. 
   
9. proc transpose data=have out=zachary;
   
10. run;
    
11. proc sql noprint;
    
12.         create table zachary as
    
13.         select (case when (substr(_name_,1,1))='a' then 1 else
    
14.                         (case when (substr(_name_,1,1))='b' then 2 else
    
15.                         (case when (substr(_name_,1,1))='c' then 3 else
    
16.                         (case when (substr(_name_,1,1))='d' then 4 else        5 end)end)end)end) as i
    
17.                         ,col1 as f
    
18.                         from zachary;
    
19. quit;

复制代码

OK！！

非常感谢！！


请教：能不能用 array() 来做？

暂时想到了这样！

1. proc format;
   
2. value $ffmt
   
3.                 'a'=1
   
4.                 'b'=2
   
5.                 'c'=3
   
6.                 'd'=4
   
7.                 'e'=5;
   
8. run;
   
9.                
   
10. data have;
    
11. set have;
    
12. array aa(*) _numeric_;
    
13.         do n=1 to dim(aa);               
    
14.                 i=substr(vname(aa(n)),1,1);
    
15.                 f=aa(n);
    
16.                 output;                               
    
17.         end;
    
18. format i $ffmt.;
    
19. keep i f;       
    
20. run;

复制代码