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

厚积薄发

data ex;
8 f- n+ K& a1 t0 h+ @& S) Uinput x y g color $;
cards;
1 2 1  Yahoo!
1 p8 P; E" c" `4 `+ b- j1 a1 4 2 Google
: }9 O& N1 h0 n) q2 l2 5 1 Yahoo!
2 8 2 Google
* K. g! S7 v' u2 X  z+ M4 12  1 Yahoo!
4 10 2 Google
0 [8 F! A; c2 x% E( B5 9  1 Yahoo!
5 7 2 Google
;
data title_anno;
when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
; D. r, O  K* i# Y" Kfunction=’move’; x=0; y=87;  output;
! ~$ a& a& b: [2 c6 O; ufunction=’bar’; x=100; y=100; color=’black’; output;
' p! }: b8 d' V$ l8 x/ nrun;
data range_anno;
" x/ @9 m$ `, Gwhen=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
+ V: }2 B" W- f+ t, tfunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
  k; i8 z4 d, J) y5 ^function=’move’; x=0; y=20; output;
, `3 q$ N9 Z. A/ J8 Tfunction=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
function=’move’;x=0; y=40; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
2 f3 ^7 D6 K. {" n. ~  l0 ], {: qfunction=’move’;x=0; y=60; output;
0 S9 b# n8 T& N$ E7 yfunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
1 Y. P2 s! P! L- ufunction=’move’;x=0; y=80; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
run;
data range_anno1;
- x* @( S: d. B! Wwhen=’b'; xsys=’1′; ysys=’1′;
function=’move’; x=0; y=20; output;
function=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
# y! M! ^% A: Q8 W& j$ Lfunction=’move’; x=0; y=40; output;
function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
. i( k3 |7 E+ a% d; l2 E) wfunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
function=’move’;x=0; y=80; output;
6 o% p# U) ^! ?4 X! e* f2 Qfunction=’bar’; color=”cxD6CECD”; x=100; y=80; output;
& i- V4 W6 X7 R: `2 yrun;
data range_anno;
set range_anno range_anno1;
5 E( K1 Y. I  O* Y: Frun;
FILENAME file “c:\bussiness.png”;
) C/ I: y" `( E4 xGOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
ymax=8cm xmax=9cm
  b4 I9 g. J0 g6 z/ Qhtext=1.5   ;
axis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
, ?5 a/ U  B7 x! q/ l! r% ]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);
) n# I. F. @9 S) p. waxis3 major=none label=none value=none;
0 h% t! y/ e/ M! ^+ P' g4 Opattern1 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”;
legend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
shape=bar(.1in,.1in);
  N; j2 r/ s% B' ~: hproc gchart data=ex anno=title_anno;
6 i3 d' T1 Z( z& l) P/ `9 I* e' xvbar g / discrete       type=sum
+ k/ X6 t2 D  u" q$ S2 xsumvar=y
8 C' ~- V- D( w: Xmaxis=axis1 raxis=axis2 GAXIS=axis3
coutline=gray33  caxis=”cxD6D3B8″
" X  S$ {- M6 z. L4 nwidth=4
space=0
2 U1 E! s" o3 [" U' ugspace=0
subgroup= color
* F  [% H2 e& ^# q9 Vgroup=x
) l/ s5 ^6 p. S3 |legend=legend1
anno=range_anno ;
footnote justify=l h=1 font=swiss “  Data from **group”;
4 k# b5 i/ Q2 T6 A# v8 Jfootnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
run;
quit;
4 L+ h, T# X/ o& Z: l$ c7 O! b下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
7 b/ K; q4 K2 t) d" w' s这代码是相当的复杂，调试也比较费功夫。
: T$ }9 O  E$ L4 G) z3 J) Q3 n+ Q
本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
There are four basic types of plots that you can create with the SGPLOT procedure:
$ }% v9 d; B0 G* Q8 `/ ^Basic plots
' L8 I' T$ j0 B+ y2 _% qscatter, series, step, band, needle, and vector plots
Fit and confidence plots
* q% f) |- i4 p5 n( W/ jloess, regression, and penalized B-spline curves, and ellipses
( [* I, j: Y; \, Q' t3 HDistribution plots
8 H5 g% |1 ~; a5 m/ Ibox plots, histograms, and normal and kernel density estimates
Categorization plots
& i4 ^# k6 e2 ~6 k0 G/ r: Xdot plots, bar charts, and line plots
& Z2 @; F% ?& G: B& ^" W' b; XNot 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

+ w( k3 y- {/ T- Z! v4 `4 y
- }1 g3 J9 H: e: W1 v$ ndata ex;
- {$ }5 M: u* X& L: A1 h' P' c6 hinput x y ;
1 p* a% j7 D0 z; Dcards;
- b7 k+ k7 |& e1 2
2 x2 w% N8 U8 W3 R# W& t( x3 Y2 7
4 12
5 11
6  9
7  8
) e* h7 L% x$ _; d  }1 q;
title ;
footnote;
proc sgplot data=ex noautolegend;
, G1 }) Y/ |% x% Q/ l. mSERIES  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;
( |4 z4 S' j- |3 F. Uband 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;
) V- l2 x6 \2 x% j( |  ^! a/ Eband x=x lower=10 upper=12.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
/ b$ P6 e: F, Q9 F0 X3 h7 Nyaxis values=(0 to 12 by 3)   min=0   max=13 valueshint;
& n& J9 J7 z$ O+ N# j) x9 K# Cxaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
6 v, l1 ~- W+ Qrun;
+ W1 {  `! s, I3 \; y3 m来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好