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

厚积薄发

data ex;
input x y g color $;
. i* F2 l7 V: ~" n% @cards;
0 ~/ o1 Q- H+ N( O2 K/ o5 U% H1 2 1  Yahoo!
1 4 2 Google
2 5 1 Yahoo!
! u* v: L* }5 n( f+ H3 v2 8 2 Google
4 12  1 Yahoo!
2 y6 r' L% F) ^. B2 U4 10 2 Google
5 9  1 Yahoo!
) V* [2 o3 [/ d5 7 2 Google
" \1 n7 k" f9 [/ x# Y; \;
! C3 n  X, I1 B  [data title_anno;
+ J: P( K$ [# U8 m8 c( y  Hwhen=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
( V  w) x4 r% u  b- nfunction=’bar’; x=100; y=100; color=’black’; output;
- f/ A3 |. V5 n( y1 B' srun;
data range_anno;
) O: z. w$ D; Z& [9 i$ jwhen=’b'; xsys=’1′; ysys=’1′; style=’solid’;
& z5 f+ _1 W7 ofunction=’move’; x=0; y=0; output;
function=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
% S1 ]9 S& d. f1 [# Tfunction=’move’; x=0; y=20; output;
" y6 W' i# f  }5 a: @1 J6 r8 Lfunction=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
2 U: W( t1 J- E  `function=’move’;x=0; y=40; output;
5 R1 A( f) a1 Y/ s# {function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
function=’move’;x=0; y=60; output;
function=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
function=’move’;x=0; y=80; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
' O/ u6 O' j& A/ p& R- N( Jrun;
! y' A6 g+ p3 x9 Ldata range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
( P9 I6 O4 l* \4 Z: r9 @% vfunction=’move’; x=0; y=20; output;
2 h9 r  o+ o/ f& k/ bfunction=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
2 Q  x% o. E2 Z  xfunction=’move’; x=0; y=40; output;
/ ?) A- n: W$ \function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
) C  p' Q. L" M3 b9 Dfunction=’move’;x=0; y=60; output;
function=’bar’; color=”cxD6CECD”; x=100; y=60; output;
) \; _: }1 I) v5 F  ~function=’move’;x=0; y=80; output;
function=’bar’; color=”cxD6CECD”; x=100; y=80; output;
* c: a- X5 w  V( X, N) x$ o3 h9 Trun;
3 X8 O9 r3 Z: |; |- q4 gdata range_anno;
set range_anno range_anno1;
run;
7 o4 R; |$ E1 UFILENAME file “c:\bussiness.png”;
, `- Z" q/ h7 dGOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
) b7 t" y  w3 c1 W" [. i6 x( [vsize=7cm hsize=7cm
ymax=8cm xmax=9cm
htext=1.5   ;
axis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
- M0 O. ~0 ^4 D9 _axis2 color=black width=2 label=none order=(0 to 13 by 4) minor=none major=(h=1)  value=(h=1.0) offset=(0,2);
axis3 major=none label=none value=none;
pattern1 v=s color=’cxFF8E00′;
5 V8 ~0 R! h. ]8 M- @; z0 K' Cpattern2 v=s color=’cx004C7A’;
title j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
' N  v/ J7 l' f$ wtitle2 j=l ” Internation compsdfdsfsfd”;
title3 j=l ” asdfd asdfdf dfsdfsd”;
5 S5 k" V- r, Ulegend1 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;
$ W! q9 H) b/ }) B3 s- Vvbar g / discrete       type=sum
sumvar=y
7 {( b; o+ G- Z1 ~4 B$ G6 g( B$ }maxis=axis1 raxis=axis2 GAXIS=axis3
& c! w- u+ _  ~3 S. _" @: Ncoutline=gray33  caxis=”cxD6D3B8″
+ V1 I; l$ x5 K7 Z, p" X- awidth=4
space=0
gspace=0
! D  A( }; K3 Psubgroup= color
group=x
legend=legend1
anno=range_anno ;
$ h( ~6 X7 g' E- @, n$ Q% kfootnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
run;
quit;
* @" W3 n0 O- y- |7 W下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
这代码是相当的复杂，调试也比较费功夫。

本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
1 z; ?  k% z/ I4 j6 i2 @There are four basic types of plots that you can create with the SGPLOT procedure:
Basic plots
scatter, series, step, band, needle, and vector plots
; j4 f0 `' M& [0 q! U( H- y3 X( {. }Fit and confidence plots
2 F  R# R1 U1 u# H: Ploess, regression, and penalized B-spline curves, and ellipses
Distribution plots
0 ~& i& ?, g4 c% D- x3 Abox plots, histograms, and normal and kernel density estimates
Categorization plots
dot plots, bar charts, and line plots
  _6 y$ @! N% \3 uNot 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
3 r. O9 P6 K6 j

data ex;
input x y ;
6 K. D5 [' S1 jcards;
1 2
6 H% |3 K# l* n# S% p5 X* K% Y" c, R2 7
$ g6 s$ l9 H6 Q4 12
( s; L; O7 ^+ j* c- O1 n* q' Y5 11
6  9
: K& O" r2 v/ u) Q2 {7  8
& d) ?* H2 \1 D9 p( `4 V, r;
2 @6 |7 ?* N2 E* A7 wtitle ;
6 G* O2 L4 z' c) r3 S8 e% Mfootnote;
$ L! I  _9 G4 k# L! W$ f5 Yproc sgplot data=ex noautolegend;
* ?/ M( U5 g+ E8 D7 B- OSERIES  x=x y=y/LINEATTRS=(color=blue thickness=6) ;
band x=x lower=0 upper=2.5 / OUTLINE  transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
  a4 f/ L1 y6 A) ?" a( W* aband x=x lower=2.5 upper=5  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
band x=x lower=5 upper=7.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
: Q1 G( B. R: }5 w  oband x=x lower=7.5 upper=10  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
band x=x lower=10 upper=12.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
7 S0 Z) ^, A% X4 U/ G" p0 wyaxis values=(0 to 12 by 3)   min=0   max=13 valueshint;
xaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
run;
来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好