• Print |
• E-mail  |
• Bookmark

 /*+-------------------------------------------------------+
   |          S A S   S A M P L E   L I B R A R Y          |
   |                                                       |
   |    NAME: GCHDSCRT                                     |
   |   TITLE: GCHDSCRT-Discrete Numeric Var in a Star Chart|
   | PRODUCT: GRAPH                                        |
   |  SYSTEM: ALL                                          |
   |    KEYS: GRAPHICS GCHART                              |
   |   PROCS: GCHART                                       |
   |    DATA: INTERNAL                                     |
   |                                                       |
   | SUPPORT: GRAPHICS STAFF        UPDATE:                |
   |     REF: SAS/GRAPH REFERENCE GUIDE                    |
   +-------------------------------------------------------+*/

   /* Set the graphics environment */
goptions reset=all gunit=pct border cback=white
         colors=(black blue green red) ftext=swiss
         ftitle=swissb htext=3.5 htitle=6;

   /* Create data set REJECTS */
data rejects;
   informat date date9.;
   input site $ date badparts;
   datalines;
Sydney  01JAN1997 22
Sydney  01FEB1997 26
Sydney  01MAR1997 14
Sydney  01APR1997 18
Sydney  01MAY1997 28
Sydney  01JUN1997 22
Sydney  01JUL1997 15
Sydney  01AUG1997 18
Sydney  01SEP1997 19
Sydney  01OCT1997 15
Sydney  01NOV1997 31
Sydney  01DEC1997 23
Atlanta 01JAN1997 18
Atlanta 01FEB1997 22
Atlanta 01MAR1997 20
Atlanta 01APR1997 23
Atlanta 01MAY1997 10
Atlanta 01JUN1997 21
Atlanta 01JUL1997 29
Atlanta 01AUG1997 20
Atlanta 01SEP1997 17
Atlanta 01OCT1997 14
Atlanta 01NOV1997 16
Atlanta 01DEC1997 18
Paris   01JAN1997 13
Paris   01FEB1997 18
Paris   01MAR1997 27
Paris   01APR1997 29
Paris   01MAY1997 26
Paris   01JUN1997 20
Paris   01JUL1997 28
Paris   01AUG1997 21
Paris   01SEP1997 12
Paris   01OCT1997  8
Paris   01NOV1997 12
Paris   01DEC1997 19
;

   /* Define title and footnote for chart */
title 'Rejected Parts';
footnote h=3 j=r 'GCHDSCRT(a) ';

   /* Generate star chart */
proc gchart data=rejects;
   format date worddate3.;
   star date / discrete
               sumvar=badparts
               noheading
               fill=s;
run;

      /* Define new footnote for chart */
   footnote h=3 j=r 'GCHDSCRT(b) ';

      /* Generate second star chart */
   star date / discrete
               sumvar=badparts
               noconnect
               noheading
               coutline=red;
run;
quit;

Operating System and Release Information