SAS 求助

是 否 +2 論壇幣

k人 參與回答

經(jīng)管之家送您一份

應(yīng)屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經(jīng)管之家聯(lián)合CDA

送您一個全額獎學(xué)金名額~ !

立即領(lǐng)取

感謝您參與論壇問題回答

經(jīng)管之家送您兩個論壇幣！

+2 論壇幣

如果我有數(shù)據(jù)如下
F1  F2  F3   F4   M
0    1    0     1    A
1    0    0     0    A
3    8    0     2    B
.
.
.
9    0     7     1   B

F1-F4是數(shù)據(jù)， M是字母
現(xiàn)在我要看，比如，F(xiàn)1下面，A組中有多少是非0的，B組中多少非0的。
然后得到一個像下面的表格,比如，F(xiàn)1的A中有10個非0，占F1的A的5%。 求助，SAS code忘完了。。。。

	A	B
F1	10
	5%
F2
F3
F4

掃碼加我 拉你入群

請注明：姓名-公司-職位

以便審核進(jìn)群資格，未注明則拒絕

分享0 收藏0 回帖

關(guān)鍵詞：code ODE COD 字母

我用了幾次proc sort, 如果數(shù)據(jù)量特別大，不建議采用。

data test;
input F1  F2  F3   F4   M $;
cards;
0    1    0     1    A
1    0    0     0    A
3    8    0     2    A
4    0    9     2    A
0    0    0     4    B
3    2    1     4    B
9    0    7     1    B
;
proc sort data=test;
by m;
run;
proc transpose data=test out=test1;
by m;
var f1-f4;
run;
data test2;
set test1;
array num[*] col:;
bign=0;
smalln=0;
do i=1 to dim(num);
if num[i] ne . then bign=bign+1;
if num[i] not in(.,0) then smalln=smalln+1;
end;
n=strip(put(smalln,best.));
pct=strip(put((smalln/bign*100),4.))||'%';
keep m _name_ n pct;
run;
proc sort data=test2;
by _name_;
run;
data test3;
merge test2(where=(m='A') rename=(n=na pct=pcta))
       test2(where=(m='B') rename=(n=nb pct=pctb));
by _name_;
drop m;
run;
data test4;
set test3(keep=_name_ na nb rename=(na=a nb=b))
     test3(keep=_name_ pcta pctb rename=(pcta=a pctb=b));
        by _name_;
        if last._name_ then call missing(_name_);
run;

1. data test;
   
2. input F1  F2  F3   F4   M $;
   
3. cards;
   
4. 0    1    0     1    A
   
5. 1    0    0     0    A
   
6. 3    8    0     2    A
   
7. 4    0    9     2    A
   
8. 0    0    0     4    B
   
9. 3    2    1     4    B
   
10. 9    0    7     1    B
    
11. ;
    
12. run;
    
13. 
    
14. data test1;
    
15.         set test;
    
16.         array num _numeric_;
    
17.         do over num;
    
18.         if num=0 then num=.;
    
19.         end;
    
20. run;
    
21. 
    
22. proc sql;
    
23.         create table z as
    
24.         select *, tf1/t as rf1, tf2/t as rf2, tf3/t as rf3, tf4/t as rf4 from
    
25.         (select m, count(F1) as tf1, count(f2) as tf2, count(f3) as tf3, count(f4) as tf4
    
26.         from test1 group by m) as a left join
    
27.         (select m, count(*) as t
    
28.         from test1 group by m) as b on a.m=b.m;
    
29. quit;
    
30. 
    
31. data z1(keep=m f1--f4);
    
32.         set z(rename=(tf1=f1 tf2=f2 tf3=f3 tf4=f4)) z(rename=(rf1=f1 rf2=f2 rf3=f3 rf4=f4));
    
33. run;
    
34. 
    
35. proc sort data=z1; by m; run;
    
36. 
    
37. proc transpose data=z1 out=z2;
    
38. run;

復(fù)制代碼

不是完全按你的格式輸出的