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

厚积薄发

data ex;
: C/ F! |& T+ w: g% ?4 w7 p  `! Hinput x y g color $;
cards;
0 ]& @7 u5 d  \3 t1 2 1  Yahoo!
! Z) Z$ l; }, Z- u( c1 4 2 Google
; k" E, \: ^* C2 5 1 Yahoo!
2 8 2 Google
3 K- r9 w  k; C$ D4 12  1 Yahoo!
+ T$ y) p  b' @7 A4 [4 10 2 Google
5 9  1 Yahoo!
5 7 2 Google
* e1 I1 a& X# \1 n+ k' Q;
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;
+ x& \( o% C  R: qrun;
data range_anno;
when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
% K1 M: F1 ^  J; K. e7 K. T1 Jfunction=’move’; x=0; y=0; output;
function=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
function=’move’; x=0; y=20; output;
function=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
4 E4 o' c. T: m0 a2 {9 \function=’move’;x=0; y=40; output;
/ T: d. v' W3 c( E3 r+ ]! f  V* yfunction=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
0 c+ x0 ~- }1 O/ Pfunction=’move’;x=0; y=60; output;
3 o( E& v6 `: Y; m' ?* B* Gfunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
function=’move’;x=0; y=80; output;
" S4 K, m4 p4 u/ T8 O( Bfunction=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
run;
data range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
" K7 G+ t9 H8 U) T$ q* [% sfunction=’move’; x=0; y=20; output;
0 `+ y9 k5 z' U! Efunction=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
" o6 f+ j2 A' ~  kfunction=’move’; x=0; y=40; output;
function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
8 ], c) \" u& C9 yfunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
% E  @3 c* Z4 S" M5 yfunction=’move’;x=0; y=80; output;
1 i+ T7 p. _* h+ [* m6 Q$ h3 Sfunction=’bar’; color=”cxD6CECD”; x=100; y=80; output;
run;
data range_anno;
. w7 S5 h. j. L3 ^' Z6 @* N+ gset range_anno range_anno1;
4 t# y8 O  R( D  q+ B# Qrun;
8 D8 p' W7 O% R8 R" PFILENAME file “c:\bussiness.png”;
GOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
8 h3 W' Y; A. R: ?" T3 lymax=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);
/ j- n4 y; e3 L& @+ Eaxis2 color=black width=2 label=none order=(0 to 13 by 4) minor=none major=(h=1)  value=(h=1.0) offset=(0,2);
/ C/ ~, W1 h' F9 Naxis3 major=none label=none value=none;
pattern1 v=s color=’cxFF8E00′;
pattern2 v=s color=’cx004C7A’;
3 C5 v: O  ^- j5 z# Z3 htitle j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
7 L7 o3 ^, r* ]: m3 @4 G5 Ntitle2 j=l ” Internation compsdfdsfsfd”;
3 H1 R4 e# G1 Ktitle3 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);
proc gchart data=ex anno=title_anno;
5 W; X) n& x( v4 Nvbar g / discrete       type=sum
7 p8 D7 _/ E1 [sumvar=y
. T( L' Y. D; s7 |maxis=axis1 raxis=axis2 GAXIS=axis3
# ~. K2 h1 u( \- a/ a9 d# e5 qcoutline=gray33  caxis=”cxD6D3B8″
+ I& F8 P6 o6 j  L1 C& bwidth=4
space=0
gspace=0
subgroup= color
group=x
4 @' C, |7 x3 L# E+ U% ilegend=legend1
anno=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;
; h5 S9 |( a6 a( o" @" ]quit;
% t) ~% C! I; ]) W% i3 Q/ q0 Y8 K下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
这代码是相当的复杂，调试也比较费功夫。
* Z+ h7 G4 e5 h
本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
' ?: R$ N! D  X' E& Y& ^3 o3 g. l. lThere are four basic types of plots that you can create with the SGPLOT procedure:
5 [- L( M8 I- z; x! J7 ZBasic plots
scatter, series, step, band, needle, and vector plots
; q- N! f/ p% w! YFit and confidence plots
* P& d5 o6 K, ^% _loess, regression, and penalized B-spline curves, and ellipses
4 T  M; _* F" Z! G4 d5 rDistribution plots
( I9 L- |, e0 K& h4 H5 e, c, gbox plots, histograms, and normal and kernel density estimates
Categorization plots
( [, ~( c1 _3 l6 gdot plots, bar charts, and line plots
8 Z* g* G4 |) [/ r0 [" z" h. lNot 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

+ v  ^, c$ l! \9 l
data ex;
input x y ;
, \: J) k9 J5 L6 N4 s5 {/ ~/ V# Ycards;
7 u4 I9 F3 H2 e0 z; a3 r1 2
2 7
4 12
5 11
+ o* ^! h6 y+ B4 a+ I6  9
7 b! W* d! s4 K9 Y' t# t7  8
;
title ;
footnote;
( o4 s1 _% Z3 a9 D: i" w9 @- Oproc sgplot data=ex noautolegend;
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;
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;
* U: V: y7 I' T* X" w8 c% Xband 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;
run;
% w- z9 K6 O8 X# m, T来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好