*-http://www.pinggu.org/bbs/thread-987702-1-1.html

  sysuse nlsw88, clear
  local Gvar "industry"                // 填入分组变量，如 university
  local yvar "wage"                        // 填入排序变量，如 score
  gen tg = .                              // 最终的分组结果
  
  egen gvar = group(`Gvar')
  local gvar "gvar"
  qui tab `gvar'
  ret list
  local N = r(r)
    forvalues i=1/`N'{
          qui{
                centile  `yvar'  if `gvar'==`i', centile(33 66)
                noi ret list
        replace  tg=1 if `yvar'<=r(c_1)                 &  `gvar'==`i'
        replace  tg=2 if `yvar'>r(c_1) & `yvar'<=r(c_2) &  `gvar'==`i'
        replace  tg=3 if `yvar'>=r(c_2)                 &  `gvar'==`i'
      }      
    }
  
  sort `Gvar' `yvar'
  browse  `Gvar' `yvar' tg