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

厚积薄发

data ex;
9 x8 I0 [) W; ^5 H8 einput x y g color $;
0 d; r3 S! w3 ^) a) ~cards;
1 ^8 n$ C+ W8 [4 X) V1 {$ {1 2 1  Yahoo!
6 T1 F, t1 ^% C# n6 B& [1 4 2 Google
2 5 1 Yahoo!
" H! b- V/ z  p' ~+ C8 I8 W2 8 2 Google
2 }5 s! J6 C" c- d% d6 }4 12  1 Yahoo!
; X, ]. u: p1 H1 M5 f# w4 10 2 Google
5 9  1 Yahoo!
5 7 2 Google
* z5 @' T2 N; D* P1 k2 L5 c+ H;
4 g  b0 g6 R4 b) Q. O5 W+ b) edata title_anno;
when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
+ o% H) a( H3 H  u7 h1 Ifunction=’bar’; x=100; y=100; color=’black’; output;
6 k/ i9 j! s/ d3 w5 Y+ drun;
data range_anno;
when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
: f9 `3 A! p' @2 d# K( ifunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
+ D+ r" \/ u! l/ H0 k) w2 n9 Xfunction=’move’; x=0; y=20; output;
function=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
. v$ t  j& y# F) O/ Yfunction=’move’;x=0; y=40; output;
- a. F4 g6 Z  ~& ~function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
function=’move’;x=0; y=60; output;
! Y) P9 ]5 Z0 I# K, X7 z% c8 {function=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
function=’move’;x=0; y=80; output;
; {3 Q* b, m$ ?3 t5 G. kfunction=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
& M- Y9 f( k3 @' g1 Wrun;
data range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
function=’move’; x=0; y=20; output;
# p3 ?& i, Q6 r" j4 {5 j0 j8 kfunction=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
3 q) R" O/ P, Z& P, [# Ifunction=’move’; x=0; y=40; output;
  q, w& S& ?' o% j; P2 J2 _function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
; M! n: |: O) r: \function=’move’;x=0; y=60; output;
2 R" d8 J! i- y; H5 e$ i+ l" ufunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
3 U$ n" ]+ V' Q+ ~& `function=’move’;x=0; y=80; output;
function=’bar’; color=”cxD6CECD”; x=100; y=80; output;
run;
) }0 d, V# f: I+ ndata range_anno;
set range_anno range_anno1;
run;
FILENAME file “c:\bussiness.png”;
, e+ G) p4 S5 I( z9 H5 x9 k! L# JGOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
ymax=8cm xmax=9cm
htext=1.5   ;
5 P1 c% C  A8 G% o4 Saxis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
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′;
pattern2 v=s color=’cx004C7A’;
title j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
% G1 c7 T: t" Stitle2 j=l ” Internation compsdfdsfsfd”;
title3 j=l ” asdfd asdfdf dfsdfsd”;
  S6 M/ R: I4 I- {, I: q+ @0 G3 Glegend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
shape=bar(.1in,.1in);
1 v; |9 ~7 g% r3 K5 K3 p3 q8 wproc gchart data=ex anno=title_anno;
vbar g / discrete       type=sum
$ ?4 g6 j; h" dsumvar=y
maxis=axis1 raxis=axis2 GAXIS=axis3
$ B* V2 z7 A- h0 @coutline=gray33  caxis=”cxD6D3B8″
8 j. u2 S0 S3 X6 y1 \: qwidth=4
! E9 ~3 W& O: m" L* bspace=0
9 }, c: ?& u0 k; b) A6 L: Kgspace=0
! D2 f. t% s! n4 Y: w% ^subgroup= color
: f9 g, o3 {3 i! h/ ogroup=x
9 s, J6 u0 I% t' n& @9 P! Tlegend=legend1
( t- J. j# j7 b7 l8 canno=range_anno ;
8 x7 X8 T: k# b2 P. W' bfootnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
5 I1 d7 J1 k$ U1 |0 O& s. S- orun;
8 m; m# B' Y2 rquit;
) \2 o+ U1 B3 P* w# x/ r下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
- _: {- g: H9 w' C- g2 A这代码是相当的复杂，调试也比较费功夫。

- P$ \  t6 ~% m( M0 _9 l3 g本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
$ y3 H4 m3 g3 X: P: {5 e+ bThere are four basic types of plots that you can create with the SGPLOT procedure:
. K( w; w$ P0 ], b+ YBasic plots
scatter, series, step, band, needle, and vector plots
Fit and confidence plots
loess, regression, and penalized B-spline curves, and ellipses
Distribution plots
box plots, histograms, and normal and kernel density estimates
Categorization plots
% U- m7 F- |$ `* T9 g; I2 ~$ ^dot plots, bar charts, and line plots
3 Q$ _& w: e7 MNot 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
: K- f' V# O1 A

data ex;
input x y ;
5 x- p# E1 K7 u0 e4 Bcards;
9 U0 I4 O9 d  R6 C' a1 2
, [  j- K  @5 S2 7
4 12
/ ]; S! @' F7 l  |5 11
6  9
* S# }9 p0 ~' }& P7  8
, |& M  s' c  V: r7 ]6 Z% Q;
title ;
5 P* Z; o2 }! J; d8 s5 O* Pfootnote;
proc sgplot data=ex noautolegend;
$ M! @; P0 C# e/ l0 l3 ZSERIES  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;
+ H9 [" V; C' R7 jband 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;
* E# b' t3 L1 @& L# Jband 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;
yaxis values=(0 to 12 by 3)   min=0   max=13 valueshint;
7 {: O) W8 [9 Vxaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
run;
来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好