Graphical Styles for Stars

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: SHWSTAR6                                            */
 /*   TITLE: Graphical Styles for Stars                          */
 /* PRODUCT: QC                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: Shewhart Charts, Star Charts,                       */
 /*   PROCS: SHEWHART                                            */
 /*    DATA:                                                     */
 /*                                                              */
 /*    MISC:                                                     */
 /*                                                              */
 /****************************************************************/
  options ps=60 ls=80 nodate;

  data stats;
     label hour     = 'Run Number'
           paintinx = 'Average Paint Index'
           thick    = 'Paint Thickness'
           gloss    = 'Paint Gloss'
           defects  = 'Paint Defects'
           dust     = 'Dust Level'
           humid    = 'Room Humidity'
           temp     = 'Room Temperature' ;
     input hour paintinx paintinr paintinn
           thick gloss defects dust humid temp;
  cards;
  1  5.8  3.0  5  0.2550  0.6800  0.2550  0.2125  0.1700  0.5950
  2  6.2  2.0  5  0.2975  0.5950  0.0850  0.1700  0.2125  0.5525
  3  3.7  2.5  5  0.3400  0.3400  0.4250  0.2975  0.2550  0.2125
  4  3.2  6.5  5  0.3400  0.4675  0.3825  0.3485  0.2125  0.2125
  5  4.7  0.5  5  0.5100  0.4250  0.5950  0.4080  0.5100  0.4675
  6  5.2  3.0  5  0.5100  0.3400  0.6800  0.5525  0.5525  0.5525
  7  2.6  2.0  5  0.4250  0.0425  0.8500  0.5355  0.5525  0.2550
  8  2.1  1.0  5  0.3400  0.0170  0.8075  0.5950  0.5950  0.1700
  ;

  data mylimits;
     length _var_    $ 8
            _subgrp_ $ 8
            _type_   $ 8 ;
     _var_    = 'paintin';
     _subgrp_ = 'hour';
     _type_   = 'estimate';
     _limitn_ = 5;
     _sigmas_ = 3;
     _lclx_   = 2.395   ;
     _mean_   = 3.875   ;
     _uclx_   = 5.355   ;
     _lclr_   = 0.0     ;
     _r_      = 2.5625  ;
     _uclr_   = 5.4184  ;
     _stddev_ = 1.10171 ;
     output;
     run;

  title 'Variables Related to Paint Index';

  proc shewhart history=stats limits=mylimits;

     xchart paintin * hour /
        nolegend
        novangle
        readlimits
        starvertices = ( thick gloss defects dust humid temp )
        cframe       = blue
        cstars       = white
        cinfill      = empty
        cconnect     = white
        starstart    = '1:00'T
        startype     = wedge
        ;

     xchart paintin * hour /
        nolegend
        novangle
        readlimits
        starvertices = ( thick gloss defects dust humid temp )
        starstart    = '1:00'T
        startype     = radial
        cframe       = blue
        cstars       = white
        cinfill      = empty
        cconnect     = white
        ;

     xchart paintin * hour /
        nolegend
        novangle
        readlimits
        starvertices = ( thick gloss defects dust humid temp )
        starstart    = '1:00'T
        startype     = spoke
        cframe       = blue
        cstars       = white
        cinfill      = empty
        cconnect     = white
        ;

     xchart paintin * hour /
        nolegend
        novangle
        readlimits
        starvertices = ( thick gloss defects dust humid temp )
        starstart    = '1:00'T
        startype     = corona
        cframe       = blue
        cstars       = white
        cinfill      = empty
        cconnect     = white
        ;
  run;

  goptions reset=all;