使用sas实现同比 环比 占比，其中环比和占比是使用proc report实现的，环比使用data步实现，但是其中每年的总计是使用proc report来实现的。
proc report 可以实现proc print proc tabluate proc sort proc means 以及data步的一些功能，所以有中想法，把proc report当做是进行复杂统计的实现方法之一，比如sql中的开窗函数就可以用proc report实现。
以下是具体的代码和数据。
转载请注明出处：http://www.cnblogs.com/SSSR/p/6904636.html
代码参考自：Using PROC REPORT To Produce Tables With Cumulative Totals and Row Differences
更新--20170525 20:10
总结：report的compute步中是先一列一列的计算，新增列的时候可以用前面列的数据，跟在data步中新建列感觉区别不大，可以使用data步中的函数。
最后的BREAK AFTER year / SUMMARIZE SKIP OL UL ;这里只能是summarize求和，不能是其他的。
想着测试一下data步中的lag函数在report的compute中是否可以使用，没想到呀！居然可以直接求出来同比，大赞，记录下。
DATA quarter;
DO year=97 TO 99;
DO j=1 TO 12;
IF j=1 THEN xx='1dec1997'd;
QUARTER=QTR( intnx('month',xx,J) );
DO n=1 to 100;
sales=int(normal(123)*(20)+quarter*7);
IF QUARTER=3 THEN SALES=SALES-15;
OUTPUT;
END;
END;
END;
RUN;
PROC FORMAT ;
VALUE PCTA
.='(na)'
OTHER=[PERCENT8.0];
VALUE DOLLARA
.='(na)'
OTHER=[DOLLAR8.0];
RUN;
ods html file='c:/myhtml.htm';
PROC REPORT DATA=QUARTER NOWD OUT=Six
SPLIT="*" CENTER HEADSKIP HEADLINE;
COLUMN
( year quarter )
( sales=salessum pct)
(diff diff_pct pct_tongbi) ;
DEFINE year / GROUP;
DEFINE quarter / GROUP FORMAT=8. CENTER;
DEFINE salessum / ANALYSIS sum FORMAT=DOLLAR8. SUM ;
DEFINE pct / computed FORMAT=PERCENT8.0 ;
DEFINE diff / COMPUTED FORMAT= DOLLAR8.0 ;
DEFINE diff_pct / COMPUTED FORMAT=percent9.0;
define pct_tongbi/computed format=percent9.0;
COMPUTE BEFORE year ;*modify;
r=0;
last=0;
total=salessum;
ENDCOMP;
COMPUTE pct;/*实现了sql的窗口函数*/
pct=salessum/total;
ENDCOMP;
COMPUTE diff ;
r+1;
IF r=1 THEN diff=. ;
else DO;
if _BREAK_ EQ " " THEN
diff=salessum-last ;
else diff = . ;
end;
last = salessum;
ENDCOMP;
COMPUTE diff_pct ;
diff_pct= (diff/(last-diff) );
ENDCOMP;
COMPUTE pct_tongbi;/*计算同比，可以直接使用lag函数，so data步中的很多函数估计就都可以在report中使用了！*/
pct_tongbi=salessum/lag6(salessum)-1;
ENDCOMP;
BREAK AFTER year / SUMMARIZE SKIP OL UL ;
RUN;
ods html close;
以下代码比较复杂，计算同比使用了data步。
DATA quarter;
DO year=97 TO 99;
DO j=1 TO 12;
IF j=1 THEN xx='1dec1997'd;
QUARTER=QTR( intnx('month',xx,J) );
DO n=1 to 100;
sales=int(normal(123)*(20)+quarter*7);
IF QUARTER=3 THEN SALES=SALES-15;
OUTPUT;
END;
END;
END;
RUN;
PROC FORMAT ;
VALUE PCTA
.='(na)'
OTHER=[PERCENT8.0];
VALUE DOLLARA
.='(na)'
OTHER=[DOLLAR8.0];
RUN;
/*这个是实现占比和环比的，生成了一个数据集，all也在这里生成了*/
ods html file='c:/myhtml.htm';
PROC REPORT DATA=QUARTER NOWD OUT=Six
SPLIT="*" CENTER HEADSKIP HEADLINE;
COLUMN
( year quarter )
( sales=salessum pct)
(diff diff_pct) ;
DEFINE year / GROUP;
DEFINE quarter / GROUP FORMAT=8. CENTER;
DEFINE salessum / ANALYSIS sum FORMAT=DOLLAR8. SUM ;
DEFINE pct / computed FORMAT=PERCENT8.0 ;
DEFINE diff / COMPUTED FORMAT= DOLLAR8.0 ;
DEFINE diff_pct / COMPUTED FORMAT=percent9.0;
COMPUTE BEFORE year ;*modify;
r=0;
last=0;
total=salessum;
ENDCOMP;
COMPUTE pct;
pct=salessum/total;
ENDCOMP;
COMPUTE diff ;
r+1;
IF r=1 THEN diff=. ;
else DO;
if _BREAK_ EQ " " THEN
diff=salessum-last ;
else diff = . ;
end;
last = salessum;
ENDCOMP;
COMPUTE diff_pct ;
diff_pct= (diff/(last-diff) );
ENDCOMP;
*BREAK AFTER year / SUMMARIZE SKIP OL UL ;
RUN;
ods html close;
/*对report中生成的数据集进行进一步的加工*/
DATA sixout(keep=year quarterx salessum pct diff_pct);
retain year quarterx salessum pct diff_pct ;
set six;
if quarter=. then quarterx='ALL';
else quarterx=quarter;
if not missing(_break_) then pct=1;
RUN;
/*排序，为下一步求同比做准备*/
proc sort data=sixout out=sixout;
by year quarterx;
run;
/*求同比直接用lag5函数即可，这个大家都知道，*/
/*但是有时候我们会遇到今年和去年的分类数据不同，必去去年一季度有数据，但是今年为0，就不现实了，所以这个时候我们还需要先将所有的分类(季度)数据和年份进行全匹配，缺失的填充为0，然后再进行处理*/
data sixx_result;
set sixout;
*lag5=lag5(salessum);
tongbi=salessum/lag5(salessum)-1;
format tongbi PERCENT8.2 ;
format pct PERCENT8.2 ;
format diff_pct PERCENT8.2 ;
run;