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

厚积薄发

data ex;
input x y g color $;
cards;
1 2 1  Yahoo!
" N; e" v: n  d% L) a1 4 2 Google
2 5 1 Yahoo!
2 8 2 Google
4 12  1 Yahoo!
4 10 2 Google
6 ~: k# C7 E4 A0 h$ |5 9  1 Yahoo!
5 7 2 Google
2 ]! D% O; j( o% b;
data title_anno;
when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
- _9 C5 O) O! J; Kfunction=’move’; x=0; y=87;  output;
function=’bar’; x=100; y=100; color=’black’; output;
run;
data range_anno;
! ~2 a  ~: y8 J+ @4 ywhen=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
function=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
  W; f: g8 x! Qfunction=’move’; x=0; y=20; output;
" o: G/ m: Z7 Hfunction=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
; D. d1 j, q3 \7 A9 c8 a& Y/ `function=’move’;x=0; y=40; output;
  v# h' Z% I- K; `function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
9 A& [$ {( Z' ~6 x' R3 A- l1 Lfunction=’move’;x=0; y=60; output;
function=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
& j* P$ w- A+ i9 Zfunction=’move’;x=0; y=80; output;
5 W. `4 V" Z/ u2 O1 s6 qfunction=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
run;
data range_anno1;
; X" @+ d3 C: R" p# h) X0 Pwhen=’b'; xsys=’1′; ysys=’1′;
function=’move’; x=0; y=20; output;
function=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
9 `% r- u( e! v+ M4 Xfunction=’move’; x=0; y=40; output;
function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
* u) b" x2 `  P8 a& ^: V3 X" nfunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
+ u/ w! E* d6 h+ j- R- J3 d7 v7 i* Ufunction=’move’;x=0; y=80; output;
, K- Q* J6 x+ @+ `- w! u$ F. h3 nfunction=’bar’; color=”cxD6CECD”; x=100; y=80; output;
run;
data range_anno;
9 Z) [9 b5 x2 a- h6 h6 B* Wset range_anno range_anno1;
run;
! `# S( {9 v% r/ x- DFILENAME file “c:\bussiness.png”;
5 m( F4 i1 V: @* R, SGOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
& d/ P/ i; p) G7 c* qymax=8cm xmax=9cm
htext=1.5   ;
1 ^3 k( L4 X, j& t4 Taxis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
* l' `* A1 }( l( ]- b. m$ Paxis2 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;
) t/ F- S3 r/ Jpattern1 v=s color=’cxFF8E00′;
pattern2 v=s color=’cx004C7A’;
$ G# i* N$ n* v: D' D- ~4 S. ^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”;
: _9 J/ e1 {" t! e+ ^5 D* Mlegend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
& B- D, |. j1 Y- {. Q- kshape=bar(.1in,.1in);
proc gchart data=ex anno=title_anno;
5 E5 h) z' m" M* z- N$ G# ovbar g / discrete       type=sum
: \1 ?' u# k+ b7 B) G/ rsumvar=y
: A# s! X8 i) M7 }maxis=axis1 raxis=axis2 GAXIS=axis3
. V. f- B% ?: @5 Y( S8 w4 ]2 ccoutline=gray33  caxis=”cxD6D3B8″
& l, w1 `6 {- X: }3 X5 u: W+ r9 awidth=4
# ?$ @$ T  {8 g: w! P& X" c  Fspace=0
& b" B4 k4 h% Q0 rgspace=0
1 e/ ?! u" z/ L$ T4 Dsubgroup= color
2 Y* |# \' q$ Egroup=x
& [" p& M* I4 B2 T  j! \" ~3 ]& ulegend=legend1
1 C9 D, ], {: X1 y( C7 s9 q+ Yanno=range_anno ;
footnote justify=l h=1 font=swiss “  Data from **group”;
' O# G. B* l% C( |1 R! bfootnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
run;
( X' p5 b% j+ a7 xquit;
* P! _8 E& ?; ^% m  N, X  g1 r: }. V下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
1 D0 i) r% s/ k( e6 t: R1 O0 w6 z这代码是相当的复杂，调试也比较费功夫。
( X6 R" O5 `5 H& `, B* i9 `1 B
本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
There are four basic types of plots that you can create with the SGPLOT procedure:
" @$ p$ H- {" IBasic plots
" P) G6 [( \6 ?- @7 {; D; x! cscatter, series, step, band, needle, and vector plots
( [% \; O6 S& l2 c  {- ]Fit and confidence plots
loess, regression, and penalized B-spline curves, and ellipses
Distribution plots
box plots, histograms, and normal and kernel density estimates
2 Q! c% F: M' W: y; k) [6 L7 lCategorization plots
dot plots, bar charts, and line plots
2 V7 t" z3 m: J9 JNot 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 ~6 ~# ~& Q/ U) idata ex;
0 f/ D' A# \$ Ninput x y ;
/ t/ r/ y  ^! C6 x+ p8 e8 F- bcards;
+ D: P9 n0 X) v" H1 2
4 t' Y$ C! p; ]! ^2 |1 W1 X; p2 7
4 12
. z: l6 I) ?$ B" P+ v$ D: s/ O5 11
6  9
+ Y3 e! f: q( n1 m6 H. ^; v6 }7  8
;
* K. T8 U* N  T' q4 @5 ?. l2 w# ~title ;
( \: A( H$ |, Y0 j# zfootnote;
" e3 y+ O9 o( \& wproc 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;
/ r+ S# h( o8 ~+ k( `- p: @0 Wband x=x lower=7.5 upper=10  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
5 C2 x: E6 ^7 @$ L) f! @5 Jband 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;
/ x' W: D' C! ~/ I来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好