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

厚积薄发

data ex;
input x y g color $;
cards;
1 2 1  Yahoo!
1 4 2 Google
2 5 1 Yahoo!
2 8 2 Google
. Q% s7 z; }8 g' B7 O4 12  1 Yahoo!
0 V6 G. q6 M! ^4 10 2 Google
5 9  1 Yahoo!
$ F9 m. Q8 `$ w9 L5 7 2 Google
;
. J: \+ X% W2 p; M% ndata title_anno;
when=’b'; xsys=’3′; ysys=’3′; style=’solid’;
function=’move’; x=0; y=87;  output;
! I) m4 F1 {1 z9 m0 F. O" Ifunction=’bar’; x=100; y=100; color=’black’; output;
run;
) T) p  A- q& _1 Y7 G8 X5 g' N, Rdata range_anno;
& {, V/ }$ R* Cwhen=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
( v- Z9 F7 X9 ~' |function=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
9 L: Q& H" U" Y3 j8 Qfunction=’move’; x=0; y=20; output;
function=’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;
function=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
function=’move’;x=0; y=80; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
run;
data range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
function=’move’; x=0; y=20; output;
% O) Z+ n2 d- T. rfunction=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
function=’move’; x=0; y=40; output;
+ z" T/ U" n# l. @; A- h9 Jfunction=’bar’; color=”cxD6CECD”; x=100; y=40; output;
& c' F0 N* H- Z$ b; bfunction=’move’;x=0; y=60; output;
. K0 o( F9 [* T" D" B/ b5 ~3 Ifunction=’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;
# [- a& m& \" A- iset range_anno range_anno1;
% c0 Q7 {2 t4 h4 B- a" ?% Crun;
( k, x5 X7 i* y5 s% ^! KFILENAME file “c:\bussiness.png”;
GOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
1 z& E1 I& p! W7 l  H( v7 b. {- f3 w4 Ivsize=7cm hsize=7cm
ymax=8cm xmax=9cm
5 r2 i! I0 D; e  T6 ^htext=1.5   ;
6 i% }' t; v% m+ f* Raxis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
* z7 ]5 J7 I9 ~6 Gaxis2 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;
3 w) F* X+ `* _1 C# Apattern1 v=s color=’cxFF8E00′;
2 B+ |- R2 N. }8 a8 g! Epattern2 v=s color=’cx004C7A’;
) o4 B. B1 P& @4 @title j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
title2 j=l ” Internation compsdfdsfsfd”;
4 i  D6 K5 V$ a9 Y% g* dtitle3 j=l ” asdfd asdfdf dfsdfsd”;
) X) M6 ~: L5 I0 Y" l- c% l. ilegend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
7 d/ t0 W; W; b) c, c$ _shape=bar(.1in,.1in);
proc gchart data=ex anno=title_anno;
( b/ u; O& n8 Z) \/ ~/ Avbar g / discrete       type=sum
* p+ w+ C. D, P3 _2 j0 S: usumvar=y
maxis=axis1 raxis=axis2 GAXIS=axis3
coutline=gray33  caxis=”cxD6D3B8″
8 J, ?9 K4 k5 `! L6 k1 E' Pwidth=4
! }. k: I8 l  q; X0 G! K' @& x7 cspace=0
" H) C8 y. ]) J* kgspace=0
+ q! `$ k7 E1 m4 @$ k, nsubgroup= color
group=x
8 [' e$ F0 ^; Ulegend=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”;
$ U6 [% ?2 A  y3 V4 n% ^# H0 Arun;
5 A* V# @4 j3 E. rquit;
  E' V- n* B- S1 C6 K# A2 p下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
2 g( N2 g9 K; Z2 ?' W7 R& p这代码是相当的复杂，调试也比较费功夫。
& U% F/ ~- p/ S" N, z+ r
  [9 C1 _" L7 D2 Q: K本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
/ c% S# Z& K( @7 YThere are four basic types of plots that you can create with the SGPLOT procedure:
Basic plots
  e, Y& E$ c/ {& G% S; ^4 Y8 Tscatter, series, step, band, needle, and vector plots
Fit and confidence plots
loess, regression, and penalized B-spline curves, and ellipses
  L# I! n( R3 E/ @4 }  l8 CDistribution plots
8 R/ m# @9 `1 d; a7 o" z- X" Dbox plots, histograms, and normal and kernel density estimates
' a  H( R# j! OCategorization plots
' U% y0 [3 o& M* l+ o& Pdot plots, bar charts, and line plots
( j, |4 Z4 Y) a7 g. V' NNot 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

+ z% F8 a$ Y& C( [& d: N7 Z
) P2 T7 A1 ?, M2 I5 ~, K1 T* Adata ex;
input x y ;
( l, D# n0 n5 ?) ?, D. scards;
; W3 b9 Z  o1 s% z. n3 c1 2
2 7
! l1 q! s. [* w/ R. H6 n4 12
5 11
6  9
% ]9 R- [8 Z5 H' U$ l( P1 q* B7  8
6 H* Z, e, b1 W2 T) F- L;
title ;
- r/ M/ S/ w9 [: Rfootnote;
proc sgplot data=ex noautolegend;
SERIES  x=x y=y/LINEATTRS=(color=blue thickness=6) ;
2 O% ?! O" h( M1 q; e; qband x=x lower=0 upper=2.5 / OUTLINE  transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
% O5 A" [9 d9 Y! Lband x=x lower=2.5 upper=5  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
# v' q1 x: `3 j9 X9 Sband x=x lower=5 upper=7.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
' k' M% b5 y- t) @* K# C0 rband x=x lower=7.5 upper=10  / OUTLINE transparency=.7 LINEATTRS=(color=black) fillattrs=(color=orange) NOOUTLINE;
5 T4 N' R+ \  L( l- K. @: ~2 ]band x=x lower=10 upper=12.5 /OUTLINE transparency=.8 LINEATTRS=(color=black) fillattrs=(color=cxEEE3B4) NOOUTLINE;
: O& M2 T# Y. I7 H8 xyaxis 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

相当的不简单啊

秋の名山で戦

哇 太强了 效果相当好