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

厚积薄发

data ex;
! f$ M4 g1 K2 k8 _! V/ qinput x y g color $;
% x5 a  Z" f; a6 n/ ncards;
5 o1 r4 |+ s7 i4 B1 2 1  Yahoo!
2 T/ l+ D; g% O/ B* V% h1 4 2 Google
2 5 1 Yahoo!
2 8 2 Google
4 12  1 Yahoo!
* t( }0 F% D2 ~* f4 10 2 Google
5 9  1 Yahoo!
5 7 2 Google
5 ^& K: z5 A2 m; g- E2 X2 q3 e2 U;
data title_anno;
- G$ L9 c6 I4 P2 @0 m5 o" [when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
$ z" m. W. y9 x3 j$ k9 ^function=’bar’; x=100; y=100; color=’black’; output;
6 n$ H- l5 F$ {: @) j1 ]run;
data range_anno;
9 l' ^8 Q. U+ M" M8 c. }when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
& L6 p2 T$ m/ x9 O; \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;
function=’move’;x=0; y=40; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
function=’move’;x=0; y=60; output;
function=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
$ s3 \# N5 p, dfunction=’move’;x=0; y=80; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
* ]* C) G" K1 y; G; Orun;
: |: ?# {5 u9 V+ Udata range_anno1;
& v. I% w) w: ?8 A: O4 E# t' Wwhen=’b'; xsys=’1′; ysys=’1′;
function=’move’; x=0; y=20; output;
function=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
' ~9 T7 a, \" Efunction=’move’; x=0; y=40; output;
function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
function=’bar’; color=”cxD6CECD”; x=100; y=60; output;
9 ?4 r7 d* L5 o9 f" M7 qfunction=’move’;x=0; y=80; output;
: a1 P& H2 A4 |8 [function=’bar’; color=”cxD6CECD”; x=100; y=80; output;
" r7 R0 E, ?) h' Z$ Z, p! E' ^/ d& krun;
data range_anno;
* [( @5 v: [6 I4 n0 t, |* @set range_anno range_anno1;
2 S5 k- h6 _% u. L$ q  Erun;
FILENAME file “c:\bussiness.png”;
: [8 G. T$ V! ]* VGOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
; l* @! v) F  qymax=8cm xmax=9cm
3 `) K' d8 e  `/ Ihtext=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;
pattern1 v=s color=’cxFF8E00′;
pattern2 v=s color=’cx004C7A’;
, @) L% S/ b7 I, Etitle 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”;
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 v! }/ R9 q6 I, p+ N% Dvbar g / discrete       type=sum
  H  m/ d0 Y/ m) C! f# u  X  [sumvar=y
; M' y9 q$ t# s7 ~maxis=axis1 raxis=axis2 GAXIS=axis3
% R$ R# D1 T  e' s& Mcoutline=gray33  caxis=”cxD6D3B8″
width=4
1 F$ N$ |$ W' \/ Q, O+ cspace=0
gspace=0
1 o5 J: o) T/ ~3 ^' msubgroup= color
group=x
legend=legend1
anno=range_anno ;
footnote justify=l h=1 font=swiss “  Data from **group”;
& a/ p5 q& I. j, _footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
& B: R7 i$ v4 D& i) G4 Lrun;
quit;
0 F% H  i2 ?6 s* s下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
5 ^3 k- c- J' s这代码是相当的复杂，调试也比较费功夫。

' f, [% F3 E8 F! z' d本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
! Q2 F  V( w4 J1 NThere are four basic types of plots that you can create with the SGPLOT procedure:
Basic plots
1 @) F7 @+ k  e6 Y" s2 dscatter, series, step, band, needle, and vector plots
Fit and confidence plots
loess, regression, and penalized B-spline curves, and ellipses
9 q+ y. |. m( `. K4 T$ JDistribution plots
$ W$ s2 M3 }0 y6 X- @+ o. ?; O6 obox plots, histograms, and normal and kernel density estimates
Categorization plots
  r+ e3 @8 {; q- C4 Qdot plots, bar charts, and line plots
$ d2 z& x7 R& S! W. `/ ~/ hNot 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
8 k- @3 K) @5 d. J7 Z4 ]
3 U2 j  N4 R9 r2 r7 R$ _4 T; U( g
% w' U: S( Z3 {/ g% Vdata ex;
input x y ;
2 p6 ~" v- ~7 h# Gcards;
/ |% G2 c1 U: S  F" f1 2
# {$ g- F& \' q7 M6 I2 7
1 t" r. N. y9 F( G4 12
5 11
$ l1 |- }& K6 I& @2 h$ P$ U$ v6  9
" }' n9 @# e7 F% H( a% l7  8
;
/ j" Y4 e! d# [9 m+ e/ \: Ltitle ;
footnote;
" e( _1 q/ o) `7 M: Mproc 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;
9 e) ]  m/ R3 {1 D1 s, f1 S6 ?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;
) b6 T' ^% c' ~( ^( Sband 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;
, T6 q4 o1 A8 H) f+ }, o  \! T0 gxaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
+ Y2 {0 ~! u- n6 g1 P& C! arun;
3 o! T2 G' P" U* [3 H  |; b- \9 K来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好