Displaying Summary Statistics on a Pareto Chart

/****************************************************************/
/*          S A S   S A M P L E   L I B R A R Y                 */
/*                                                              */
/*    NAME: PARGS4                                              */
/*   TITLE: Displaying Summary Statistics on a Pareto Chart     */
/* PRODUCT: QC                                                  */
/*  SYSTEM: ALL                                                 */
/*    KEYS: Pareto Charts                                       */
/*   PROCS: PARETO                                              */
/*    DATA:                                                     */
/*                                                              */
/* SUPPORT: saswgr                                              */
/*     REF: PROC PARETO, Getting Started Example 4              */
/*    MISC:                                                     */
/*                                                              */
/****************************************************************/

data Failure2;
   length Cause $ 16 ;
   label  Cause = 'Cause of Failure' ;
   input  Cause $ 1-16 Count;
   datalines;
Contamination    14
Corrosion         2
Doping            1
Metallization     2
Miscellaneous     3
Oxide Defect      8
Silicon Defect    1
;

title 'Integrated Circuit Failures';
proc pareto data=Failure2;
   vbar Cause /
      freq     = Count
      maxncat  = 5
      odstitle = title;
   inset n nexcl;
run;