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

厚积薄发

data ex;
+ B% t& W5 O# d6 ginput x y g color $;
% Y  u/ D8 P6 D& @0 ucards;
1 2 1  Yahoo!
1 4 2 Google
2 5 1 Yahoo!
2 8 2 Google
/ G9 a- T6 ~  U0 ]6 K: k3 D4 12  1 Yahoo!
4 10 2 Google
- G4 _4 N, g1 @: w+ B. X) V- e5 9  1 Yahoo!
5 7 2 Google
7 [- |8 j: S$ x2 ?;
; H* Y' u- S1 x0 Q% i: z3 fdata title_anno;
when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
function=’bar’; x=100; y=100; color=’black’; output;
run;
/ G5 _1 e9 V3 G% H" y, i( c7 |' x9 jdata range_anno;
4 P) u7 ?7 j# f6 P  h$ z9 jwhen=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
3 U8 C" y- k( Mfunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
function=’move’; x=0; y=20; output;
0 D" w3 D) l6 w6 }2 d: [9 Dfunction=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
function=’move’;x=0; y=40; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
function=’move’;x=0; y=60; output;
1 r" j) K/ r( `5 ]0 h5 q3 afunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
% n6 i8 Q/ x: X5 nfunction=’move’;x=0; y=80; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
; Z/ J, z. C! Urun;
data range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
function=’move’; x=0; y=20; output;
function=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
function=’move’; x=0; y=40; output;
! B% d3 T1 G! o  q* @% lfunction=’bar’; color=”cxD6CECD”; x=100; y=40; output;
function=’move’;x=0; y=60; output;
function=’bar’; color=”cxD6CECD”; x=100; y=60; output;
7 d8 g0 m8 {( ^function=’move’;x=0; y=80; output;
function=’bar’; color=”cxD6CECD”; x=100; y=80; output;
run;
& n8 K& b& }) S# z7 ^$ e3 ^data range_anno;
0 p& @7 _  L+ C) |2 F* M% gset range_anno range_anno1;
run;
FILENAME file “c:\bussiness.png”;
GOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
% H; P8 w# T  K1 q+ Fvsize=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);
: a: W: {% ?( B' ]& E2 [2 Caxis3 major=none label=none value=none;
pattern1 v=s color=’cxFF8E00′;
5 `9 A: N; t" l) D- u4 Jpattern2 v=s color=’cx004C7A’;
9 F$ B% t7 K' _2 f; \( F) O; d0 P: rtitle 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);
proc gchart data=ex anno=title_anno;
) K# b# Y7 \& W( jvbar g / discrete       type=sum
sumvar=y
maxis=axis1 raxis=axis2 GAXIS=axis3
# [4 |8 [: R3 S. x  Z8 Xcoutline=gray33  caxis=”cxD6D3B8″
width=4
0 G  |8 n9 l$ Q7 Bspace=0
" v7 U& d/ j: L/ [gspace=0
; @6 C1 a& L. T. K* H  x( `subgroup= color
! P4 Y/ B3 W! h$ ]group=x
legend=legend1
# ~( x0 g! h( _anno=range_anno ;
; q2 E' B  N2 Q* c9 tfootnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
run;
7 c, b5 o) P9 W5 c: Nquit;
8 W8 t3 ?" h! J* x/ q5 W/ B3 k0 k下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
8 B+ v9 J" D; F9 ~8 e  E这代码是相当的复杂，调试也比较费功夫。

* h& u' ~" S+ Y0 O' q7 @- a; \4 P本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
There are four basic types of plots that you can create with the SGPLOT procedure:
Basic plots
% O- U* y% Y$ k2 Q, P+ U: ]+ Mscatter, series, step, band, needle, and vector plots
Fit and confidence plots
5 C, C6 H" x$ Bloess, regression, and penalized B-spline curves, and ellipses
Distribution plots
box plots, histograms, and normal and kernel density estimates
Categorization plots
dot plots, bar charts, and line plots
& u5 @9 K- c! n+ x& oNot 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
/ F" K' }, {) u, Q5 B& @

5 Q* E( J7 ~* T7 n5 E- idata ex;
input x y ;
cards;
1 2
2 7
% f7 S3 P, ?0 X; B0 h- _7 ^4 12
8 P/ ^9 h# h$ q% @) I5 11
6  9
7  8
) J. P) O6 R1 q4 J, _- _! N;
5 [; o( {3 @6 \title ;
6 M9 d7 t" j9 Sfootnote;
proc sgplot data=ex noautolegend;
# G0 B9 T8 o1 ]# L5 }  _7 OSERIES  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;
- f9 V- A; P) ]3 cband x=x lower=2.5 upper=5  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
! k) z9 _( s  ~  E$ Z" Q: Eband 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;
band x=x lower=10 upper=12.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
) ?, I% W6 I9 M$ i2 T) B3 Y4 Uyaxis values=(0 to 12 by 3)   min=0   max=13 valueshint;
xaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
4 U$ |, t6 ?; t# x* [  Yrun;
4 F+ Y* Y9 }5 L, I3 L0 j- N& k% ~来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好