Question

我有一个PROC REPORT输出，并希望根据小于1.96的单元格值添加一个asterick。我不想要颜色，只需要一个星号就可以了。这可以用格式完成，还是我需要在COMPUTE块中使用'IF / ELSE'子句？

data have1;
   input username $  betdate : datetime. stake winnings winner;
   dateOnly = datepart(betdate) ;
   format betdate DATETIME.;
   format dateOnly ddmmyy8.;
   datalines; 
    player1 12NOV2008:12:04:01 90 -90 0
    player1 04NOV2008:09:03:44 100 40 1
    player2 07NOV2008:14:03:33 120 -120 0
    player1 05NOV2008:09:00:00 50 15 1
    player1 05NOV2008:09:05:00 30 5 1
    player1 05NOV2008:09:00:05 20 10 1
    player2 09NOV2008:10:05:10 10 -10 0
    player2 09NOV2008:10:05:40 15 -15 0
    player2 09NOV2008:10:05:45 15 -15 0
    player2 09NOV2008:10:05:45 15 45 1
    player2 15NOV2008:15:05:33 35 -35 0
    player1 15NOV2008:15:05:33 35 15 1
    player1 15NOV2008:15:05:33 35 15 1
run;

PROC PRINT; RUN;

Proc rank data=have1 ties=mean out=ranksout1 groups=2;
     var    stake winner;
     ranks  stakeRank winnerRank;
run;

proc sql;
create table withCubedDeviations as
    select *,
    ((stake - (select avg(stake) from ranksout1 where stakeRank = main.stakeRank and  winnerRank = main.winnerRank))/(select std(stake) from ranksout1 where stakeRank = main.stakeRank and  winnerRank = main.winnerRank)) **3 format=8.2 as cubeddeviations
    from ranksout1 main;    
quit;

PROC REPORT DATA=withCubedDeviations NOWINDOWS out=report;
    COLUMN stakerank winnerrank, ( N stake=avg cubeddeviations skewness);
    DEFINE stakerank / GROUP  ORDER=INTERNAL '';
    DEFINE winnerrank / ACROSS  ORDER=INTERNAL '';
    DEFINE cubeddeviations / analysis 'SumCD' noprint;
    DEFINE N / 'Bettors';
    DEFINE avg / analysis mean 'Avg' format=8.2;
    DEFINE skewness / computed format=8.2 'Skewness';
    COMPUTE skewness;
        _C5_ =  _C4_ * (_C2_ / ((_C2_ -1) * (_C2_ - 2)));
        _C9_ =  _C8_ * (_C6_ / ((_C6_ -1) * (_C6_ - 2)));
    ENDCOMP;
RUN;

这只是一个例子，所以这不具有统计意义，但如果SKEWNESS的值大于1，我需要输入一个asterick，如果它大于5则需要两个asterix，如果值大于5则需要三个asterix大于十。此外，如果星号可能是上标，那将更好。

我一直在测试以下内容，但无济于事：

PROC FORMAT; 
    picture onestar . = " " low - high = "9.9999^{super *}";*^{super***};
    picture twostar . = " " low - high = "9.9999^{super **}";*^{super***};
    picture threestar . = " " low - high = "9.9999^{super ***}";*^{super***};
run;

PROC REPORT DATA=withCubedDeviations NOWINDOWS out=report;
    COLUMN stakerank winnerrank, ( N stake=avg cubeddeviations);
    DEFINE stakerank / GROUP  ORDER=INTERNAL '';
    DEFINE winnerrank / ACROSS  ORDER=INTERNAL '';
    DEFINE cubeddeviations / analysis 'SumCD' noprint;
    DEFINE N / 'Bettors';
    DEFINE avg / mean 'Avg' format=8.2;
    compute avg;
        if _C3_ > 1.96 then call define('_C3_','format','onestar.');
    endcomp;
RUN;

感谢您的帮助。

Answer 1

我认为这将满足您的需求：

proc format;
picture skewaskf
-1 <-<0 = '00009.99' (mult=100 prefix='-')
0-<1 = '00009.99' (mult=100) 
1-<5 = '00009.99*'(mult=100)
5-<10= '00009.99**'(mult=100)
10-high='00009.99***'(mult=100);
quit;

进一步扩展负面因素。

SAS：在计算块中添加星号（交通灯）

1 个答案: