Constructing Multi-Vari Charts

/****************************************************************/
/*          S A S   S A M P L E   L I B R A R Y                 */
/*                                                              */
/*    NAME: SHWMULTI                                            */
/*   TITLE: Constructing Multi-Vari Charts                      */
/* PRODUCT: QC                                                  */
/*  SYSTEM: ALL                                                 */
/*    KEYS: Shewhart Charts, Box Charts,                        */
/*   PROCS: SHEWHART                                            */
/*    DATA:                                                     */
/*                                                              */
/*     REF: SAS/QC Software:  Usage and Reference, Version 6,   */
/*          First Edition, Volume 1 and Volume 2                */
/*    MISC:                                                     */
/*                                                              */
/****************************************************************/

data Parm;
   length _phase_ $ 5 Wafer $ 2 Position $ 1;
   input  _phase_ $  &  Wafer $ &  Position $  Measure ;
   datalines;
   Lot A      01         L        2.42435
   Lot A      01         B        2.44150
   Lot A      01         C        2.42143
   Lot A      01         T        2.44960
   Lot A      01         R        2.50050
   Lot A      02         L        2.68188
   Lot A      02         B        2.57195
   Lot A      02         C        2.54678
   Lot A      02         T        2.65978
   Lot A      02         R        2.69208
   Lot A      03         L        2.18005
   Lot A      03         B        2.13593
   Lot A      03         C        2.44303
   Lot A      03         T        2.29052
   Lot A      03         R        2.25963
   Lot B      01         L        2.46573
   Lot B      01         B        2.44898
   Lot B      01         C        2.52365
   Lot B      01         T        2.74458
   Lot B      01         R        2.88328
   Lot B      02         L        2.37283
   Lot B      02         B        2.14528
   Lot B      02         C        2.53138
   Lot B      02         T        2.47408
   Lot B      02         R        2.56205
   Lot B      03         L        2.93338
   Lot B      03         B        2.32598
   Lot B      03         C        2.52888
   Lot B      03         T        2.60350
   Lot B      03         R        2.68428
   Lot C      01         L        2.31933
   Lot C      01         B        2.15562
   Lot C      01         C        2.26713
   Lot C      01         T        2.43673
   Lot C      01         R        2.45840
   Lot C      02         L        2.46623
   Lot C      02         B        2.35120
   Lot C      02         C        2.32678
   Lot C      02         T        2.59875
   Lot C      02         R        2.56035
   Lot C      03         L        2.34900
   Lot C      03         B        2.17350
   Lot C      03         C        2.36288
   Lot C      03         T        2.38133
   Lot C      03         R        2.33205
   Lot D      01         L        2.74895
   Lot D      01         B        2.52570
   Lot D      01         C        2.61165
   Lot D      01         T        2.79263
   Lot D      01         R        2.61160
   Lot D      02         L        2.41220
   Lot D      02         B        2.38597
   Lot D      02         C        2.42538
   Lot D      02         T        2.50970
   Lot D      02         R        2.45145
   Lot D      03         L        2.52815
   Lot D      03         B        2.41928
   Lot D      03         C        2.49725
   Lot D      03         T        2.51500
   Lot D      03         R        2.55745
   Lot E      01         L        2.46330
   Lot E      01         B        2.29410
   Lot E      01         C        2.26463
   Lot E      01         T        2.36445
   Lot E      01         R        2.35245
   Lot E      02         L        2.63740
   Lot E      02         B        2.15312
   Lot E      02         C        2.47823
   Lot E      02         T        2.55385
   Lot E      02         R        2.71478
   Lot E      03         L        2.42875
   Lot E      03         B        2.37200
   Lot E      03         C        2.40280
   Lot E      03         T        2.41268
   Lot E      03         R        2.37308
   Lot F      01         L        2.73357
   Lot F      01         B        2.48363
   Lot F      01         C        2.52370
   Lot F      01         T        2.70345
   Lot F      01         R        2.78958
   Lot F      02         L        2.29443
   Lot F      02         B        2.37048
   Lot F      02         C        2.39730
   Lot F      02         T        2.44975
   Lot F      02         R        2.39348
   Lot F      03         L        2.72185
   Lot F      03         B        2.37950
   Lot F      03         C        2.66283
   Lot F      03         T        2.74280
   Lot F      03         R        2.60773
   Lot G      01         L        2.80378
   Lot G      01         B        2.54238
   Lot G      01         C        2.65913
   Lot G      01         T        2.63335
   Lot G      01         R        2.81940
   Lot G      02         L        2.43683
   Lot G      02         B        2.32348
   Lot G      02         C        2.34318
   Lot G      02         T        2.37653
   Lot G      02         R        2.58920
   Lot G      03         L        2.69058
   Lot G      03         B        2.42965
   Lot G      03         C        2.66303
   Lot G      03         T        2.65913
   Lot G      03         R        2.84378
;

ods graphics off;
title 'Box-and-Whisker Display for Measured Parameter';
proc shewhart data=Parm;
   boxchart Measure*Wafer /
         nolimits
         boxstyle  = schematic
         idsymbol  = square
         readphase = all
         phaselegend
         nolegend;
label Measure = 'Measurement'
      Wafer   = 'Wafer Within Lot';
run;

symbol v=none;
title 'Multi-Vari Display for Measured Parameter';
proc shewhart data=Parm;
   boxchart Measure*Wafer /
      nolimits
      boxstyle          = pointsjoin
      idsymbol          = square
      cphaseboxfill     = ywh
      cphasebox         = black
      cphasemeanconnect = bib
      phasemeansymbol   = dot
      readphase         = all
      phaselegend
      nolegend;
label Measure = 'Measurement'
      Wafer   = 'Wafer Within Lot';
run;

symbol v=none;
title 'Multi-Vari Display for Measured Parameter';
proc shewhart data=Parm;
   boxchart Measure*Wafer /
      nolimits
      cphaseboxfill     = ywh
      cphasemeanconnect = black
      boxstyle          = pointsid
      phasemeansymbol   = dot
      readphase         = all
      phaselegend
      nolegend;
   label Measure = 'Measurement'
         Wafer   = 'Wafer Within Lot';
   id Position;
run;