用POHOSTSHOP把背景颜色替换成白色，哈哈

viewsource galbr.ado，你会知道问题症结在哪，然后你会找到解决办法的。

* !galbr.ado AT v2.0, Marc 2000     (STB-56: sbe20.1)
* galbr.ado AT v1.15, June/October 1997

program def galbr
    version 6.0
    syntax varlist(min=2 max=2 numeric) [if] [in] [, id(varname) `options' *]
    tokenize `varlist'
    local E  `1'
    local SE `2'
    preserve
    if ("`if'"!="") {
       qui keep `if'
    }
    if ("`in'"!="") {
       qui keep `in'
    }
    if "`id'"=="" {
       local id "O"
    }
    else {
        local id "[`id']"
    }
    tempvar x y p ulp llp
    qui gen `x'=1/`SE'
    qui gen `y'=`E'/`SE'
    label var `x' "1/se(b)"
    label var `y' "b/se(b)"
    qui reg `y' `x', noconstant
    qui predict `p'
    qui gen `llp'=`p'-2
    qui gen `ulp'=`p'+2
    qui sum `x', detail
    local mxx=r(max)
    qui sum `llp', detail
    if r(min)>=-2 {
       local mny=-2
    }
    else {
       local mny=r(min)
    }
    qui sum `ulp', detail
    if _result(6)<=2 {
       local mxy=2
    }
    else {
       local mxy=r(max)
    }
    local new=_N+1
    qui set obs `new'
    qui replace `y'=0 in l
    qui replace `x'=0 in l
    qui replace `p'=0 in l
    qui replace `llp'=-2 in l
    qui replace `ulp'=2 in l
    graph `y' `p' `ulp' `llp' `x', ylab(`mny',-2,0,2,`mxy') /*
       */ xscale(0,`mxx') ysca(`mny',`mxy') pen(1922) /*
       */ sy(`id'iii) c(.lll) sort `options'
end

我怎么看都看不出个所以然？？ 郁闷。。

其一，第一句version 6.0意味着galbr命令所作的图为Stata 6“格式”的。我个人并不知道要想改变背景颜色需要用Stata 6下graph命令的什么option（在Stata 11中改成白色为plotregion(ifcolor(white)) ）。假如你知道或有人告诉你这个option，那直接加在galbr命令的最后即可。若无从知道，那也不妨，见其二……

其二，viewsource告诉我们这个图是如何作出的。我们在Stata 10或Stata 11下也可依样画葫芦，用scatter命令画一个（此时默认的背景就是白色的）。至于怎么做，你自己先揣摩揣摩。迟了，我且休息去也。:-)