数学建模社区-数学中国

标题: 用SAS实现商业周刊经典风格 对绘图背景进行隔行填色 [打印本页]

---

作者: 厚积薄发    时间: 2011-6-7 20:16
标题: 用SAS实现商业周刊经典风格 对绘图背景进行隔行填色
data ex;
+ t. K9 Z" [+ h7 N. {; O7 x8 O6 Zinput x y g color $;
cards;
4 W2 n* V1 R/ T! A/ a) @1 2 1  Yahoo!
. e. _, z) ?7 U$ b1 4 2 Google
2 5 1 Yahoo!
2 8 2 Google
4 12  1 Yahoo!
4 10 2 Google
5 9  1 Yahoo!
+ U# @7 G7 ]3 {  t$ o  E. \5 7 2 Google
' N5 }3 Y8 O! [' ~# a$ F8 G/ @$ l;
8 c# w! x0 ^! Z  udata 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;
data range_anno;
when=’b'; xsys=’1′; ysys=’1′; style=’solid’;
function=’move’; x=0; y=0; output;
7 c& Z4 E1 _! s0 z$ p# i, ~- A* Hfunction=’bar’;  x=100; y=20; color=”cxFFFBDD”;output;
! r+ ^/ P" Z* v( D& {4 qfunction=’move’; x=0; y=20; output;
) R8 J$ o9 P: d7 J$ Kfunction=’bar’; color=”cxEEE3B4″; x=100; y=40; output;
) S# z9 @; Q  _9 v6 Mfunction=’move’;x=0; y=40; output;
function=’bar’; color=”cxFFFBDD”; x=100; y=60; output;
function=’move’;x=0; y=60; output;
+ C8 Q1 |" a6 {3 _" rfunction=’bar’; color=”cxEEE3B4″; x=100; y=80; output;
function=’move’;x=0; y=80; output;
2 R1 a9 G6 R3 x8 w6 Tfunction=’bar’; color=”cxFFFBDD”; x=100; y=100; output;
4 L) |- K% q7 D" Zrun;
3 Q/ n# Z, y. [, G+ }8 cdata range_anno1;
when=’b'; xsys=’1′; ysys=’1′;
function=’move’; x=0; y=20; output;
' B- b  L. T$ @1 W$ K( {, Gfunction=’bar’;  x=100; y=20; color=”cxD6CECD”;output;
function=’move’; x=0; y=40; output;
; o6 P1 r+ N) k& I! ~- Xfunction=’bar’; color=”cxD6CECD”; x=100; y=40; output;
  }6 Q( Y4 F9 rfunction=’move’;x=0; y=60; output;
function=’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;
set range_anno range_anno1;
run;
FILENAME file “c:\bussiness.png”;
GOPTIONS reset=all noborder  Cback=”cxEEE3B4″ device=png  gsfname=file
& e; H1 ^0 r* b: g5 Bvsize=7cm hsize=7cm
ymax=8cm xmax=9cm
htext=1.5   ;
) w" ~5 x+ k* r, M% Y( haxis1  major=none width=2 label=none  REFLABEL=none value=(h=1 color=black “Q1″ “Q2″ “Q3″ “Q4″ ) offset=(4,4);
/ K9 A8 a% j8 {1 t2 c8 U' saxis2 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;
pattern1 v=s color=’cxFF8E00′;
pattern2 v=s color=’cx004C7A’;
title j=l BCOLOR=black  COLOR=white h=3.5 font=CENTB  ” Bussniess weekly style”;
% {4 }% z/ i+ \. z1 q" O, atitle2 j=l ” Internation compsdfdsfsfd”;
title3 j=l ” asdfd asdfdf dfsdfsd”;
3 v& o" C# _6 E6 ^& i* d" Z0 \3 [legend1 label=none value=(HEIGHT=1.2 ‘Yahoo!’ ‘Google’ )  POSITION=(inside middle )  OFFSET=(-11,2.5)
shape=bar(.1in,.1in);
  P; w; u4 L) W- l, uproc gchart data=ex anno=title_anno;
& Z7 Y) V/ Z4 d) V* E0 J0 fvbar g / discrete       type=sum
! {# d: ]/ T; @6 Dsumvar=y
) Y5 r( w7 ^- Q6 h3 E9 ?maxis=axis1 raxis=axis2 GAXIS=axis3
. ~+ v3 p6 g  `  ccoutline=gray33  caxis=”cxD6D3B8″
+ C) N3 N9 v4 n: {width=4
space=0
( e, l* L; W" {3 h/ D% _gspace=0
* @, f  @3 n1 U# m2 F: isubgroup= color
6 K$ t0 O$ @4 c( w+ H& `9 egroup=x
legend=legend1
anno=range_anno ;
% C" Q8 o. J# d4 Y+ h$ i' Lfootnote justify=l h=1 font=swiss “  Data from **group”;
footnote2 justify=l h=1 font=swiss “  http://sxlion.blog.sohu.com”;
, O! \! \* S; j* K# _6 zrun;
# v4 f0 P. y- r$ l$ fquit;
下面是excelpro博客介绍的经典商业周刊风格的图表，对比一下相差无几。
这代码是相当的复杂，调试也比较费功夫。

  q" Z/ ]" I8 S+ I本来准备在sgplot的band语句画区域作为背景来实现的，但是由于存在bar图与band不兼容的情况，于是只好转向anno了。见SAS公司详细说明。
There are four basic types of plots that you can create with the SGPLOT procedure:
; i+ T4 G' L9 [Basic plots
scatter, series, step, band, needle, and vector plots
; \0 H' k, w' J  u. S, }& i" \Fit and confidence plots
) v' i3 r: `2 t4 h8 j* B: ploess, regression, and penalized B-spline curves, and ellipses
Distribution plots
9 |' v, M0 p5 z4 Q3 qbox plots, histograms, and normal and kernel density estimates
" K" e: n5 a8 X! w2 p/ WCategorization plots
! L8 e+ G3 {6 Q: e2 f) e; hdot plots, bar charts, and line plots
; t- W; k) l) H; o5 Z4 d3 JNot 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

