用SAS实现商业周刊经典风格 对绘图背景进行隔行填色

厚积薄发

data ex;
input x y g color $;
cards;
1 2 1  Yahoo!
. U+ h" n( ?1 V% S* Q( y1 4 2 Google
( J9 g7 ~; E% u" m$ S2 5 1 Yahoo!
2 8 2 Google
4 12  1 Yahoo!
4 10 2 Google
6 r* ^% T) [3 M6 |9 G5 9  1 Yahoo!
5 l  b% B+ X5 v2 n6 K5 ~& a0 k5 7 2 Google
3 P" I" C. U% D) s9 M* T* ^7 j;
* }" r" b. y. `2 E3 Y2 |data title_anno;
" x1 ?9 s  {7 lwhen=’b'; xsys=’3′; ysys=’3′; style=’solid’;
$ `+ z! K2 O; C/ j; [* v1 efunction=’move’; x=0; y=87;  output;
$ H) n" d1 o( ofunction=’bar’; x=100; y=100; color=’black’; output;
% Q! C  D' s% l' ?run;
8 x( j' ]( f, o& h- Idata range_anno;
when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
$ U8 j0 U& q1 f7 [$ Z$ gfunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
function=’move’; x=0; y=20; output;
$ Y1 T. z% a' ofunction=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
  n) G9 J. n/ }1 ^; }function=’move’;x=0; y=40; output;
$ ^" c% C& m5 v# y/ G2 T7 sfunction=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
function=’move’;x=0; y=60; output;
) Q' w. b! G" V6 V, d- ?7 V. e2 xfunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
function=’move’;x=0; y=80; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
' F, ]0 y: B8 _9 z9 [( _2 K( Orun;
4 w0 M9 g! l5 V! J1 y3 xdata range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
9 \4 ?) ~" `3 w8 k+ _function=’move’; x=0; y=20; output;
* S: T# q2 _* {. P6 e8 d( {8 xfunction=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
function=’move’; x=0; y=40; output;
function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
0 S" D% J# }0 Z9 _function=’move’;x=0; y=60; output;
8 l8 v' A4 r5 P' {2 pfunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
6 x* {1 j3 J. _& F  z5 c9 b" B3 m+ ffunction=’move’;x=0; y=80; output;
5 c* e) P* G+ u5 z4 k4 sfunction=’bar’; color=”cxD6CECD”; x=100; y=80; output;
run;
data range_anno;
5 j1 p6 A2 f8 W( A0 h. M1 Hset range_anno range_anno1;
run;
FILENAME file “c:\bussiness.png”;
" I0 y% `  q* sGOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
1 I0 l; r* x8 c! w* |2 T! qvsize=7cm hsize=7cm
( @% D& e5 ]* ?  ]4 d# A/ d; symax=8cm xmax=9cm
htext=1.5   ;
( k9 G! i4 h+ e! d- w7 q  {axis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
0 x2 y; R; I9 K4 Y" g; Qaxis2 color=black width=2 label=none order=(0 to 13 by 4) minor=none major=(h=1)  value=(h=1.0) offset=(0,2);
$ @/ d+ x+ h0 ?axis3 major=none label=none value=none;
/ f) N; I$ P- Tpattern1 v=s color=’cxFF8E00′;
pattern2 v=s color=’cx004C7A’;
2 I' }7 }4 |4 W% ntitle j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
title2 j=l ” Internation compsdfdsfsfd”;
+ K" n) Q6 s' `- l; Q" a1 ^4 q% Ttitle3 j=l ” asdfd asdfdf dfsdfsd”;
6 o# `# E0 ?) |. d7 |0 ilegend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
shape=bar(.1in,.1in);
proc gchart data=ex anno=title_anno;
vbar g / discrete       type=sum
; s* j: _  v3 _6 h3 x* E" zsumvar=y
  k9 m3 I4 L7 y# j5 H- Omaxis=axis1 raxis=axis2 GAXIS=axis3
coutline=gray33  caxis=”cxD6D3B8″
width=4
9 E# W  W- A) T% a$ w! B) |space=0
gspace=0
subgroup= color
group=x
1 N0 Y3 v& W' v2 R( Blegend=legend1
6 G1 u$ T1 P' W- W# uanno=range_anno ;
footnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
6 \7 O) h6 e7 @! {, |run;
quit;
下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
* \* u3 O& s2 r6 ?  ]" N+ F这代码是相当的复杂，调试也比较费功夫。

本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
There are four basic types of plots that you can create with the SGPLOT procedure:
4 s3 O6 W6 t) U5 W8 BBasic plots
0 h6 }" `0 X6 C; _; i& yscatter, series, step, band, needle, and vector plots
/ ?1 b  ~$ X7 H1 q. `% q) WFit and confidence plots
4 A6 }: H3 \! M: W2 ]$ Wloess, regression, and penalized B-spline curves, and ellipses
Distribution plots
! `* U7 }& f, y2 [+ X& }3 dbox plots, histograms, and normal and kernel density estimates
) n% n" p. o; v3 Z& hCategorization plots
dot plots, bar charts, and line plots
/ F) m  u6 a+ I$ ?5 M3 l1 hNot all of the plot types can be used together in the same PROC SGPLOT step. The following table shows which of the plot types can be used together
' D1 M4 m$ y/ J3 `. i" l* V2 R% ?$ Z

data ex;
input x y ;
5 B! H3 b( `5 n* F, I1 p. I+ Scards;
; O! _/ l; n; T0 u: U" s1 2
2 7
6 D9 ~8 ?0 \# h# m4 12
5 11
4 y% E6 {. N! }* L+ o6 I( m* ^6  9
7 f/ }. `  W- G* N6 b7  8
;
title ;
footnote;
proc sgplot data=ex noautolegend;
SERIES  x=x y=y/LINEATTRS=(color=blue thickness=6) ;
/ V+ U7 ~' F- V5 H7 R# |$ Bband x=x lower=0 upper=2.5 / OUTLINE  transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
0 g% m2 v4 m# g1 n8 M! `) hband x=x lower=2.5 upper=5  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
$ N  M% X9 w0 s# qband x=x lower=5 upper=7.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
0 s' P# a8 V4 S" bband x=x lower=7.5 upper=10  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
/ Q! L% J( ^, G6 {band x=x lower=10 upper=12.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
yaxis values=(0 to 12 by 3)   min=0   max=13 valueshint;
xaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
$ x. w9 {$ \* V/ ~5 Mrun;
' L. j, ]$ o0 A来源：数据挖掘学院

空木葬花

非常感谢楼主！

秋の名山で戦

真心觉得是好贴  点128个赞

秋の名山で戦

哇 太强了 效果相当好

540109558

相当的不简单啊

hahaysw

不错的东西，数学中国做的图相当好看啊！

飞雪灬无痕

学习了。。。。。。。。

老牦

顶！！！！！！！

jt202010

schnee

顶！！！！！！！