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

厚积薄发

data ex;
+ ~$ `# \$ p" {4 v3 F9 {input x y g color $;
" Y, W8 f0 |3 g+ wcards;
* X( d3 y- }) x- {1 2 1  Yahoo!
1 4 2 Google
8 |* `9 ~2 c* s6 b, i1 m; J9 i" w2 5 1 Yahoo!
* C1 I) N5 V. L2 8 2 Google
* W/ H+ Q+ t" O" x4 12  1 Yahoo!
4 10 2 Google
: i* t2 y4 u9 S' e  }# z: j& v, O5 9  1 Yahoo!
3 v$ U' g7 a( @0 q+ n5 7 2 Google
$ m. B' I# {) }9 h! T7 |;
data title_anno;
when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
function=’bar’; x=100; y=100; color=’black’; output;
* f0 ^4 q3 l) p0 a3 e% ]0 urun;
0 s4 j: t) L! Rdata range_anno;
when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
( U2 ^" [3 }. I; ]: ]function=’move’; x=0; y=0; output;
) Y6 j& l/ Z+ _function=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
1 a4 `& l* f: `& i( G9 e) v! q  @function=’move’; x=0; y=20; output;
function=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
+ S; E4 ~* H, S, u& `2 Pfunction=’move’;x=0; y=40; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
( V  O, H2 _; f" {' O; t/ `+ ~+ Yfunction=’move’;x=0; y=60; output;
, ?' M" C: @4 J# ^function=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
( l. w% T' H) l; x- k& Kfunction=’move’;x=0; y=80; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
run;
: V; c( ?* i( w6 Vdata range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
3 m/ g+ t: P/ x9 p" k  E( o, Hfunction=’move’; x=0; y=20; output;
+ A4 t! P/ K5 O0 E# @/ ~0 L6 R& Gfunction=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
function=’move’; x=0; y=40; output;
function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
+ _1 R/ A9 D. y( O9 tfunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
function=’move’;x=0; y=80; output;
$ B# s( y" [- u1 wfunction=’bar’; color=”cxD6CECD”; x=100; y=80; output;
* d7 Q+ \( t% x& ~) v- lrun;
data range_anno;
% ~+ m& t: I% t" M! o: I; Kset range_anno range_anno1;
run;
9 s, p9 c, Q- Q( y5 Q" ?4 KFILENAME file “c:\bussiness.png”;
5 t' V( x7 N& @/ o: y) {7 c* fGOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
ymax=8cm xmax=9cm
! O& @9 u' z' Q  x& r6 s' lhtext=1.5   ;
axis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
1 R" d, q' n& o2 L# M- k" K2 Maxis2 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;
% g' W" x, c% p# r% b$ vpattern1 v=s color=’cxFF8E00′;
& ]) l+ B+ E. r& b5 ^pattern2 v=s color=’cx004C7A’;
title j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
title2 j=l ” Internation compsdfdsfsfd”;
title3 j=l ” asdfd asdfdf dfsdfsd”;
1 q! n: B# ?& s- U* G& H2 wlegend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
5 d, D/ g6 s3 H9 D3 R: w% b/ Ushape=bar(.1in,.1in);
proc gchart data=ex anno=title_anno;
vbar g / discrete       type=sum
sumvar=y
maxis=axis1 raxis=axis2 GAXIS=axis3
' N- |/ ~. z6 |, r' mcoutline=gray33  caxis=”cxD6D3B8″
width=4
space=0
gspace=0
7 e+ q, K1 X2 Z$ k6 v0 _& asubgroup= color
group=x
* U, t- ]# R) ?* S* @& [legend=legend1
4 y3 x" k2 W  [# Ganno=range_anno ;
footnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
run;
quit;
下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
这代码是相当的复杂，调试也比较费功夫。

" m8 U, K: H# R1 n2 m/ c本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
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
Fit and confidence plots
loess, regression, and penalized B-spline curves, and ellipses
( p- O: J) y; d0 h) \2 w( \) LDistribution plots
$ |8 i# }8 U3 q" Dbox plots, histograms, and normal and kernel density estimates
; Z7 j* D; R6 L! C# e7 mCategorization plots
dot plots, bar charts, and line plots
# G8 r. R& i! X& gNot 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

( J5 Z7 a; A) z9 \7 G2 b- G
data ex;
) ]  }" r' Y9 V0 {5 {input x y ;
" t5 L! [: u8 `" @& i* bcards;
1 2
2 7
4 12
5 11
. j& z7 N$ u% i/ ^& c6  9
7  8
;
( v0 G" @; }' H& p$ F" S- ^- ctitle ;
footnote;
proc sgplot data=ex noautolegend;
9 O; W) K. e4 |0 USERIES  x=x y=y/LINEATTRS=(color=blue thickness=6) ;
/ W1 ^# u5 R. L) z. E0 dband x=x lower=0 upper=2.5 / OUTLINE  transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
band 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;
band x=x lower=7.5 upper=10  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
2 h& B* }% U9 G. aband 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;
6 {8 C% R( [$ L8 N6 S, grun;
! M9 F: ~& l3 \" |来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好