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

厚积薄发

data ex;
input x y g color $;
cards;
/ \6 u9 v: y: w- }1 2 1  Yahoo!
+ C/ Y% {9 J! b2 `# R1 4 2 Google
7 Z- R6 Q8 M( T- d1 ]9 v2 5 1 Yahoo!
2 8 2 Google
4 12  1 Yahoo!
4 10 2 Google
5 9  1 Yahoo!
5 7 2 Google
;
; o% r" P; W/ O  _( E( q5 sdata title_anno;
$ r& F1 |  r  mwhen=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
7 S7 P6 m# H& K. r  F' }' P$ Rfunction=’bar’; x=100; y=100; color=’black’; output;
7 E, k6 h  l7 o- V+ c4 d8 Zrun;
data range_anno;
when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
5 W1 s% r9 j3 r# efunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
5 w0 n* W# ~# {8 f; U0 T0 Ufunction=’move’; x=0; y=20; output;
function=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
0 ]: G# r) F! L4 r0 ~5 Bfunction=’move’;x=0; y=40; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
function=’move’;x=0; y=60; output;
2 v3 A# X( S, ]  efunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
function=’move’;x=0; y=80; output;
9 }' f8 i: O% ?- c/ V2 Mfunction=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
run;
data range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
* O! P& A$ h+ d# Rfunction=’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;
function=’bar’; color=”cxD6CECD”; x=100; y=60; output;
1 V. U( P2 i$ K& K7 ifunction=’move’;x=0; y=80; output;
function=’bar’; color=”cxD6CECD”; x=100; y=80; output;
run;
+ D5 ^$ W3 S" X7 ^; G: bdata range_anno;
( }9 V- d. A! v# T/ I8 Gset range_anno range_anno1;
% n1 s% i. @7 R' U+ m0 lrun;
FILENAME file “c:\bussiness.png”;
GOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
vsize=7cm hsize=7cm
" F- l0 z" L6 g" m) ?ymax=8cm xmax=9cm
htext=1.5   ;
, H4 x) ?8 A( o. Naxis1  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);
/ p! j! Q/ G0 K4 b. i7 |axis3 major=none label=none value=none;
pattern1 v=s color=’cxFF8E00′;
4 w) ]6 A6 S9 Mpattern2 v=s color=’cx004C7A’;
  I! z( a( Y( J/ ytitle j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
title2 j=l ” Internation compsdfdsfsfd”;
% l# W; E" ?1 t# ftitle3 j=l ” asdfd asdfdf dfsdfsd”;
legend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
: t) }$ ]5 Q  _' e/ I% nshape=bar(.1in,.1in);
$ ]: _+ X5 M- f) B5 X, {proc gchart data=ex anno=title_anno;
# G& v' f$ ?6 G2 Q. u) w! Z2 Uvbar g / discrete       type=sum
" l8 Y0 o8 }) msumvar=y
maxis=axis1 raxis=axis2 GAXIS=axis3
coutline=gray33  caxis=”cxD6D3B8″
width=4
space=0
" l7 z3 k/ X& V" F+ R; Z( Egspace=0
subgroup= color
$ S+ P0 C, u/ g' o; q8 vgroup=x
9 r* K4 _' c+ N, X5 }legend=legend1
- `2 i0 o9 `  C9 g7 Aanno=range_anno ;
; Y- h; t7 U# \: dfootnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
, g/ |0 O5 H9 y8 h& ]+ ~7 Srun;
5 z/ B% U) h" G7 q  qquit;
下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
, e. o. Q0 A: G' G这代码是相当的复杂，调试也比较费功夫。
  E- O( b" h2 e% F# F1 B2 V
本来准备在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
. @* ?7 y* J. ], [' b+ |Fit and confidence plots
loess, regression, and penalized B-spline curves, and ellipses
  A: I4 S$ [  n% Z# J6 Z3 ?6 XDistribution plots
$ [5 l, [$ @9 f& G+ }' M/ _box plots, histograms, and normal and kernel density estimates
Categorization plots
dot plots, bar charts, and line plots
" S/ Q3 Y! o7 m; I7 L- INot 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

# u& y; _, `0 P3 _. W2 r# f! V
data ex;
6 N7 W# ^5 B: pinput x y ;
0 K  d6 H  P1 ~9 A1 W" ^cards;
1 2
/ c9 ^# ?2 V( |4 ?2 7
4 12
5 w) J4 M! V! d: P! S5 11
6  9
, I# n. b. b1 Z+ K5 p5 V3 D4 x7  8
: E8 q" ]6 {6 t* ^9 J$ `* w$ [;
; S9 c9 M* ]2 xtitle ;
: W# \7 o( B. ^; ?4 g. c# lfootnote;
  V; v7 j* j: V; `. z, Sproc sgplot data=ex noautolegend;
/ u" V* O/ _- t% w/ SSERIES  x=x y=y/LINEATTRS=(color=blue thickness=6) ;
4 B! Q% ~7 |6 wband x=x lower=0 upper=2.5 / OUTLINE  transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
- f) C% E3 J3 @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;
# U$ M$ ~# A6 o4 C! b# \3 q' Z7 sband x=x lower=7.5 upper=10  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
. v2 V4 s4 v( l& G; ^, }; C" H2 G/ rband x=x lower=10 upper=12.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
/ ]( x. p6 l+ T8 Q" pyaxis values=(0 to 12 by 3)   min=0   max=13 valueshint;
xaxis values=(0 to 8 by 2)   min=0   max=8 valueshint;
run;
. H/ n; A7 T$ ?, Q) e2 E来源：数据挖掘学院

平平凡凡的我

不错的东东

schnee

顶！！！！！！！

jt202010

老牦

顶！！！！！！！

飞雪灬无痕

学习了。。。。。。。。

hahaysw

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

540109558

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好