sysuse citytemp, clear 
#delimit ;
graph bar (mean) tempjuly tempjan, 
  over(division, label(labsize(*.75)))
  over(region)
  bargap(-30) nofill
  ytitle("Degrees Fahrenheit")
  legend( label(1 "July") label(2 "January") )
  title("Average July and January temperatures")
  subtitle("by region and division of the United States")
  note("Source:  U.S. Census Bureau, U.S. Dept. of Commerce") ;
#delimit cr