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

厚积薄发

data ex;
5 }9 o: V6 o- W. I9 q9 p# P- n" Binput x y g color $;
cards;
5 s" o" D! I0 {- E. b/ d; U1 2 1  Yahoo!
1 4 2 Google
2 5 1 Yahoo!
4 {7 ^! x: p- M0 J) |! b# m2 8 2 Google
2 w2 A1 S( `6 r4 T4 12  1 Yahoo!
4 10 2 Google
5 9  1 Yahoo!
) W$ p& m4 n+ d# [5 7 2 Google
% A3 W- U$ l* E5 R/ ];
" R2 B8 g& l4 L) kdata title_anno;
when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
* x7 W; D1 p) [, _function=’bar’; x=100; y=100; color=’black’; output;
run;
data range_anno;
when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
function=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
function=’move’; x=0; y=20; output;
5 |% Q# V/ Q2 J( ~; X% M5 D. mfunction=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
8 v) C3 J5 W" |2 g9 L; l7 E4 _function=’move’;x=0; y=40; output;
! ]" r& t1 T) |+ c, T. \function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
5 n' f# J* n$ Mfunction=’move’;x=0; y=60; output;
9 x' h, `( u. ~" [) o8 b. L$ `function=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
' P, X; e; b) Mfunction=’move’;x=0; y=80; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
, ]% _8 @5 i: F8 _run;
9 O( G; o. K2 ]data range_anno1;
: T) c2 ^( z) b, ^when=’b'; xsys=’1′; ysys=’1′;
! t$ S1 \, Q/ e$ w: tfunction=’move’; x=0; y=20; output;
function=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
function=’move’; x=0; y=40; output;
function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
- ?- f9 A: t5 q  R1 w6 ?0 Y, Ffunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
function=’move’;x=0; y=80; output;
function=’bar’; color=”cxD6CECD”; x=100; y=80; output;
run;
data range_anno;
5 Y0 e* R% w; E6 M; d( v% p) wset range_anno range_anno1;
% j2 Y( t- F. i3 E5 Yrun;
FILENAME file “c:\bussiness.png”;
GOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
) k+ D; `" s2 [3 P8 [ymax=8cm xmax=9cm
! h% Q! U! L0 ?  K7 S. f1 Ohtext=1.5   ;
$ e# @1 y8 Y/ L4 Y. aaxis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
: R) s+ m9 i' f4 n: S% ~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);
1 ^+ i) I- a9 Y7 s, b& _) e. c5 laxis3 major=none label=none value=none;
# e! B; b5 m$ X; x9 [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”;
8 d3 K" O4 D; \: t! e# ^) qtitle2 j=l ” Internation compsdfdsfsfd”;
title3 j=l ” asdfd asdfdf dfsdfsd”;
" J" R' q. u% Blegend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
shape=bar(.1in,.1in);
6 ?4 A+ Z6 F& N& p- D  y; i+ y/ sproc gchart data=ex anno=title_anno;
. d8 ^1 j2 g7 M7 A; N, kvbar g / discrete       type=sum
! q) |. P) l: o  B# g1 V5 Psumvar=y
maxis=axis1 raxis=axis2 GAXIS=axis3
coutline=gray33  caxis=”cxD6D3B8″
width=4
space=0
6 y3 u% m9 u. @& b& dgspace=0
5 {5 u+ [- \9 M9 c5 J+ nsubgroup= color
  d1 }4 x) s! f# e* W6 I4 U0 Hgroup=x
8 P0 W- P: w! d7 L4 }9 O  y- vlegend=legend1
6 |: O: V- B8 z1 v4 y! kanno=range_anno ;
, L3 ?# I  {. U3 Lfootnote justify=l h=1 font=swiss “  Data from **group”;
- C* K$ E  R; R* \* Pfootnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
run;
quit;
下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
+ d" ]) r" X1 ]这代码是相当的复杂，调试也比较费功夫。

本来准备在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
  M0 c" N3 X2 ?9 @1 w0 W" m0 Y/ ]* |Fit and confidence plots
3 [5 |% s$ i+ |: ~8 `+ M2 Hloess, regression, and penalized B-spline curves, and ellipses
Distribution plots
/ ^2 K9 r1 ]- g% H: |, O$ cbox plots, histograms, and normal and kernel density estimates
, S5 r) y, Q2 kCategorization plots
dot plots, bar charts, and line plots
9 N  `$ s0 R9 [3 bNot 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
  {4 {6 a# a1 h

' i7 p6 R' Z* B3 }5 B  s# [# c9 kdata ex;
input x y ;
cards;
/ [+ y9 _7 Y, s1 i1 2
7 z9 R; \0 |' E2 7
3 u! B# K6 l% U4 12
3 k' V4 i& R5 q. s, F3 o+ y) Z6 a5 11
2 H9 j8 Y: `( j7 V$ `3 f6  9
7  8
;
title ;
footnote;
proc sgplot data=ex noautolegend;
: O: z! k+ K/ W: E$ }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;
  v7 k3 v* I2 {+ d  R( R; Oband x=x lower=7.5 upper=10  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
) F5 f$ B0 @5 cband x=x lower=10 upper=12.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
* l$ k6 N, Q  m4 J1 x  C, v2 p% byaxis values=(0 to 12 by 3)   min=0   max=13 valueshint;
xaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
run;
来源：数据挖掘学院

空木葬花

非常感谢楼主！

秋の名山で戦

真心觉得是好贴  点128个赞

秋の名山で戦

哇 太强了 效果相当好

540109558

相当的不简单啊

hahaysw

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

飞雪灬无痕

学习了。。。。。。。。

老牦

顶！！！！！！！

jt202010

schnee

顶！！！！！！！