一个变量变为多个变量

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

目的：

↓↓↓↓（变成）↓↓↓↓

代码：

1. data dat;
   
2.   input group $ X $;
   
3.   cards;
   
4. A 1
   
5. A 2
   
6. B 3
   
7. B 4
   
8. C 5
   
9. C 6
   
10. ;
    
11. run;
    
12. data dat1;
    
13. set dat;
    
14. retain id;
    
15. by group;
    
16. if first.group then id=1; else id=id+1;
    
17. run;
    
18. proc sort;by id;run;
    
19. data dat2;
    
20.   set dat1;
    
21.   retain A B C;
    
22.   by id;
    
23.   if group="A" then do; A=x;output;end;
    
24.   if group="B" then do; b=x;output;end;
    
25.   if group="C" then do; c=x;output;end;
    
26. run;
    
27. data dat3;
    
28.   set dat2;
    
29.   by id;
    
30.   if last.id;
    
31.   drop x group id ;
    
32. run;

复制代码

问题：这种一列变多列的情况，对于每个group有相同的观测数比较理想，但是如果group不同（比如A组有3个，B组有2个），出来的结果会很冗余，希望网友提出解决方法。
要求：不要利用生成多个数据集，然后merge的方法，因为如果组数很多时，会出现大量的中间数据集，是我们不想看到的

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：多个变量 output RETAIN Group outpu

每个group2个或者3个，是obs数量还是var数量？能否直接给个datalines的例子？这样方便大家帮忙研究

steven_1017 发表于 2018-9-19 21:43
每个group2个或者3个，是obs数量还是var数量？能否直接给个datalines的例子？这样方便大家帮忙研究

group不同，指的是观测数不同，可见下图，如果仍按之前的程序运行，B组与C组红框中的结果就冗余了，实际上应该为空。对于此例来说，用merge来做很容易，但是如果组数不止三组的话，就要建立很多中间数据集了
↓↓↓↓↓↓↓↓↓变成了这样↓↓↓↓↓↓↓↓↓

如果使用EG，這類型的問題是比較容易解決的
以下是我自己試出來的，可以參考看看
但有使用到Macro和Sql

1. data dat;
   
2.   input group $  X;  cards;
   
3. A 1
   
4. A 2
   
5. B 3
   
6. B 4
   
7. C 5
   
8. C 6
   
9. ;
   
10. run;
    
11. /*
    
12. 圖A
    
13. 先轉置讓ABC分類
    
14. */
    
15. proc transpose data = dat; by group;var X;run;
    
16. /*
    
17. 圖B
    
18. 透過分割欄的概念，分別將欄位切割後轉置
    
19. */
    
20. %macro split(item);
    
21. proc sql;create view test&item. as select data1.&item. , data1.group from data1;quit;
    
22. proc transpose data = test&item. out = test&item.2; var &item.;id group;run;
    
23. %mend;
    
24. %split(col1) %split(col2)
    
25. /*
    
26. 圖C
    
27. 最後將轉置後的檔案合併,若使用merge則會回到原來的資料型態，必須使用proc sql
    
28. */
    
29. proc sql; create table test as select a,b,c  from testcol12 outer union corr select  a,b,c from  testcol22;quit;

复制代码

圖A

圖B

圖C

如果是用stata处理，比较简单

1. clear
   
2. input str2 group x
   
3. A 1
   
4. A 2
   
5. A 3
   
6. B 4
   
7. B 5
   
8. C 6
   
9. end
   
10. 
    
11. bysort group : gen id=_n
    
12. reshape wide x,i(id) j(group) str
    
13. rename x* *
    
14. list

复制代码

下面是命令结果

1. . clear
   
2. 
   
3. . input str2 group x
   
4. 
   
5.          group          x
   
6.   1. A 1
   
7.   2. A 2
   
8.   3. A 3
   
9.   4. B 4
   
10.   5. B 5
    
11.   6. C 6
    
12.   7. end
    
13. 
    
14. .
    
15. . bysort group : gen id=_n
    
16. 
    
17. . reshape wide x,i(id) j(group) str
    
18. (note: j = A B C)
    
19. 
    
20. Data                               long   ->   wide
    
21. -----------------------------------------------------------------------------
    
22. Number of obs.                        6   ->       3
    
23. Number of variables                   3   ->       4
    
24. j variable (3 values)             group   ->   (dropped)
    
25. xij variables:
    
26.                                       x   ->   xA xB xC
    
27. -----------------------------------------------------------------------------
    
28. 
    
29. . rename x* *
    
30. 
    
31. . list
    
32. 
    
33.      +----------------+
    
34.      | id   A   B   C |
    
35.      |----------------|
    
36.   1. |  1   1   4   6 |
    
37.   2. |  2   2   5   . |
    
38.   3. |  3   3   .   . |
    
39.      +----------------+
    
40. 
    
41. .

复制代码

1. /*第一步，先把数据读进来，先运行一下*/
   
2. data test1;
   
3. input group $  X;  
   
4. datalines;
   
5. A 1
   
6. A 2
   
7. A 5
   
8. A 9
   
9. B 3
   
10. B 4
    
11. B 2
    
12. C 5
    
13. C 6
    
14. ;
    
15. run;
    
16. 
    
17. /*第二步，数据转置*/
    
18. proc transpose data=test1 out=tran1(drop = _name_);
    
19. by group;
    
20. var x;
    
21. run;
    
22. 
    
23. /*第三步，二次转置*/
    
24. proc transpose data=tran1;
    
25. id group;
    
26. var col:;
    
27. run;

复制代码

楼主看看，是不是你要的结果？