创建新变量计算

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

acct	Payment1	Payment2	Payment3	Payment4	Payment5	Payment6
jim	M	F	M	G	N	M
sam	F	F	G	G	N	M
Smith	M	G	F	F	M	N

表格如上。请教一下各位大牛，如果想要创建一个新的变量来计算每一个账户在payment1到payment6一共有几个M，是否可行呢？要怎么写SAS CODE呢？谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：新变量 Payment Smith CCTP 是否可行

新手，互相交流。
我的思路是：1.将数据集转置；2.将payment中字符变量转化为数值变量，方便求和计算；3.用sql得到想要的变量；4.再和最初数据集merge到一起。
data pay;
        input acct $ pay1 $ pay2 $ pay3 $ pay4 $ pay5 $ pay6 $;
datalines;
jim M F M G N M
sam F F G G N M
smith M G F F M N
;
RUN;
proc sort data=pay;
        by acct;
run;
proc transpose data=pay out=pay_tran;
        by acct;
        var pay1-pay6;
run;
data pay_tran;
        set pay_tran;
        if col1='M' then payn=1;
        else payn=0;
run;

proc sql;
        create table aa as
        select acct as acct, sum(payn) as mm
        from pay_tran
        group by acct;
quit;
proc sort data=pay;
        by acct;
run;
proc sort data=aa;
        by acct;
run;
data final;
        merge pay aa;
        by acct;
run;

data pay;
        input acct $ pay1 $ pay2 $ pay3 $ pay4 $ pay5 $ pay6 $;
datalines;
jim M F M G N M
sam F F G G N M
smith M G F F M N
;
RUN;
proc sort data=pay;
        by acct;
run;
proc transpose data=pay out=pay_tran;
        by acct;
        var pay1-pay6;
run;
data pay_tran;
        set pay_tran;
        if col1='M' then payn=1;
        else payn=0;
run;

proc sql;
        create table aa as
        select acct as acct, sum(payn) as mm
        from pay_tran
        group by acct;
quit;
proc sort data=pay;
        by acct;
run;
proc sort data=aa;
        by acct;
run;
data final;
        merge pay aa;
        by acct;
run;

data test;
input acct payment1 payment1  payment2 payment3 payment3  payment4 payment5 payment5  payment6 $;
count=(payment1="M")+(payment2="M")+(payment3="M")+(payment4="M")+(payment5="M")+(payment6="M");
cards;
jim M F M G N M
sam F F G G N M
Smith M G F F M N
;
run;

麦弥 发表于 2016-5-18 14:28
data pay;
        input acct $ pay1 $ pay2 $ pay3 $ pay4 $ pay5 $ pay6 $;
datalines;

谢谢这么详细的回复！今天跟朋友讨论了一下，我们先用count再用sum得到了结果。count(of...)弄个6次，然后再sum。

l1i2n3i4n5g 发表于 2016-5-18 14:40
data test;
input acct payment1 payment1  payment2 payment3 payment3  payment4 payment5 payment5  pa ...

谢谢回复！这个比我们今天讨论的还要简单！明天试试！

水加菲 发表于 2016-5-19 06:05
谢谢回复！这个比我们今天讨论的还要简单！明天试试！

学习了，谢谢

data pay;
        input acct $ pay1 $ pay2 $ pay3 $ pay4 $ pay5 $ pay6 $;
        datalines;
jim M F M G N M
sam F F G G N M
smith M G F F M N
;
RUN;
data a;
        set pay;
        flag=0;
        array pay(6) pay1-pay6;
        retain flag;
        do i=1 to 6;
                if find(pay(i),'M') then do;
                        flag+1;
                end;
        end;
run;

zqy458219593 发表于 2016-5-19 13:58
data pay;
        input acct $ pay1 $ pay2 $ pay3 $ pay4 $ pay5 $ pay6 $;
        datalines;

谢谢回复！试试运行一下