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

厚积薄发

data ex;
6 {' J* D, |$ u; C1 h# u8 R7 xinput x y g color $;
( }' _0 o$ t- c& e0 J& F+ xcards;
6 }) U: q9 n: g* o0 v1 A9 |1 2 1  Yahoo!
! W7 f/ H3 c, \6 D/ \( h1 4 2 Google
2 5 1 Yahoo!
0 H, C( [0 z% j+ q: n. H2 8 2 Google
# m* c% w# s9 f& _4 |4 12  1 Yahoo!
4 10 2 Google
' O. ^% y" `$ b4 c2 Z6 f; G1 M5 9  1 Yahoo!
, N6 \, G' e, f5 u5 7 2 Google
;
% d+ N7 ~6 F( n& L. r# hdata title_anno;
when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
& A/ I6 i6 w. R. W! a& ~function=’move’; x=0; y=87;  output;
$ \) @' h# k; D' U: P7 K( Mfunction=’bar’; x=100; y=100; color=’black’; output;
) y4 y) T3 b  ^run;
' P' t7 ~7 h/ Vdata range_anno;
  O* R9 t: B' n  u/ Fwhen=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
0 r" U4 p! ~% k$ ^2 r) sfunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
function=’move’; x=0; y=20; output;
3 V" ?3 Z, _0 J! e. yfunction=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
. G+ F$ R: H- z3 lfunction=’move’;x=0; y=40; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
function=’move’;x=0; y=60; output;
9 J, M* k  j. U8 r& ufunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
; g! o4 L% m0 u' I. r2 Dfunction=’move’;x=0; y=80; output;
5 k7 @2 s: q. vfunction=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
( d; l: `* X) A3 Yrun;
$ w; }+ H! I, g) ~5 t7 hdata range_anno1;
" f! c$ U/ B/ ?# B+ R5 n& O! R. o& Gwhen=’b'; xsys=’1′; ysys=’1′;
" i4 J3 [6 P0 }) ?  t/ ~4 @1 f3 _1 Bfunction=’move’; x=0; y=20; output;
function=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
9 {9 c; h& J$ ^! T, Ffunction=’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;
, G" c7 k8 ~, e4 U# I, \6 @+ m# m% Gfunction=’move’;x=0; y=80; output;
' W% p4 \5 U5 w  B' H+ N0 d3 mfunction=’bar’; color=”cxD6CECD”; x=100; y=80; output;
run;
data range_anno;
) C$ {  n) E: [0 ^% y; u4 Mset range_anno range_anno1;
$ a( Q! M5 V9 v% q+ arun;
FILENAME file “c:\bussiness.png”;
GOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
ymax=8cm xmax=9cm
0 @: p% |# @: D5 xhtext=1.5   ;
2 U0 M( w3 ^3 \6 Baxis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
4 z2 |. y8 i! baxis2 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’;
! w) F: ^& {& G$ b- y6 t! Ktitle 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)
: O/ J% x! [, M! Oshape=bar(.1in,.1in);
proc gchart data=ex anno=title_anno;
4 Q, j8 g' N' c8 F8 m: U( z2 Nvbar g / discrete       type=sum
# _; m' m5 S6 ]0 }  j: Wsumvar=y
maxis=axis1 raxis=axis2 GAXIS=axis3
. t6 t# i( l% [+ A8 G& d+ [coutline=gray33  caxis=”cxD6D3B8″
' g6 u4 _2 h; t6 Ywidth=4
) P/ \# l& `9 `space=0
; B* ~7 J/ T$ a& Tgspace=0
subgroup= color
group=x
legend=legend1
- D! k" _  E/ ^anno=range_anno ;
% r2 ~: `9 `6 s4 ofootnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
2 o: v" N& s4 N- b8 `run;
quit;
4 [" K! Y- j8 h" Q; Y% a下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
这代码是相当的复杂，调试也比较费功夫。
9 y. p/ s! [5 W' E8 U; q; C( \
+ ]5 B8 v8 u5 h* e7 [) E+ a本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
There are four basic types of plots that you can create with the SGPLOT procedure:
1 c  f$ Y5 i5 `( l2 j& O" pBasic plots
1 F+ L$ u( Q1 A  ]4 U1 }scatter, series, step, band, needle, and vector plots
  {# b; F+ `6 q0 R& [Fit and confidence plots
' z* h! `2 V! K7 G3 sloess, regression, and penalized B-spline curves, and ellipses
/ J, l8 g+ D* Y3 s) C' RDistribution plots
5 s5 t0 P( p% w: I' z9 }" h+ [, vbox plots, histograms, and normal and kernel density estimates
6 `/ a, _9 U* A; @Categorization plots
. \& T  W. ], A7 K, Y0 udot plots, bar charts, and line plots
7 h7 k$ l% A/ c7 a% tNot 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


3 e, A7 j! ^" \5 ~7 l+ m  X' B2 [data ex;
input x y ;
4 r$ P& l6 R8 t% ?2 V8 o3 O# scards;
1 2
2 7
5 g+ g& V, K: E+ m4 12
1 ]5 r/ ^" }4 o* ?# Q5 11
6  9
+ D4 ~8 `3 W, S' w6 Q6 `7  8
;
title ;
footnote;
! e9 a# H, B6 J5 x2 U2 [0 ?1 uproc 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;
7 W# l: b0 s6 z3 `4 b; U9 N3 uband x=x lower=2.5 upper=5  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
8 c3 K6 H9 I% G3 M1 Kband 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;
( \, w" O  D7 ?8 H6 R; o/ Q1 j7 [' b/ s; oband x=x lower=10 upper=12.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
' y! c3 n5 X' g/ ayaxis values=(0 to 12 by 3)   min=0   max=13 valueshint;
xaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
run;
. J: m+ t$ A2 }8 w( b来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好