转置求助，谢谢

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

数据结果如下
data a;
input t m w s@@;
cards;
5.77 366.3 931 25
5.77 366.1 601 24
5.78 173.2 47 1
5.78 173.2 374 2
5.78 173.2 68 3
5.78 173.2 607 24
5.78 173.2 967 25
5.78 173.2 682 23
0.88  304   342  24
;
run;
想要把这样的数据转换成如下的数据形式
t         m         w        s1   s2   s3   s4   s5   s6   fred
5.77   366.3    931     a     a     a    a     p    a    1
5.77   366.1    601     a     a    a     p   a     a     1
5.78   173.2     47      p    a    a      a   a     a     6
5.78     173.2    374   a    p    a     a    a    a      6
5.78    173.2    68       a   a     p    a   a     a      6
5.78   173.2    607       a   a    a    p   a    a      6
5.78   173.2     967     a    a   a    a    p    a     6
5.78    173.2   682     a     a    a   a    a    p     6
0.88    304      342     a    a    a    p   a   a      1
其中s1=1 s2=2 s3=3 s4=24 s5=25 s6=23;若变量s=s1,则在s1下注字母p,同时在s2 s3 s4 s5 s6下注字母a。变量freq以变量t和m计算。
刚学程序，急着处理的实验数据，为了毕业，高手相助，感激不尽

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Input cards 数据结果 数据转换 Data

这是什么软件？

1. data b;
   
2. set a;
   
3. if s=1 then s1="p";
   
4. else if s=2 then s2="p";
   
5. else if s=3 then s3="p";
   
6. else if s=24 then s4="p";
   
7. else if s=25 then s5="p";
   
8. else if s=23 then s6="p";
   
9. array a(6) $ s1-s6;
   
10. do i=1 to 6;
    
11. if a(i)="" then a(i)="a";
    
12. end;
    
13. drop i;
    
14. run;
    
15. 
    
16. proc sql;
    
17. create table c as select t,m,count(*) as freq from b
    
18. group by t,m;
    
19. quit;
    
20. 
    
21. proc sort data=b;
    
22. by t m;
    
23. proc sort data=c;
    
24. by t m;
    
25. data d;
    
26. merge b c;
    
27. by t m;
    
28. run;

复制代码

不用sort的改良版，可以不改变原数据的观测顺序

1. data a;
   
2. input t m w s@@;
   
3. cards;
   
4. 5.77 366.3 931 25
   
5. 5.77 366.1 601 24
   
6. 5.78 173.2 47 1
   
7. 5.78 173.2 374 2
   
8. 5.78 173.2 68 3
   
9. 5.78 173.2 607 24
   
10. 5.78 173.2 967 25
    
11. 5.78 173.2 682 23
    
12. 0.88  304   342  24
    
13. ;
    
14. run;
    
15. 
    
16. data b;
    
17. set a;
    
18. if s=1 then s1="p";
    
19. else if s=2 then s2="p";
    
20. else if s=3 then s3="p";
    
21. else if s=24 then s4="p";
    
22. else if s=25 then s5="p";
    
23. else if s=23 then s6="p";
    
24. array a(6) $ s1-s6;
    
25. do i=1 to 6;
    
26. if a(i)="" then a(i)="a";
    
27. end;
    
28. drop i;
    
29. run;
    
30. 
    
31. proc sql;
    
32. create table c as select t,m,count(*) as freq from b
    
33. group by t,m;
    
34. quit;
    
35. 
    
36. proc sql;
    
37. create table d as select b.*,c.freq from b,c
    
38. where b.t=c.t and b.m=c.m;
    
39. quit;

复制代码

1. data a;
   
2. input t m w s@@;
   
3. cards;
   
4. 5.77 366.3 931 25
   
5. 5.77 366.1 601 24
   
6. 5.78 173.2 47 1
   
7. 5.78 173.2 374 2
   
8. 5.78 173.2 68 3
   
9. 5.78 173.2 607 24
   
10. 5.78 173.2 967 25
    
11. 5.78 173.2 682 23
    
12. 0.88  304   342  24
    
13. ;
    
14. run;
    
15. 
    
16. *** Count Frequence and prepare for s1-s6;
    
17. proc sql;
    
