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

厚积薄发

data ex;
- Q* ]* K4 E  F# [; a, _# oinput x y g color $;
$ ]/ ]& `$ S$ z+ h7 @( \cards;
1 2 1  Yahoo!
1 4 2 Google
2 5 1 Yahoo!
2 8 2 Google
2 ^$ Y5 N' e+ \+ h8 D$ \/ ~4 12  1 Yahoo!
4 10 2 Google
' y. \0 [) U3 _: B5 9  1 Yahoo!
/ y2 v' J' Q1 F+ A: a8 u" r& M5 7 2 Google
;
4 B+ U" o* F4 T7 m! |data title_anno;
/ ~# u4 M" w( y, W6 x% M% twhen=’b'; xsys=’3′; ysys=’3′; style=’solid’;
# z7 }; k% a. i9 v! V, V) yfunction=’move’; x=0; y=87;  output;
function=’bar’; x=100; y=100; color=’black’; output;
5 i" r- F- U4 t' e. f7 T; S9 u- orun;
data range_anno;
7 ?5 n) J* \( T" |when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
, |( [$ F3 K* Rfunction=’move’; x=0; y=0; output;
. w4 h6 O3 I, v0 D3 `* U, |function=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
" D! T8 ?- r. y, Z9 Efunction=’move’; x=0; y=20; output;
function=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
& z  ]7 b1 Y; r. L& [function=’move’;x=0; y=40; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
# M1 B8 w2 h7 k6 O5 M  _function=’move’;x=0; y=60; output;
4 ]. U4 O  @# K  \  n- qfunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
' V( l( I. z  T& ]6 f$ \function=’move’;x=0; y=80; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
) O$ W+ S5 P; o3 C( Yrun;
# D1 R; a, C# z9 I  L* ydata range_anno1;
) E! ]/ w; ^3 D; l! twhen=’b'; xsys=’1′; ysys=’1′;
, Z0 C, m9 T0 l. D( d2 gfunction=’move’; x=0; y=20; output;
, h8 q. y7 T1 e2 bfunction=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
3 e. O  o  {$ [7 {( l7 T% v* ]function=’move’; x=0; y=40; output;
function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
' B; X4 b% m6 V$ j( b) Efunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
function=’move’;x=0; y=80; output;
# k( q9 o! s0 F+ r- jfunction=’bar’; color=”cxD6CECD”; x=100; y=80; output;
run;
1 H5 W9 z$ H. Z8 Sdata range_anno;
  ?  y' K' u* [set range_anno range_anno1;
' G* y5 s6 M$ T" f+ N" lrun;
0 m0 ~% _# A* I, L6 ]5 _7 jFILENAME file “c:\bussiness.png”;
) q0 }; }8 J2 EGOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
$ Y+ [3 l- F# vymax=8cm xmax=9cm
: s+ M6 b1 y! \% h5 Bhtext=1.5   ;
; j* p% _7 o  q7 Jaxis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
9 r* v9 J* B+ laxis2 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’;
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”;
; _- Y% Y6 B  s% M9 {% ?6 Alegend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
2 S2 l; ~+ D8 m( j1 q; }shape=bar(.1in,.1in);
proc gchart data=ex anno=title_anno;
vbar g / discrete       type=sum
sumvar=y
maxis=axis1 raxis=axis2 GAXIS=axis3
& a5 C& }9 t0 icoutline=gray33  caxis=”cxD6D3B8″
7 l4 J* M3 ]& wwidth=4
' h) ?3 n  ?+ R( ?3 x  u- G5 V$ ~space=0
" M4 @' A- a8 ygspace=0
subgroup= color
1 G! m1 b' K$ `5 k5 sgroup=x
legend=legend1
% F8 o% a  D; M) c& uanno=range_anno ;
0 [! Z4 \6 D9 Gfootnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
run;
8 l; c1 ~* e) ^' J6 ?! Xquit;
$ j) o' D# E# }' [6 e6 n3 B- x下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
, \% j6 L7 M  U$ ^这代码是相当的复杂，调试也比较费功夫。

3 Y( Z" `9 _1 g8 n( y3 e' d本来准备在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
- T3 k5 N, H! u! |" y  m% D, DFit and confidence plots
5 C+ K5 p" z3 E9 V" D( X, L- A0 A( mloess, regression, and penalized B-spline curves, and ellipses
Distribution plots
box plots, histograms, and normal and kernel density estimates
2 X+ s( z: X9 X) d3 e, aCategorization plots
- J" V0 w; c4 l9 qdot plots, bar charts, and line plots
& _9 y3 I* r: u/ H* I2 ENot 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
6 Y% y2 @$ \( @; {

% }2 C+ G. C; ?data ex;
input x y ;
: b. ^) `% A) m% @8 Xcards;
1 2
$ b% L8 v. }* H' ]2 7
4 S; O: x' s: z4 f2 y; D* t4 12
+ S5 I$ Y1 {: g, J/ ?- V$ C5 11
$ p3 n' S1 ~; t: {1 f6  9
# T4 C( H; g- a6 \! {7  8
;
title ;
footnote;
$ N; O: o- r2 O& lproc sgplot data=ex noautolegend;
SERIES  x=x y=y/LINEATTRS=(color=blue thickness=6) ;
/ h% f9 k% |: L- e6 K  s8 i# S2 ]1 D; S- Qband 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;
0 t2 D) g8 s' b7 ~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;
yaxis values=(0 to 12 by 3)   min=0   max=13 valueshint;
5 s- f4 Y& a6 ^; I  sxaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
run;
$ T4 G) k& D7 F$ Z7 f来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好