sysuse lifeexp, clear
generate lgnppc = ln(gnppc)
label var lgnppc "ln GNP per capita"
#delimit ;
graph matrix popgr lgnp safe lexp, 
  maxes(ylab(#4, grid) xlab(#4, grid))
  subtitle("Summary of 1998 life-expectancy data")
  note("Source:  The World Bank Group")
  ;
#delimit cr