sysuse sp500, clear 
replace volume = volume/1000
#delimit ;

twoway
rspike hi low date ||
line   close  date ||
bar    volume date, barw(.25) yaxis(2) ||
in 1/57
, ysca(axis(1) r(900 1400))
  ysca(axis(2) r(  9   45))
  ylabel(, axis(2) grid)
ytitle("                          Price -- High, Low, Close")
ytitle(" Volume (millions)", axis(2) bexpand just(left))
legend(off)
subtitle("S&P 500", margin(b+2.5))
note("Source:  Yahoo!Finance and Commodity Systems, Inc.")
;
#delimit cr