用SAS实现“数据—矩阵”的效果，类似数据透视表

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

VAR1        VAR2
A        B
B        A
B        C
C        B
C        D
D        C
E        F
E        H
F        E
F        G
G        F
H        E

上述数据，如果用Excel数据透视表，可以做成下述的效果：
计数项:VAR1        A        B        C        D        E        F        G        H        总计
A        0        1        0        0        0        0        0        0        1
B        1        0        1        0        0        0        0        0        2
C        0        1        0        1        0        0        0        0        2
D        0        0        1        0        0        0        0        0        1
E        0        0        0        0        0        1        0        1        2
F        0        0        0        0        1        0        1        0        2
G        0        0        0        0        0        1        0        0        1
H        0        0        0        0        1        0        0        0        1
总计        1        2        2        1        2        2        1        1        12

现在想说，能不能拿SAS实现这种效果的呢？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：数据透视表 透视表 excel数据 用excel EXCEL Excel

果然没人回答。。。。。

SAS果然是我的软肋啊。。。。

果断投奔Clementine的怀抱~

就是不知道Clementine支持多大的数据量？

data test1;
        input var1 $ var2 $ @@;
cards;
A B
B A
B C
C B
C D
D C
E F
E H
F E
F G
G F
H E
;run;
data test2;
        set test1(keep = var1 rename=(var1=var))
                test1(keep = var2 rename=(var2=var));
run;
proc sort data = test2 nodupkey; by var; run;
proc sort data = test1 nodupkey; by _all_; run;

%macro test_macro();
data _null_;
        set test2 nobs=n;
        call symput(cats('v',_n_), var);
        if _n_ = n then do;
                call symput('n' ,n);
                stop;
        end;
run;
data test3(drop = var1-var2 var_add);
        if 0 then set test1;
        if _n_ = 1 then do;
                dcl hash h(dataset:"test1");
                h.definekey("var1","var2");
                h.definedata("var1","var2");
                h.definedone();
        end;
        set test2;
        %do ii = 1 %to &n.;
                _&&v&ii.. = 0;
        %end;
        %do ii = 1 %to &n.;
                var_add = compress("&&v&ii..");
                if h.find(key:var, key:var_add) = 0 then _&&v&ii.. = 1;
        %end;
run;
%mend;
%test_macro();

proc tabulate。。。。。。