请教大神们，如何用PROC SQL实现Transpose的功能？

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我有如图一所示的data set，每个specific observation measure里面都有十一个standard。目前data set的状态是每个standard的score占据一行，我希望把每个specific observation measure变成一行，每行包含十一个standard的score，如图二所示。请问是否可以通过PROC SQL实现这样的transpose呢？跪求大神指点，谢谢！

图一：




图二：

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：Transpose proc sql Trans pose ans 如何

这个代码可供参考：

data A;
    length player $4 itemtype $13;
    input region player $ itemtype $ itemcount itemamount;
    cards;
1 Jack ProOther      4  184
1 Jack ProOther      2   84
1 Jack ProGameCredit 4  100
1 Jack FnB           2  106
1 Jack FnB           1   86
1 Dick ProGameCredit 1 2310
1 Dick ProGameCredit 1  210
2 Mary ProOther      2   43
2 Jack FnB           1  522
3 Jack FnB           1   88
3 Jack ProGameCredit 3 1036
3 Mary FnB           1 4578
;
run;

%macro do_work;

    %local i next_name;

    %do i=1 %to %sysfunc(countw(&itlist));

        %let next_name = %scan(&itlist, &i);

        create table a_&next_name as
            select region, player,
                   sum(itemcount) as &next_name._itemcount,
                   sum(itemamount) as &next_name._itemamount
            from a
            where itemtype eq "&next_name"
            group by region, player, itemtype;

        create table t as
            select * from b left join a_&next_name
            on (b.region = a_&next_name..region and b.player eq a_&next_name..player);

        drop table b;

        create table b as select * from t;

        drop table t;

    %end;

%mend do_work;

proc sql;

select distinct itemtype into :itlist separated by ' ' from a order by itemtype;

create table b as select distinct region, player from a;

%do_work;

select * from b;

quit;


结果：

                                                  ProGame      ProGame
                          FnB_          FnB_      Credit_      Credit_    ProOther_    ProOther_
   region  player    itemcount    itemamount    itemcount   itemamount    itemcount   itemamount
ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒ
        1  Dick              .             .            2         2520            .            .
        1  Jack              3           192            4          100            6          268
        2  Jack              1           522            .            .            .            .
        2  Mary              .             .            .            .            2           43
        3  Jack              1            88            3         1036            .            .
        3  Mary              1          4578            .            .            .            .

SAS，R 交流互组微信群

THX! But do we really need to use macro in this case?

这么简单，还是我没有get your point? 我没用proc sql, 在data step:

proc transpose data=data_in out=data_out(drop=_NAME_ _LABEL_) suffix=_score ;
by teacher_code obs_measure obs_specific date;
id std_code;
var score;
run;

没用过transpose过程 原来那么方便

mingyuqi 发表于 2016-3-30 22:50
THX! But do we really need to use macro in this case?

No you don't have to. Macro is for the case that you don't know how many "standards" ahead of time. It's for a general purpose case.

smilealways193 发表于 2016-3-31 07:54
没用过transpose过程 原来那么方便

题目要求用SQL，用proc transpose谁都会。

1. data Long;
   
2.     Do ID = 1 to 3;
   
3.       do j = 1 to 3;
   
4.         Code = cats( 'D', j);
   
5.        score = id + j;
   
6.        output;
   
7.     end; end;
   
8.    drop j;
   
9. run;
   
10. 
    
11. proc sql;
    
12. create table wide as
    
13.    select distinct id,
    
14.      sum(case when code = 'D1'  then score else 0 end)  as D1_score,
    
15.       sum (case when code = 'D2' then score else 0 end)  as D2_score,
    
16.        sum (case when code = 'D3' then score else 0 end)  as D3_score
    
17.    from long
    
18.    group by id;
    
19. quit;

复制代码