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

厚积薄发

data ex;
input x y g color $;
cards;
/ f( d  E3 t1 @/ @; n& A1 2 1  Yahoo!
2 k: V3 r: F5 U8 X) i' p1 4 2 Google
* w0 M* c# z. k+ W, A! ?2 5 1 Yahoo!
' n6 B* e% Q  F! g/ `2 8 2 Google
4 12  1 Yahoo!
: D2 T$ j9 J1 U2 k. Z4 10 2 Google
5 9  1 Yahoo!
5 7 2 Google
;
data title_anno;
when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
: i9 M7 ?  G  d8 E7 mfunction=’bar’; x=100; y=100; color=’black’; output;
1 N" U" p/ Y4 P' N7 trun;
$ n1 j( o6 x1 Z5 y4 Xdata range_anno;
when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
+ I" ~$ e: p+ d0 j9 V0 Rfunction=’move’; x=0; y=0; output;
9 j2 _* r  `/ b% I, |( e8 |  mfunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
function=’move’; x=0; y=20; output;
function=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
$ P6 ^! ?% P& }' e. _function=’move’;x=0; y=40; output;
) |3 x2 `. e! N1 K* |0 Yfunction=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
function=’move’;x=0; y=60; output;
5 b- m% _/ ]0 h. a/ u5 G+ o  Lfunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
' a6 ?4 {& ?( [. d4 X' pfunction=’move’;x=0; y=80; output;
( k' j. W7 r8 @4 l/ _+ u, Z2 P. gfunction=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
  a8 C4 Y& @0 frun;
data range_anno1;
& @6 y0 @5 a8 A7 v+ \, A7 B$ fwhen=’b'; xsys=’1′; ysys=’1′;
function=’move’; x=0; y=20; output;
function=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
8 q7 N0 z' f/ u' ?" Nfunction=’move’; x=0; y=40; output;
* T: b! w9 M* G. g4 zfunction=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
: g/ F# a% C$ K0 z; mfunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
: H4 e$ m8 J( L3 n# lfunction=’move’;x=0; y=80; output;
% F0 [* q0 h) Jfunction=’bar’; color=”cxD6CECD”; x=100; y=80; output;
run;
data range_anno;
. j- r7 z3 s3 U' i. E: Eset range_anno range_anno1;
  g' P8 d$ K8 T/ h( Trun;
- I9 ]+ h; m$ w0 ]6 \" [5 C. m( BFILENAME file “c:\bussiness.png”;
GOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
ymax=8cm xmax=9cm
htext=1.5   ;
axis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
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);
! ~9 ]7 a! u8 T. S# H/ faxis3 major=none label=none value=none;
( @4 l2 j- ^, }8 I$ E9 Mpattern1 v=s color=’cxFF8E00′;
& Q  @% O" Q, b1 A! B2 _" R# Zpattern2 v=s color=’cx004C7A’;
$ _& I: @5 K; f0 Ptitle j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
  j) ^! ^" S1 z4 Otitle2 j=l ” Internation compsdfdsfsfd”;
. g; V  Q9 t* @  n6 ^title3 j=l ” asdfd asdfdf dfsdfsd”;
1 w3 _- \; X3 ]. t) ]legend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
1 I" A3 x2 j1 L# j; m3 Ishape=bar(.1in,.1in);
( g2 c8 r4 B5 W- lproc gchart data=ex anno=title_anno;
+ |( w2 u* m( q* b4 g6 l2 T/ pvbar g / discrete       type=sum
sumvar=y
1 I1 P5 Y1 b6 X5 F! D# u+ Y) }' hmaxis=axis1 raxis=axis2 GAXIS=axis3
) G5 P) `1 ~6 }) ], ]4 Kcoutline=gray33  caxis=”cxD6D3B8″
, t1 W2 [" O" t; Uwidth=4
* l( o# E* r2 Bspace=0
  Y: c7 y  e6 x7 `; c; r+ n$ Zgspace=0
subgroup= color
group=x
legend=legend1
! q- @5 n3 L0 w) Q  I% V7 ^anno=range_anno ;
6 J  q- P; Z$ d( u0 L6 ufootnote justify=l h=1 font=swiss “  Data from **group”;
7 z7 \6 q8 M2 l# Y& xfootnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
5 h2 R, A( v1 Rrun;
quit;
下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
6 S1 J5 }& u7 {1 {/ s1 A3 ~: Q这代码是相当的复杂，调试也比较费功夫。
( ~1 p3 B- C5 H: T* {
/ B$ {" E# g! R# D' ?/ W2 ?本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
There are four basic types of plots that you can create with the SGPLOT procedure:
Basic plots
2 ^! z$ g; t" S; v$ ]* Ascatter, series, step, band, needle, and vector plots
Fit and confidence plots
loess, regression, and penalized B-spline curves, and ellipses
Distribution plots
box plots, histograms, and normal and kernel density estimates
Categorization plots
# ~+ t. g. b$ |5 i3 O/ p* Idot plots, bar charts, and line plots
! T: j- X# D% K$ H- {2 s  DNot 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

' e8 a- Y2 {9 \, q+ t" U# F# t
data ex;
input x y ;
cards;
% w% g0 Q; U4 j1 Y3 i+ a3 Z% d8 E1 2
2 7
' _. i4 e) z: M2 e4 12
8 m0 ^* ~. t2 n. Z' N+ a& Q5 11
6  9
( f5 ]/ W; p( {9 d2 ?: \7  8
% k0 U9 Y# b4 X7 o;
title ;
footnote;
  F# a( g4 B7 u6 M  Y! v7 E2 tproc sgplot data=ex noautolegend;
SERIES  x=x y=y/LINEATTRS=(color=blue thickness=6) ;
' F8 F- B1 ~) Nband 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;
& v0 s; n7 s( q' _4 q5 }band x=x lower=7.5 upper=10  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
' r3 G7 p( A  R! 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;
: ]! V$ F7 M' o$ Y$ s6 H( V0 A6 b8 Nxaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
& ?; ?, I- b5 B  Krun;
+ Q- O5 W( P. |+ U+ E来源：数据挖掘学院

空木葬花

非常感谢楼主！

秋の名山で戦

真心觉得是好贴  点128个赞

秋の名山で戦

哇 太强了 效果相当好

540109558

相当的不简单啊

hahaysw

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

飞雪灬无痕

学习了。。。。。。。。

老牦

顶！！！！！！！

jt202010

schnee

顶！！！！！！！