/*****************************************************************/
  /*       Final Project         by Yingkang Zhou                  */
  /*                                                               */
  /*****************************************************************/


    /* set the graphics environment */
 goptions reset=global gunit=pct border
          ftext=swissb htitle=6 htext=3;

    /* create data set TOTALS */
 data totals;
    length dept $ 7 site $ 8;
    input dept site quarter sales;
    format sales dollar8.0;
    cards;
 Parts   Sydney  1 7843.97
 Parts   Atlanta 1 9225.26
 Parts   Paris   1 4643.97
 Repairs Sydney  1 6092.82
 Repairs Atlanta 1 10210.21
 Repairs Paris   1 7891.98
 Tools   Sydney  1 5017.36
 Tools   Atlanta 1 6254.18
 Tools   Paris   1 6611.70
 Parts   Sydney  2 5023.44
 Parts   Atlanta 2 11595.07
 Parts   Paris   2 8158.29
 Repairs Sydney  2 6005.31
 Repairs Atlanta 2 7789.59
 Repairs Paris   2 6938.56
 Tools   Sydney  2 8245.17
 Tools   Atlanta 2 3003.99
 Tools   Paris   2 7268.34
 Parts   Sydney  3 10537.96
 Parts   Atlanta 3 7047.91
 Parts   Paris   3 5989.85
 Repairs Sydney  3 4726.46
 Repairs Atlanta 3 5411.66
 Repairs Paris   3 6010.38
 Tools   Sydney  3 4067.10
 Tools   Atlanta 3 6248.52
 Tools   Paris   3 9717.96
 Parts   Sydney  4 10565.57
 Parts   Atlanta 4 9588.51
 Parts   Paris   4 6909.08
 Repairs Sydney  4 10312.99
 Repairs Atlanta 4 7488.30
 Repairs Paris   4 3930.37
 Tools   Sydney  4 2075.74
 Tools   Atlanta 4 3624.19
 Tools   Paris   4 6414.25
 ;
 run;

    /* define title and footnote for chart */
 title 'Total Sales';


    /* define pattern characteristics */
 pattern1 value=solid color=blue;
 pattern2 value=solid color=green;
 pattern3 value=solid color=red;

    /* generate pie charts */
 proc gchart data=totals;
    format quarter roman.;
    label site='00'x;
    where site ='Paris' or site='Sydney' or site='Atlanta';
    pie quarter
        / discrete
          sumvar=sales
          coutline=gray
          percent=outside
          slice=outside
          group=site
          across=2
          noheading;

 run;
 quit;



    /* define title and footnote for chart */
 title 'Sales by Department';
 f

    /* define pattern characteristics */
 pattern value=solid color=green;

    /* define axis characteristics */
 axis1 label=('Dept.')
       order=('Repairs' 'Tools' 'Parts') width=3;
 axis2 label=none width=3;
 axis3 label=none order=0 to 30000 by 5000 width=3;

    /* generate horizontal bar chart */
 proc gchart data=totals;
    format quarter roman.;
    format sales dollar8.;
    hbar quarter
         / frame
           sumvar=sales
           maxis=axis2
           raxis=axis3
           minor=0
           nostats
           group=dept
           gaxis=axis1
           discrete
           ;
 run;
 quit;


    /* define title and footnote for chart */
 title 'Quarterly Sales';

    /* define pattern and axis characteristics */
 pattern value=solid color=green;
 axis width=3;

    /* generate vertical bar chart */
    /* using GROUP=SITE            */
 proc gchart data=totals;
    vbar quarter
         / frame
           discrete
           sumvar=sales
           group=site
           gaxis=axis
           raxis=axis
           ;
 run;


    /* sort data set TOTALS in order by site */
 proc sort data=totals;
    by site;
 run;


    /* generate vertical bar chart using BY-group */
    /* processing to produce a different chart    */
    /* for each site                              */
 proc gchart data=totals;
    by site;
    vbar quarter
         / frame
           discrete
           sumvar=sales
           gaxis=axis
           raxis=axis
            ;
 run;
 quit;