5 d" w7 Y/ M0 Q" \# H3 n8 H$ C
data ex;
input x y ;
cards;
" O# [$ V# P2 F0 }8 H4 f! N1 2
2 7
- h5 h/ H, h# r" y$ z4 12
5 11
6  9
) `+ `3 ?% j, ~: K! z3 n# m2 l7  8
% k) G$ h4 S. p& ~* D;
title ;
9 i- N5 e" n2 H  b% efootnote;
proc sgplot data=ex noautolegend;
) |2 X8 A  G2 U- N# O# NSERIES  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;
. Z/ e6 A7 N* t; T6 Y! J# Eband 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;
4 h) u% b1 K0 L, G- U/ iband 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;
5 ]. L- _+ ?; S5 [% X1 h2 ]来源：数据挖掘学院

---

作者: 平平凡凡的我    时间: 2011-12-30 14:34
不错的东东

---

作者: alair003    时间: 2012-2-6 11:04
看看，肯定能学到不少东西~！~！~@！~！~！~！~8348932838256931

---

作者: schnee    时间: 2012-2-6 16:53
顶！！！！！！！

---

作者: jt202010    时间: 2012-2-19 10:45

---

作者: 老牦    时间: 2012-2-19 23:10
顶！！！！！！！

---

作者: 飞雪灬无痕    时间: 2012-3-4 19:51
学习了。。。。。。。。

---

作者: hahaysw    时间: 2012-3-10 09:53
不错的东西，数学中国做的图相当好看啊！

---

作者: 540109558    时间: 2012-3-10 12:56
相当的不简单啊

---

作者: 秋の名山で戦    时间: 2014-1-16 22:20
哇 太强了 效果相当好

---

作者: 秋の名山で戦    时间: 2014-1-16 22:24
真心觉得是好贴  点128个赞

---

作者: 空木葬花    时间: 2014-8-16 17:07
非常感谢楼主！

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5