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

厚积薄发

data ex;
) D6 \- T% T% e, i7 Finput x y g color $;
cards;
1 2 1  Yahoo!
1 4 2 Google
2 5 1 Yahoo!
2 8 2 Google
7 L. H6 d8 |% j& D- Y" z4 12  1 Yahoo!
4 10 2 Google
5 9  1 Yahoo!
5 7 2 Google
1 E1 d% J$ `7 I/ D' ^;
data title_anno;
( [1 f, o1 L1 h5 p7 {when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
, m6 _" `! C* k& n$ e3 tfunction=’bar’; x=100; y=100; color=’black’; output;
run;
5 P& ]! x' g6 Z6 p$ R) J( P# cdata range_anno;
when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
, X  C% E& s4 K+ |+ S) v# `; Cfunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
' ~* I. c1 b& Ifunction=’move’; x=0; y=20; output;
1 L: `# j# [2 T/ A7 V" ifunction=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
function=’move’;x=0; y=40; output;
: {% Z: A4 a7 ^, {# z  V, ~" s+ zfunction=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
function=’move’;x=0; y=60; output;
4 T6 u. f$ h* f/ }* ^function=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
function=’move’;x=0; y=80; output;
& v3 W! D" ~0 m- m* z* \1 `8 Hfunction=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
run;
3 Z$ a$ C9 L/ D4 R' Bdata range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
2 c5 n, y9 x9 Jfunction=’move’; x=0; y=20; output;
9 \' k* ?% S# y+ f1 X& w: ofunction=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
function=’move’; x=0; y=40; output;
. [$ y: I1 F, T% k: p: Bfunction=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
5 B' \+ `6 s+ X: ffunction=’bar’; color=”cxD6CECD”; x=100; y=60; output;
  b1 d; R+ m& Jfunction=’move’;x=0; y=80; output;
function=’bar’; color=”cxD6CECD”; x=100; y=80; output;
run;
data range_anno;
set range_anno range_anno1;
run;
6 d6 u$ F- u6 x6 D! ?. jFILENAME file “c:\bussiness.png”;
: ^* h2 o( R3 J# G5 ]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);
axis3 major=none label=none value=none;
4 R# X$ x! \6 G6 C: jpattern1 v=s color=’cxFF8E00′;
pattern2 v=s color=’cx004C7A’;
  ^  j8 S& X" D2 D$ X; [0 Xtitle 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”;
# e# L  Z  n8 s' D; |. c( Qlegend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
1 h. c2 [. w. Y. D: e7 P( ~shape=bar(.1in,.1in);
* g: _! @* [% v' \1 z: bproc gchart data=ex anno=title_anno;
vbar g / discrete       type=sum
8 j3 t& p7 O2 X$ b, [- ~7 ~; {sumvar=y
maxis=axis1 raxis=axis2 GAXIS=axis3
coutline=gray33  caxis=”cxD6D3B8″
( F  ]/ f; D9 J! D! @! {( zwidth=4
0 y% u% ]1 Z) a' C( D2 `+ Sspace=0
gspace=0
subgroup= color
group=x
legend=legend1
anno=range_anno ;
footnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
8 H4 P' l7 }: frun;
quit;
下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
. E  G4 L1 |- ?* w, ?+ O# A( Q' P这代码是相当的复杂，调试也比较费功夫。
4 C- r  d3 v. k" t# m
2 D& |+ Y4 q6 Q本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
There are four basic types of plots that you can create with the SGPLOT procedure:
Basic plots
1 ^# \: c0 q; f( f* @scatter, series, step, band, needle, and vector plots
Fit and confidence plots
loess, regression, and penalized B-spline curves, and ellipses
+ q+ {/ x3 X& g# YDistribution plots
5 f$ y) ^( r" k7 n5 @4 ~2 U; jbox plots, histograms, and normal and kernel density estimates
0 j. q- V0 S1 gCategorization plots
) K9 F7 s' V) ~5 t1 [5 wdot plots, bar charts, and line plots
2 f! `2 E3 G3 K) j( U+ q) 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 |1 a% w* i2 G" J% Q, B
& f6 Z3 R) I9 D( i2 d2 [data ex;
' r' }7 Y/ u( binput x y ;
+ {6 Q+ D% M+ B8 gcards;
5 L1 C' O! ^! k. W1 2
2 7
- B! P5 }! b; k+ n4 12
5 11
6  9
# a6 @0 J8 m2 p& ~( ?! _  \7  8
;
) Q6 U1 m" l( [. n  Ttitle ;
2 `. y/ I6 `& r. D; t$ R( s5 I6 ]footnote;
proc sgplot data=ex noautolegend;
SERIES  x=x y=y/LINEATTRS=(color=blue thickness=6) ;
2 M6 k; J8 x1 A2 z- bband 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;
band x=x lower=7.5 upper=10  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
  g  p+ L2 J( w& ]5 G& i" ~band x=x lower=10 upper=12.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
2 G- G* I9 x# x7 {( @% ayaxis values=(0 to 12 by 3)   min=0   max=13 valueshint;
xaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
& O* d, s6 |2 h. y! G! N) S6 krun;
8 i0 j' C6 ?6 A8 r来源：数据挖掘学院

空木葬花

非常感谢楼主！

秋の名山で戦

真心觉得是好贴  点128个赞

秋の名山で戦

哇 太强了 效果相当好

540109558

相当的不简单啊

hahaysw

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

飞雪灬无痕

学习了。。。。。。。。

老牦

顶！！！！！！！

jt202010

schnee

顶！！！！！！！