%let name=boys; filename odsout '.'; data my_data; format television percent5.0; input year television; datalines; 1991 .315 1992 .307 1993 .315 1994 .323 1995 .315 1996 .303 1997 .304 1998 .294 1999 .281 2000 .305 2001 .298 2002 .295 2003 .276 ; run; /* Some shared code to create the 'anno_box' data set, which annotates the axis frame, with rounded corners. */ %let cornersize=5; %include 'anno_box.sas'; goptions device=png; goptions hsize=5in vsize=4.5in; ODS LISTING CLOSE; ODS HTML path=odsout body="&name..htm" (title="Imitation of American Demographics") style=sasweb gtitle nogfootnote; goptions gunit=pct htitle=6.5pct ftitle="albany amt/bold" htext=3.5pct ftext="albany amt/bold"; goptions ctext=gray33; footnote c=blue h=.17in "Imitating graphs from 'American Demographics' feb/2004 p.36"; axis1 c=white value=(c=gray66) label=(c=black a=90 'Men 18-34 using television %') order=(.27 to .33 by .01) minor=none major=(c=purple height=-2 cells) offset=(3,3); axis2 c=white label=none value=(a=90 c=gray66) major=(c=purple height=-.5 cells) offset=(4,4); title1 link="boys_info.htm" move=(+2,+0) "Where the Boys Aren't"; title2 j=l move=(7,+0) "There has been a steady decrease in the percentage of 18-"; title3 j=l move=(7,+0) "to 34-year-old males tuning in during prime-time. Below"; title4 j=l move=(7,+0) "is the PUT (Persons Using Television %) during the Sep-"; title5 j=l move=(7,+0) "tember sweeps period for the past 12 years."; /* A simple red join line, overlaid with a simple linear regression line */ symbol1 ci=red i=join w=6 cv=red v=dot h=2.5; symbol2 ci=cxfed98e i=r w=6 v=none; proc gplot data=my_data anno=anno_box; plot television*year=2 television*year=1 / overlay vaxis=axis1 haxis=axis2 des='' name="&name"; run; quit; ODS HTML CLOSE; ODS LISTING;