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

厚积薄发

data ex;
input x y g color $;
cards;
1 2 1  Yahoo!
1 4 2 Google
9 P; f. r& |/ T2 5 1 Yahoo!
8 H. |8 M2 ]* D4 x: Q+ c" T7 H2 8 2 Google
$ w# A: z* i# d% U4 A2 J% e4 12  1 Yahoo!
4 10 2 Google
5 9  1 Yahoo!
5 7 2 Google
;
data title_anno;
7 [4 f5 T% \. c: x0 wwhen=’b'; xsys=’3′; ysys=’3′; style=’solid’;
1 u- @: h2 q4 g8 g" Afunction=’move’; x=0; y=87;  output;
9 B8 ?( t9 G8 R) Zfunction=’bar’; x=100; y=100; color=’black’; output;
run;
& C2 i0 w. k  g0 wdata range_anno;
- n9 X2 r/ _0 k1 _! Y& Fwhen=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
" e+ N: A6 y. Y* p! Jfunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
) U( S, M% j5 L2 E4 ~$ u7 F/ lfunction=’move’; x=0; y=20; output;
function=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
- \: d7 j/ B9 Lfunction=’move’;x=0; y=40; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
/ r6 O1 M& _0 S4 Y2 q6 afunction=’move’;x=0; y=60; output;
: i8 O5 |, Z- ]  V; Wfunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
function=’move’;x=0; y=80; output;
1 @. P' h8 j- Mfunction=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
1 R0 C) X) |! @9 \1 P+ f  erun;
data range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
+ o# Z. w# G1 y1 P4 r4 j. O  Z+ Tfunction=’move’; x=0; y=20; output;
function=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
  E& k+ Q' N) T( Rfunction=’move’; x=0; y=40; output;
function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
/ G' K. B3 O0 x" Q& tfunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
0 e+ e" }6 n1 }$ A, C7 ~function=’move’;x=0; y=80; output;
function=’bar’; color=”cxD6CECD”; x=100; y=80; output;
2 T2 Z2 W1 P$ }  n; Q" h& h( ^5 wrun;
data range_anno;
set range_anno range_anno1;
run;
' a8 N) K' ~- l: Q5 _8 P/ X0 IFILENAME file “c:\bussiness.png”;
% Q7 q6 r  o  nGOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
" r( a/ S9 H; v  B5 v1 ~vsize=7cm hsize=7cm
ymax=8cm xmax=9cm
# o; \6 P4 _7 r& ~0 x2 d+ Yhtext=1.5   ;
axis1  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;
; o# S1 k$ z, U+ _. J( g/ rpattern1 v=s color=’cxFF8E00′;
4 o* W! Q* L5 D9 y2 c1 Lpattern2 v=s color=’cx004C7A’;
title j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
: D# u. o/ c& S( a- Y/ [6 Ftitle2 j=l ” Internation compsdfdsfsfd”;
: a9 Z$ k7 X4 @title3 j=l ” asdfd asdfdf dfsdfsd”;
legend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
shape=bar(.1in,.1in);
+ t$ [, ^: V+ G- H+ z, J  \proc gchart data=ex anno=title_anno;
vbar g / discrete       type=sum
sumvar=y
: ]8 E, p+ E3 J! lmaxis=axis1 raxis=axis2 GAXIS=axis3
  i9 G" ?0 m/ q2 a$ w# g5 Z1 i7 Ycoutline=gray33  caxis=”cxD6D3B8″
width=4
; S4 e; J' m0 ^0 [# o/ b& }- H% h& Cspace=0
gspace=0
subgroup= color
group=x
legend=legend1
  U1 `! u/ b0 r% E. Sanno=range_anno ;
footnote justify=l h=1 font=swiss “  Data from **group”;
% c- V7 E9 p+ r: O1 y) rfootnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
! X0 C: P" O; i' C  w6 frun;
quit;
6 a4 T2 g" ], F下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
7 ?1 |  `! a; C/ ], _) Q这代码是相当的复杂，调试也比较费功夫。

' ~9 y0 A+ d& T; w' W4 C( }2 t& ]! B本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
There are four basic types of plots that you can create with the SGPLOT procedure:
6 D1 ]3 Z9 ?& i# M, d+ v& t0 fBasic plots
( K$ m( `6 x9 ~1 p- s% J2 `8 sscatter, series, step, band, needle, and vector plots
6 l. l1 n& o4 S6 m" t# nFit and confidence plots
# s3 x8 @8 A, G* I! _loess, regression, and penalized B-spline curves, and ellipses
Distribution plots
# S) A# ?$ `2 n4 M! k4 Ubox plots, histograms, and normal and kernel density estimates
8 b. S; g4 z" R4 d) nCategorization plots
dot plots, bar charts, and line plots
: G' i/ X! }( _$ ~9 pNot 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
' o6 C" r6 d% w* x
' p; `3 h, }* m: m  _3 H+ _( V# C
, u! B. g7 w6 d9 tdata ex;
input x y ;
cards;
3 _9 ~# L+ ?( @1 y. w( D1 2
. p6 z8 ~) W7 P! _; e/ `' k- p2 7
8 }9 o( O4 \) |! ]8 d0 k" `4 12
$ E; G. `; W1 Z% y2 a/ O4 J4 M6 y5 11
4 J0 P! P& _" Z1 b6 X, ^" q6 @6  9
2 G/ J5 T( \/ f: H7  8
: V' Q. T# `% l/ S+ T) D2 };
title ;
5 e4 u1 F7 X  _* Ufootnote;
proc sgplot data=ex noautolegend;
( e* m4 s) A, H' u" o8 G/ {SERIES  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;
) t' D! S. X1 R  g* oband 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;
$ H0 |  T% u2 a* O; a$ o' ~& X. Zband x=x lower=7.5 upper=10  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
: @% Q# }# J( X! p. G" @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;
/ H2 y$ q+ z' T, i' Q/ crun;
来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好