求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

初学ＳＡＳ，有个小问题，向大家求教：

有１０个０－１变量，x1-x1０，想得到如下统计表

变量	Frequency(等于1的频数)	=1的百分比
X1
X2
X3
X4
X5
X6
X7
X8
X9
X10

怎么写啊？麻烦指导一下啊

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Frequency freq Ency 统计表 小问题 百分比 统计表

前几天不小心发了一些重复的帖子，被狂扣分，靠

还有发一个sas web的，结果点成了macro的一本书，还被人骂是骗子，郁闷

穷疯了，只有帮楼主写东西了。。。版主，请加分吧，我等着那100元买书啊！！！！！！！！！！！！！！！

ps：用proc freq也可以写，不过为了赶时间就讲究了吧，希望你能看得懂。。。

data aa ;
input x1-x10 ;
datalines ;
1 0 1 0 1 0 1 1 1 1
0 1 0 0 0 0 0 0 0 0
1 1 1 1 0 1 0 1 0 1
1 0 1 1 0 0 0 0 1 1
;
run ;
* 这个是定义你的数据 ;

data aa1 ;
set aa ;
array xn[10] x1 - x10 ;
do i = 1 to 10 ;
new= xn ;
id = i ;
output ;
end ;
keep new id ;
run ;
* 纵向拆分 ;
proc sort data = aa1 ;
by id ;
run ;
proc means data = aa1 noprint ;
by id ;
var new ;
output out= aa2
mean= ;
run ;
data final (rename= (id = x _freq_= frequency_of_one new= percentage_of_one ));
set aa2 ;
_freq_ = _freq_*new ;
drop _type_ ;
run ;

*整理成你要的格式 ;

[此贴子已经被作者于2007-9-2 22:33:18编辑过]

好人啊，谢谢阿，你老兄要真急用１００元买书，我正好前段时间卖书赚了一点小钱，

可以送你一百，说不准以后还有问题向你请教呢：）　只是我不知道怎么转给你１００，

或者你随便发个１００元的出售帖，我就可以给你１００了．

已经奖励

that's too complicated. One of the simpler soluation could be :
data aa ;
input x1-x10 ;
datalines ;
1 0 1 0 1 0 1 1 1 1
0 1 0 0 0 0 0 0 0 0
1 1 1 1 0 1 0 1 0 1
1 0 1 1 0 0 0 0 1 1
;
data aa1;
set aa;
array one x1-x10;
array two xx1-xx10;
do i= 1 to 10;
if one(i) ne 1 then two(i)=.;
else two(i)=one(i);
end;
proc means data = aa1 n mean;
run;
Then you can find the answer in the output.

楼上的构思巧妙，但是既然要写就要写完整啊。

I feel embarrased. Your is better than mine. Having result is one thing and having a good usable output is another aspect.

data aa ;
input x1-x10 ;
datalines ;
1 0 1 0 1 0 1 1 1 1
0 1 0 0 0 0 0 0 0 0
1 1 1 1 0 1 0 1 0 1
1 0 1 1 0 0 0 0 1 1
;
data aa1;
set aa;
array one x1-x10;
array two xx1-xx10;
do i= 1 to 10;
if one(i) ne 1 then two(i)=.;
else two(i)=one(i);
end;
run;

proc means data = aa1 nway;
output out=work n= mean=/autoname;
run;
data work1;
set work;
length var_name $ 4;
array one x1_Mean x2_Mean x3_Mean x4_Mean x5_Mean x6_Mean x7_Mean x8_Mean x9_Mean x10_Mean;
array two xx1_N xx2_N xx3_N xx4_N xx5_N xx6_N xx7_N xx8_N xx9_N xx10_N;
do i=1 to 10;
freq = two(i) ;
Percent = one(i) ;
var_name = 'x'||compress(i);
output;
end;
keep var_name freq percent;
run;

ods csv file= "result.csv";
proc print data = work1 noobs;
run;
ods close;

楼上强人啊