options ls=80 ps=59;
data ;
 infile petrograph;
 input label  hole $ zone $ depth 
       pheno  lithic  grano  amyg  spherul  crypto  voids 
       npts;
proc sort ; by hole zone;
proc means; by hole zone;
proc tabulate;
	class hole zone;
	table hole all, n=''*(zone);
	title "Table of Counts";
proc tabulate;
       	class hole zone;
	var pheno;
	table hole, mean*pheno=' '*(zone);
	title "Pheno";
proc tabulate;
        class hole zone;
        var spherul;
        table hole, mean*spherul=' '*(zone);
        title "Spherul";
proc tabulate;
        class hole zone;
        var crypto;
        table hole, mean*crypto=' '*(zone);
        title "Crypto";
proc sort; by zone;
title " ";
proc chart;
 vbar pheno; by zone;
 vbar spherul; by zone;
 vbar crypto; by zone;
endsas;