18. create table b as
    
19.    select monotonic()as _n_,*, count(*) as freq
    
20.           , case s
    
21.                      when 1 then "s1"
    
22.                          when 2 then "s2"
    
23.                          when 3 then "s3"
    
24.                          when 24 then "s4"
    
25.                          when 25 then "s5"
    
26.                          when 23 then "s6"
    
27.                          else " "
    
28.                         end as _Name_
    
29.                   ,"p" as value
    
30.         from a
    
31.         group by t,m
    
32.         order by _n_;
    
33. quit;
    
34. 
    
35. *** Transpose to get variable s1-s6;
    
36. proc transpose data=b out=c(drop=_:);
    
37.    by _n_ t m w s freq notsorted;
    
38.    var value;
    
39. run;
    
40. 
    
41. *** replace missing values with "a";
    
42. data d;
    
43.    set c;
    
44.    array tmp(6) $ s1-s6;
    
45.    do _n_=1 to dim(tmp);
    
46.      if missing(tmp(_n_)) then tmp(_n_)="a";
    
47.         end;
    
48. run;

复制代码

proc sql;
create table b as
select t,m,w,
ifc(s=1,'p','a') as s1 length=1,
ifc(s=2,'p','a') as s2 length=1,
ifc(s=3,'p','a') as s3 length=1,
ifc(s=24,'p','a') as s4 length=1,
ifc(s=25,'p','a') as s5 length=1,
ifc(s=23,'p','a') as s6 length=1,
count(1) as freq
from a group by t,m;

谢谢，大家的帮助

由于本人数据太多，例子中只写的一部分，当变量S=s1,s2,s3,s4, s5,s6,..........sn时该怎么编写程序呢？

虞子期 发表于 2012-11-22 14:37
由于本人数据太多，例子中只写的一部分，当变量S=s1,s2,s3,s4, s5,s6,..........sn时该怎么编写程序呢？

根据需要改变“data s”那一步就可以了。

1. data a;
   
2. input t m w s@@;
   
3. cards;
   
4. 5.77 366.3 931 25
   
5. 5.77 366.1 601 24
   
6. 5.78 173.2 47 1
   
7. 5.78 173.2 374 2
   
8. 5.78 173.2 68 3
   
9. 5.78 173.2 607 111
   
10. 5.78 173.2 967 25
    
11. 5.78 173.2 682 23
    
12. 0.88  304   342  89
    
13. ;
    
14. run;
    
15. 
    
16. *** Rule for S variables;
    
17. data s;
    
18.    input sval svar $;
    
19.    call symputx("S_num",_n_);
    
20.    cards;
    
21. 1 s1
    
22. 2 s2
    
23. 3 s3
    
24. 24 s4
    
25. 25 s5
    
26. 23 s6
    
27. 111 s7
    
28. 89 s8
    
29. ;
    
30. 
    
31. *** Count Frequence and prepare for s1-s6;
    
32. proc sql;
    
33. create table b as
    
34.    select *, count(*) as freq
    
35.           , svar as  _Name_
    
36.                   ,"p" as value
    
37.         from a left join s
    
38.         on a.s=s.sval
    
39.         group by t,m;
    
40. quit;
    
41. 
    
42. *** Transpose to get variable s1-s6;
    
43. proc transpose data=b out=c(drop=_:);
    
44.    by t m w s freq notsorted;
    
45.    var value;
    
46. run;
    
47. 
    
48. *** replace missing values with "a";
    
49. data d;
    
50.    set c;
    
51.    array tmp(&s_num) $ s1-s&s_num;
    
52.    do _n_=1 to dim(tmp);
    
53.      if missing(tmp(_n_)) then tmp(_n_)="a";
    
54.         end;
    
55. run;

复制代码

proc sql noprint ;
select count(distinct s) into:count  from a;
select distinct s into :s1-:s%sysfunc(compress(&count)) from a order by s;
/*这里设置S1为最小，Sn最大*/
quit;

%macro ifc;
%do i=1 %to &count;
ifc(s=&&s&i,'p','a') as s&i length=1,
%end;
%mend;


proc sql;
create table b as
select t,m,w,
%ifc
count(1) as freq
from a group by t,m;
quit;