use mcclurg, clear
gen lo=mean-1*sd
gen hi=mean+1*sd
*input x vector with the order of variables we want in the plot
mat x=(4,3,1,2)'
* gets x vector copied to a variable called x
svmat x
label def varnames 4 "Size (1260)" 3 "Political Talk (1253)" 2 "Political Knowledge(1220)" 1 "Political Agreement (1154)"

label val x varnames
label var mean "mean"
label var sd "sd"
label var lo "lo"
label var hi "hi"

twoway rspike lo hi x, horizontal || scatter x mean, sort  ylabel(1(1)4, valuelabel angle(0)) xtitle("") ytitle("") legend(off) xscale(range(0,5)) scheme(s1mono) scale(.5)

*use this command to create a postscript file in working directory
graph export "mcclurg_stata.ps"
*saves png for web
graph export mcclurg_stata.png, replace