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

厚积薄发

data ex;
  }1 ?2 a) e% ?) K2 v2 B9 Winput x y g color $;
- L8 e) M! i  X, }) I0 R4 E! [* Tcards;
1 2 1  Yahoo!
1 4 2 Google
2 5 1 Yahoo!
2 8 2 Google
" e' k2 \& [; `6 o& |; w" q4 12  1 Yahoo!
4 10 2 Google
, `7 |+ m0 E; K% [5 9  1 Yahoo!
5 7 2 Google
;
data title_anno;
' q, n5 o( t  O/ u9 Y3 \when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
5 G1 Z; C+ C- Y# i) O" t. j! @function=’move’; x=0; y=87;  output;
8 o6 O6 \1 l# F$ X3 F4 C( F, q' m5 Cfunction=’bar’; x=100; y=100; color=’black’; output;
) J( J2 ]5 r: H. Y% Vrun;
+ M! x0 W0 N+ gdata range_anno;
% N- D! w- |# P4 lwhen=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
$ U  \- B3 l0 C* Ffunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
function=’move’; x=0; y=20; output;
  R+ n% _3 d* q! Cfunction=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
/ y- c/ j; v! o$ @+ G- Ifunction=’move’;x=0; y=40; output;
5 h) d2 a; n( q: P0 d- {& \function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
, u) |0 h0 n- Ofunction=’move’;x=0; y=60; output;
# H- n, E: i: R; b% h# Hfunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
* G6 r: Z9 x3 x. P2 t. o4 R9 Jfunction=’move’;x=0; y=80; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
run;
6 V3 ?4 [9 w# K. R  i) `data range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
function=’move’; x=0; y=20; output;
; f8 B3 j' ~0 w$ J  z- Gfunction=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
function=’move’; x=0; y=40; output;
7 f; m/ z2 a. [7 ]0 W! zfunction=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
  u( Y+ n6 Q$ _3 ~( I- K  Gfunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
4 P; K* Z3 F* s& rfunction=’move’;x=0; y=80; output;
function=’bar’; color=”cxD6CECD”; x=100; y=80; output;
& Y1 p- i) r, u% brun;
data range_anno;
$ q0 K& k3 O& bset range_anno range_anno1;
% d* g* M) ]' Z. C+ Trun;
* i: S, H2 |' {FILENAME file “c:\bussiness.png”;
GOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
2 Z  e! U; W) d- |: mymax=8cm xmax=9cm
( L! \* \- d+ P; p1 `+ j( ehtext=1.5   ;
axis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
& s! O3 B; O& B3 _4 Vaxis2 color=black width=2 label=none order=(0 to 13 by 4) minor=none major=(h=1)  value=(h=1.0) offset=(0,2);
4 g2 ^5 M" F# L# Iaxis3 major=none label=none value=none;
pattern1 v=s color=’cxFF8E00′;
$ a, [( [, D7 c; Y6 L- a; N: _* upattern2 v=s color=’cx004C7A’;
; m# N4 T. {+ T' n. j5 ~title j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
title2 j=l ” Internation compsdfdsfsfd”;
" G6 e( S: K& i5 z, B  F; u' `' p1 Otitle3 j=l ” asdfd asdfdf dfsdfsd”;
legend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
, t! T6 e/ ~( ]* b! F' tshape=bar(.1in,.1in);
) B4 l0 h) m, c: ?# F, L* eproc gchart data=ex anno=title_anno;
$ K5 ]. I5 F6 n. ]2 @vbar g / discrete       type=sum
! V) K, Z+ J8 y; R& ?" ~sumvar=y
maxis=axis1 raxis=axis2 GAXIS=axis3
5 o  N1 t3 ~8 N6 Z1 E! `) zcoutline=gray33  caxis=”cxD6D3B8″
; ]  F8 N9 l. k: i4 i3 Swidth=4
space=0
gspace=0
subgroup= color
# {6 R: v& R) d" S- mgroup=x
legend=legend1
' q7 k5 ?0 L1 kanno=range_anno ;
footnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
3 k: T  h( ^) W5 irun;
quit;
* S0 {0 `+ I: |! D2 A& D, B2 F下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
; Q# ~  L/ |# ?7 E1 y6 d2 p, 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
- E) n- \4 v$ Q- o% z- n9 sFit and confidence plots
loess, regression, and penalized B-spline curves, and ellipses
9 J, k8 D$ q5 M2 RDistribution plots
5 z5 i7 V5 x$ }& P& J; X5 W8 fbox plots, histograms, and normal and kernel density estimates
7 @/ l8 j2 H  ~0 t/ dCategorization plots
dot plots, bar charts, and line plots
3 R. X: z& s* O- R4 sNot 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
* g2 O4 }2 n+ J

0 N  T+ }; q2 y3 ^8 ndata ex;
input x y ;
cards;
6 n9 Q* ]* {4 o, K5 {% w& C! f, [1 2
2 7
6 Q( r, e/ j2 f- z6 [6 w4 12
5 11
1 f0 ~, t& i1 {6  9
7  8
;
. c; h  W0 ]( O* g8 F1 Vtitle ;
% Y/ `$ ~+ ?: X# j5 z: ufootnote;
* p( i2 q& \* i! Yproc sgplot data=ex noautolegend;
6 _9 f9 W. G- }/ n" n# d# bSERIES  x=x y=y/LINEATTRS=(color=blue thickness=6) ;
5 K! e7 h3 T. [7 l( Q: Jband 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;
. k! I5 ]( q8 P7 D5 ^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;
3 u6 M4 ^3 K# S# ]# i, H# [% sxaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
. w$ K! A5 L" ^- }run;
0 L% F9 E" y1 Y2 y% m2 b4 w; e$ N8 y来源：数据挖掘学院

空木葬花

非常感谢楼主！

秋の名山で戦

真心觉得是好贴  点128个赞

秋の名山で戦

哇 太强了 效果相当好

540109558

相当的不简单啊

hahaysw

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

飞雪灬无痕

学习了。。。。。。。。

老牦

顶！！！！！！！

jt202010

schnee

顶！！！！！！！