• Print |
• E-mail  |
• Bookmark

proc template;
  define statgraph scatterhist;
  dynamic XVAR YVAR XTYPE YTYPE TITLE;
  begingraph / designwidth=600px designheight=400px borderattrs=(thickness=3px);
    entrytitle TITLE;
    layout lattice / rows=2 columns=2 rowweights=(.2 .8) columnweights=(.8 .2)
                     rowdatarange=union columndatarange=union rowgutter=0 columngutter=0;
  /* histogram or barchart at X2 axis position */
    layout overlay / walldisplay=(fill) wallcolor=GraphBackground:color 
                     xaxisopts=(display=none) 
                     yaxisopts=(display=none offsetmin=0);
      if (upcase(XTYPE) = "DISCRETE") 
        barchart x=XVAR / barwidth=1 stat=pct;
      else 
        histogram XVAR / binaxis=false;
      endif;
    endlayout;
  /* NOBS count cell */  
    layout overlay; 
      entry 'NOBS = ' eval(n(XVAR));	 
    endlayout;
  /* scatter plot with conditional axis types */
    layout overlay / xaxisopts=(type=XTYPE) yaxisopts=(type=YTYPE);	       
      scatterplot y=YVAR x=XVAR / datatransparency=.95 markerattrs=(symbol=circlefilled size=11px);
    endlayout;
  /* histogram or barchart at Y2 axis position */
    layout overlay / walldisplay=(fill) wallcolor=GraphBackground:color 
                     xaxisopts=(display=none offsetmin=0) yaxisopts=(display=none);
      if (upcase(YTYPE) = "DISCRETE") barchart x=YVAR / barwidth=1 orient=horizontal stat=pct;
      else histogram YVAR / orient=horizontal binaxis=false;
      endif;
    endlayout;
    endlayout;    
  endgraph;
  end;
run;

proc template;
  define Style ScatterHistStyle;
  parent = styles.journal;
  style GraphFonts from GraphFonts                                                      
    "Fonts used in graph styles" /  
    'GraphTitleFont' = (", ",10pt,bold)
    'GraphFootnoteFont' = (", ",8pt)
    'GraphLabelFont' = (", ",8pt) 
    'GraphValueFont' = (", ",7pt)
    'GraphDataFont' = (", ",7pt);
  end;
run;

ods listing close;
ods html style=ScatterHistStyle image_dpi=100 file='scatterhist.html' path='.';

ods graphics / reset imagename='GTLHandout_ScatterHist' antialiasmax=10000 imagefmt=gif;
proc sgrender data=sashelp.heart template=scatterhist;  
  dynamic YVAR="weight" XVAR="height" title="Two Continuous Variables";
run;

ods html close;
ods listing;

Operating System and Release Information