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

厚积薄发

data ex;
  R' V3 r- |3 {9 V1 X! z) f/ W) `5 G# kinput x y g color $;
cards;
' T* a1 {( L5 H$ E1 2 1  Yahoo!
1 4 2 Google
2 5 1 Yahoo!
$ E, w6 H8 o  g% C2 8 2 Google
4 12  1 Yahoo!
- ~, s& t' a1 V2 [4 10 2 Google
5 9  1 Yahoo!
8 r0 }# U5 I$ H2 x4 u; r; r: J* \5 7 2 Google
& M- Q% I2 {6 d" }" M;
data title_anno;
+ N, N! X# k, }$ ^/ ]when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
function=’bar’; x=100; y=100; color=’black’; output;
6 B& L. ?5 a7 k  |, M1 qrun;
data range_anno;
when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
/ f0 D! y9 f  n1 }; gfunction=’move’; x=0; y=0; output;
2 w# o- M1 p! X* C( m- Jfunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
% B* N6 K/ ?* v# Cfunction=’move’; x=0; y=20; output;
$ W2 _& N/ C  ~: p) R) Hfunction=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
, L/ {+ g+ y6 v. @  Pfunction=’move’;x=0; y=40; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
( a5 k( v0 G' Ffunction=’move’;x=0; y=60; output;
7 L$ h* \' x# d- g0 mfunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
# m7 C" H. K$ ?: f% Ffunction=’move’;x=0; y=80; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
# P+ x( q2 D9 I: q4 Orun;
data range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
function=’move’; x=0; y=20; output;
% {& I9 Y) _7 s9 N) gfunction=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
function=’move’; x=0; y=40; output;
function=’bar’; color=”cxD6CECD”; x=100; y=40; output;
6 L9 j9 J; I1 |: x9 lfunction=’move’;x=0; y=60; output;
function=’bar’; color=”cxD6CECD”; x=100; y=60; output;
* G. A& z+ M: u% sfunction=’move’;x=0; y=80; output;
( P, @7 R2 p% ^5 c' Hfunction=’bar’; color=”cxD6CECD”; x=100; y=80; output;
* N* t" L* x3 P; T6 C# drun;
data range_anno;
set range_anno range_anno1;
; U5 D$ r% W: @* K4 `) l4 ?) |; Krun;
* h% ~7 t8 ]. v$ P, c+ Q8 iFILENAME file “c:\bussiness.png”;
GOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
- s# _: x$ s& ]) Bymax=8cm xmax=9cm
htext=1.5   ;
+ S* E8 }( ^# Q5 ~, T, {1 taxis1  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);
; T+ m7 j( t6 [axis3 major=none label=none value=none;
pattern1 v=s color=’cxFF8E00′;
- D% W: `1 u6 ~- u' i: g7 Jpattern2 v=s color=’cx004C7A’;
title j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
title2 j=l ” Internation compsdfdsfsfd”;
' V+ U& P" o! m2 Etitle3 j=l ” asdfd asdfdf dfsdfsd”;
' ]' m* D6 x1 T& Q& alegend1 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;
vbar g / discrete       type=sum
2 u- l0 A( f; e5 Hsumvar=y
maxis=axis1 raxis=axis2 GAXIS=axis3
. L3 f3 r' X  M0 R8 |coutline=gray33  caxis=”cxD6D3B8″
width=4
& E8 D, S8 S$ j/ n1 d! t" \; xspace=0
gspace=0
0 W  A% K; ^8 i$ c* u5 i! C1 Zsubgroup= color
3 _) }) m8 \. M- rgroup=x
, q' Z% i' S/ s$ blegend=legend1
& ~" S4 X, A2 q7 N5 qanno=range_anno ;
9 y" e# p& n: ifootnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
run;
, V  l$ z! [1 b/ C( ^quit;
8 n2 @7 q% V( W下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
- c) a# G* y7 x这代码是相当的复杂，调试也比较费功夫。
, P7 `$ `( h2 z4 a* f1 l
本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
3 q. W; B: A: X) Z: z* D5 uThere are four basic types of plots that you can create with the SGPLOT procedure:
Basic plots
6 z: I; g! A& b2 vscatter, series, step, band, needle, and vector plots
Fit and confidence plots
' g+ Y& k5 _) c9 c" t1 |/ T' cloess, regression, and penalized B-spline curves, and ellipses
Distribution plots
. q' L/ i& z9 P; @/ Qbox plots, histograms, and normal and kernel density estimates
; @4 {) M; c% p3 S* W  l0 s1 _6 g" UCategorization plots
. Y3 k5 c( k0 J7 Hdot plots, bar charts, and line plots
6 z: _, D4 l  ]% \: W( |9 `Not 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

* S+ j# Y$ I4 R+ X# M
: i" X% u! n- V- _$ j9 G0 K2 X% d) Ydata ex;
input x y ;
0 W) u. a1 e; Xcards;
' L) r! V; `" y' n1 2
2 7
4 12
5 11
( T' k# F1 Q+ k2 W' L- O6  9
7  8
" v. [, [! K: i+ p4 H& e;
title ;
$ ?2 _& }6 @8 H& H5 |4 ?: o% Dfootnote;
proc sgplot data=ex noautolegend;
SERIES  x=x y=y/LINEATTRS=(color=blue thickness=6) ;
; p. J* v  M1 L9 t8 O( |$ |( U0 Gband x=x lower=0 upper=2.5 / OUTLINE  transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
$ ?1 ^% b% E( R) M- r" z) hband 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;
/ j5 q+ F) r, ~( Y. a( Y6 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;
xaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
run;
来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好