%let name=savings;
filename odsout '.';

data work.savings; 
input line date date7. value; 
format date year.; 
format value percent5.0; 
cards; 
1 01jan90 .095
1 24dec00 .01
2 01jan90 .075
2 01feb90 .079
2 01mar90 .078
2 01apr90 .081
2 01may90 .079
2 01jun90 .082
2 01jul90 .080
2 01aug90 .081
2 01sep90 .079
2 01oct90 .080
2 01nov90 .078
2 01dec90 .081
2 01jan91 .080
2 01feb91 .081
2 01mar91 .083
2 01apr91 .086
2 01may91 .085
2 01jun91 .087
2 01jul91 .083
2 01aug91 .079
2 01sep91 .081
2 01oct91 .082
2 01nov91 .080
2 01dec91 .081
2 01jan92 .080
2 01feb92 .082
2 01mar92 .081
2 01apr92 .082
2 01may92 .083
2 01jun92 .084
2 01jul92 .083
2 01aug92 .083
2 01sep92 .081
2 01oct92 .082
2 01nov92 .105
2 01dec92 .081
2 01jan93 .07
2 01feb93 .07
2 01mar93 .07
2 01apr93 .075
2 01may93 .075
2 01jun93 .080
2 01jul93 .072
2 01aug93 .074
2 01sep93 .071
2 01oct93 .073
2 01nov93 .071
2 01dec93 .073
2 01jan94 .06
2 01feb94 .08
2 01mar94 .05
2 01apr94 .055
2 01may94 .065
2 01jun94 .050
2 01jul94 .062
2 01aug94 .064
2 01sep94 .061
2 01oct94 .063
2 01nov94 .061
2 01dec94 .050
2 01jan95 .051
2 01feb95 .052
2 01mar95 .053
2 01apr95 .051
2 01may95 .053
2 01jun95 .050
2 01jul95 .051
2 01aug95 .041
2 01sep95 .042
2 01oct95 .043
2 01nov95 .041
2 01dec95 .040
2 01feb96 .048
2 01mar96 .047
2 01apr96 .048
2 01may96 .046
2 01jun96 .046
2 01jul96 .045
2 01aug96 .046
2 01sep96 .043
2 01oct96 .044
2 01nov96 .042
2 01dec96 .039
2 01jan97 .041
2 01feb97 .040
2 01mar97 .041
2 01apr97 .042
2 01may97 .041
2 01jun97 .042
2 01jul97 .041
2 01aug97 .042
2 01sep97 .041
2 01oct97 .040
2 01nov97 .039
2 01dec97 .038
2 01jan98 .040
2 01feb98 .040
2 01mar98 .040
2 01apr98 .042
2 01may98 .042
2 01jun98 .043
2 01jul98 .043
2 01aug98 .044
2 01sep98 .044
2 01oct98 .043
2 01nov98 .042
2 01dec98 .043
2 01jan99 .040
2 01feb99 .042
2 01mar99 .041
2 01apr99 .040
2 01may99 .038
2 01jun99 .034
2 01jul99 .037
2 01aug99 .033
2 01sep99 .028
2 01oct99 .023
2 01nov99 .021
2 01dec99 .018
2 01jan00 .017
2 01feb00 -.003
2 01mar00 .001
2 01apr00 .002
2 01may00 -.003
2 01jun00 -.002
2 01jul00 -.003
2 01aug00 -.006
2 01sep00 -.003
2 01oct00 -.007
2 01nov00 -.010
2 01dec00 -.013
2 24dec00 -.015
; 
run; 

symbol1 interpol=join color=black width=3 l=2;
symbol2 interpol=join color=red width=3;

goptions cback=white gunit=pct htext=3.5 ftext="arial/bo";

axis1 
label=none minor=none
value=(angle=40)
order=('01jan90'd to '01jan01'd by year)
;

axis2 order=(-.02 to .12 by .02) label=none minor=none;


data work.myanno;
   length  function style $ 12;
   xsys='2'; ysys='2'; hsys='3'; when='a';

   /* Add a text label to look like a title */
   function='label'; x='01may95'd; style='"arial/bo"'; color='white'; position='B';
   y=.11; size=5.5; text='U.S. Personal Savings Rate'; output;
   y=.098; size=4.5; text='1990 - 2001'; output;
   

   /* identify 2 diagonal corners, and image will go between them */
   function='move'; x='01mar90'd; y=-.017; output;
   function='image'; x=x+1100; y=y+.01; imgpath='zealllc_logo.jpg'; style='fit'; 
   html='title="ZealLLC" href="http://www.ZealLLC.com"';
   output;

   function='move'; x='01nov90'd; y=.011; output;
   function='image'; x=x+900; y=y+.03; imgpath='break_bank.jpg'; style='fit'; 
   html='title="ZealLLC" href="http://www.ZealLLC.com"';
   output;

   function='move'; x='01jan98'd; y=.06; output;
   function='image'; x=x+500; y=y+.03; imgpath='rob_bank.jpg'; style='fit'; 
   html='title="ZealLLC" href="http://www.ZealLLC.com"';
   output;

run;


 GOPTIONS DEVICE=png;
 
 ODS LISTING CLOSE;
 ODS HTML path=odsout body="&name..htm"
 (title="GPLOT with annotated images")
 gtitle nogfootnote
 style=d3d
 ;
 goptions border;

footnote link="http://www.gold-eagle.com/gold_digest_01/hamilton040901.html" 
  "Imitation of plot in http://www.gold-eagle.com/gold_digest_01/hamilton040901.html";

proc gplot data=work.savings anno=work.myanno; 
plot value*date=line / cframe=cxC1C1C1 nolegend vaxis=axis2 haxis=axis1 vref=0 des="" name="&name"; run; 

 quit;
 ODS HTML CLOSE;
 ODS LISTING;