Default and Wedge Star Displays

 /****************************************************************/
 /*          S A S   S A M P L E   L I B R A R Y                 */
 /*                                                              */
 /*    NAME: SHWSTAR2                                            */
 /*   TITLE: Default and Wedge Star Displays                     */
 /* PRODUCT: QC                                                  */
 /*  SYSTEM: ALL                                                 */
 /*    KEYS: Shewhart Charts, Star Charts,                       */
 /*   PROCS: SHEWHART                                            */
 /*    DATA:                                                     */
 /*                                                              */
 /*    MISC: Uses star facility in PROC SHEWHART to display the  */
 /*          relationship between a process variable (paint      */
 /*          index) and six related quality and environmental    */
 /*          variables.                                          */
 /*                                                              */
 /*          The STARSPECS= data set is used to provide the      */
 /*          method of standardization for the quality and       */
 /*          environmental variables:                            */
 /*                                                              */
 /*          -- as a multiple of sigma (_SIGMAS_ = multiple)     */
 /*          -- as the range           (_SIGMAS_ = 0.0     )     */
 /*          -- as low and high specs  (_LSL_    = low           */
 /*                                     _USL_    = high    )     */
 /*                                                              */
 /*          Extreme points in the second display are identified */
 /*          using the starlabel=high option.                    */
 /*                                                              */
 /****************************************************************/
 options ps=60 ls=80 nodate;

 /* summary data for paint index and related variables */
data stats;
   input hour paintinx paintinr paintinn
         thick gloss defects dust humid temp;
   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' ;
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
;

 /* pre-specified control limits for paint index */
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;

 /*---vertex variable information---*/
data myspecs;
   length _VAR_     $8
          _LABEL_   $16 ;
input _VAR_ _LABEL_  _LSPOKE_ _SIGMAS_ _LSL_ _USL_ ;
cards;
dust     Dust         2  3.0   .     .
humid    Humidity     2  0.0   .     .
temp     Temperature  2  0.0   .     .
thick    Thickness    1   .   0.25  0.50
gloss    Gloss        1   .   0.02  0.70
defects  Defects      1   .   0.07  0.80
;

 /*---create chart using default polygon style for stars---*/
symbol1 v=none l=1;
title 'Variables Related to Paint Index';


 /*---wedge style for stars and reference circle---*/
proc shewhart history=stats limits=mylimits;
   xchart paintin * hour /
      nolegend
      novangle
      readlimits
      cframe       = gray
      cconnect     = white
      cinfill      = empty

      /*---star options---*/
      startype     = wedge
      starvertices = ( thick gloss defects dust humid temp )
      cstars       = white
      starcircles  = 0.0 1.0
      lstarcircles = 2   2
      cstarcircles = white
      starstart    = -30
      starlegend   = degrees
      starspecs    = myspecs
      ;
run;

 /*---wedge style for stars and reference circle---*/
proc shewhart history=stats limits=mylimits;
   xchart paintin * hour /
      nolegend
      novangle
      readlimits
      cframe       = gray
      cconnect     = white
      cinfill      = empty

      /*---star options---*/
      startype     = wedge
      starvertices = ( thick gloss defects dust humid temp )
      cstars       = white
      starcircles  = 0.0 1.0
      lstarcircles = 2   2
      cstarcircles = white
      starstart    = -30
      starlegend   = degrees
      starspecs    = myspecs
      starlabel    = high
      ;
run;

goptions reset=all;