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

厚积薄发

data ex;
input x y g color $;
  ?( [; I$ p* Ncards;
1 2 1  Yahoo!
$ {; ?* Q9 o# [6 s6 }. t, S2 f1 4 2 Google
# R# D, R  }% @" }2 5 1 Yahoo!
( t6 {5 o3 B, _7 A( _2 8 2 Google
( i4 j+ d1 y- k2 H( x2 ~4 12  1 Yahoo!
4 10 2 Google
) J6 w; H" R0 \5 9  1 Yahoo!
5 7 2 Google
;
; \+ J( f5 m; ?+ fdata title_anno;
when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
+ l$ m3 c8 J  Cfunction=’bar’; x=100; y=100; color=’black’; output;
run;
( K& c3 L. I8 a: K3 E: j) e' u9 ^data range_anno;
7 _% [# ^0 }4 Q3 O0 zwhen=’b'; xsys=’1′; ysys=’1′; style=’solid’;
8 i2 q: {7 q( t  v: bfunction=’move’; x=0; y=0; output;
function=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
: ]+ m$ E/ j3 V+ ?function=’move’; x=0; y=20; output;
function=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
. W" f, J# p# ^  s4 s* k  ^) {5 M7 B: dfunction=’move’;x=0; y=40; output;
4 }/ L) o- s# h4 K. h+ qfunction=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
function=’move’;x=0; y=60; output;
1 f. ^8 B8 s; c0 L& B* ?$ Z6 {, @# afunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
# {8 D2 B' X9 S. F: ^function=’move’;x=0; y=80; output;
1 y! |  x. T$ a& \1 F5 Hfunction=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
7 k) a+ z8 W$ ?run;
, W8 D% v* S& ^* E* odata range_anno1;
$ \- L7 D4 e7 W+ }  twhen=’b'; xsys=’1′; ysys=’1′;
function=’move’; x=0; y=20; output;
function=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
function=’move’; x=0; y=40; output;
$ Q/ R+ o0 h+ ~- }  b8 M1 Ufunction=’bar’; color=”cxD6CECD”; x=100; y=40; output;
: G; X3 Z4 T4 [6 h2 W9 O# E, R' Zfunction=’move’;x=0; y=60; output;
function=’bar’; color=”cxD6CECD”; x=100; y=60; output;
function=’move’;x=0; y=80; output;
% Y5 D1 o1 w+ o/ M0 F/ ^. tfunction=’bar’; color=”cxD6CECD”; x=100; y=80; output;
6 B0 c' S& Y  srun;
, _" x! x. T+ c; m2 ydata range_anno;
set range_anno range_anno1;
run;
% o6 a9 Z3 G+ [- m* p$ F6 u# F0 nFILENAME file “c:\bussiness.png”;
GOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
ymax=8cm xmax=9cm
  A+ [% ~. K) t+ Qhtext=1.5   ;
$ y& Z, \% `/ vaxis1  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);
! R9 T, N- d) Q- Q9 |- E% y. yaxis3 major=none label=none value=none;
" f5 J  X' R, B* ^9 o  g% |pattern1 v=s color=’cxFF8E00′;
/ _$ X, y, B; V, o+ X* ^& A" M$ Jpattern2 v=s color=’cx004C7A’;
title j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
% y3 @8 A7 r) o5 `) Btitle2 j=l ” Internation compsdfdsfsfd”;
: f+ g+ ~2 K3 dtitle3 j=l ” asdfd asdfdf dfsdfsd”;
) e% ], C$ s% G. A3 P2 y1 }* _legend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
- `- L% Y! J! s- w! {  yshape=bar(.1in,.1in);
8 f5 k; P! ~) U0 q& Bproc gchart data=ex anno=title_anno;
vbar g / discrete       type=sum
sumvar=y
- `) [' m: _% _4 Z- \/ g4 K( Imaxis=axis1 raxis=axis2 GAXIS=axis3
coutline=gray33  caxis=”cxD6D3B8″
width=4
" U7 o( k6 o9 m7 F0 D8 k5 hspace=0
gspace=0
subgroup= color
group=x
legend=legend1
. v4 K3 L6 i9 P) b& `9 J  oanno=range_anno ;
footnote justify=l h=1 font=swiss “  Data from **group”;
4 i  q- q- e1 `2 ]$ p+ }9 f( mfootnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
run;
quit;
4 h! X0 ^5 x/ M6 C& ^' K6 b7 W下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
这代码是相当的复杂，调试也比较费功夫。
: l; D1 p5 V5 @; V$ }$ x0 Q
本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
. F4 i' U1 s  E/ O3 i$ ?There are four basic types of plots that you can create with the SGPLOT procedure:
Basic plots
" B9 x" x8 k( \9 S$ Y2 X; K7 Nscatter, series, step, band, needle, and vector plots
  ^* z2 g) S8 Y: EFit and confidence plots
- A. {7 r# Q9 j$ a# e% c& cloess, regression, and penalized B-spline curves, and ellipses
Distribution plots
& D6 w' \, K0 v7 r5 {& v  V/ M9 h% wbox plots, histograms, and normal and kernel density estimates
Categorization plots
dot plots, bar charts, and line plots
, {: v  w5 E  w5 O6 ZNot 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
/ C  i$ S" y4 I& {
: N: B# X5 k3 B9 ?/ A6 H. x
data ex;
- Z8 r$ H8 g3 kinput x y ;
3 b0 k( b6 @& o6 C4 q/ Ycards;
7 _/ _; s1 e: n& J+ x1 2
2 7
4 12
5 11
& c! d7 c  T9 `& t* V3 E6  9
7  8
7 _$ Z0 l4 I8 e& c( X! I- S5 U. E) `;
/ }' R1 Z" t0 ~/ htitle ;
) h2 m) L) |. Wfootnote;
proc sgplot data=ex noautolegend;
- n, h8 @# S0 b( C4 a# H/ jSERIES  x=x y=y/LINEATTRS=(color=blue thickness=6) ;
7 V* ?# H4 t" P; W4 x0 qband x=x lower=0 upper=2.5 / OUTLINE  transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
7 B5 `! a, _* P6 C6 \+ N2 dband 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;
band x=x lower=10 upper=12.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
6 \: Y. Z9 d# r; H- Myaxis values=(0 to 12 by 3)   min=0   max=13 valueshint;
xaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
run;
) f! N5 k9 ~) g7 Z; y9 S/ U) Z/ Z来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好