%let gpath='C:\';
%let dpi=200;

Data Traffic;
  input Type $ Source $ Traffic Total;
  format Traffic Total percent.;
  datalines;
B2B  Facebook 0.72  1.0
B2B  Linkedin 0.16  1.0
B2B  Twitter  0.12  1.0
B2C  Facebook 0.84  1.0
B2C  Linkedin 0.01  1.0
B2C  Twitter  0.15  1.0
;
run;
proc print; run;

ods html close;

ods listing gpath=&gpath image_dpi=&dpi style=listing;
ods graphics / reset noscale width=5in height=3in imagename='Naomi_1';
title 'Social Media Referral Traffic by Source';
proc sgplot data=traffic nocycleattrs;
  vbar type / response=total group=source groupdisplay=cluster fillattrs=graphdatadefault(color=lightgray) 
       transparency=0.5 nostatlabel nooutline;
  vbar type / response=traffic group=source groupdisplay=cluster datalabel  dataskin=pressed
       barwidth=0.85 name='a' nostatlabel;
  keylegend 'a';
  yaxis offsetmax=0.05 grid display=(nolabel);
  xaxis display=(nolabel noticks);
  run;

ods graphics / reset noscale width=5in height=3in imagename='Naomi_2';
title 'Social Media Referral Traffic by Source';
proc sgplot data=traffic nocycleattrs;
  vbar type / response=total group=source groupdisplay=cluster fillattrs=graphdatadefault(color=lightgray) 
       transparency=0.5 nostatlabel nooutline;
  vbar type / response=traffic group=source groupdisplay=cluster datalabel  dataskin=pressed
       barwidth=0.85 name='a' nostatlabel;
  keylegend 'a' / location=inside position=top;
  yaxis offsetmax=0.12 grid display=(nolabel);
  xaxis display=(nolabel noticks);
  run;