#delimit ;
cd c:\ErikMain\race_signaling ;
clear ; 

insheet using figure3alt.txt, tab;

gen ln_state_income = ln(state_income) ;

#delimit ;

reg beta ln_state_income ;

gen beta_white = beta if race_name == "w";
gen beta_black = beta if race_name == "b";
gen beta_hispanic = beta if race_name == "h";

predict beta_hat;

#delimit ;

twoway(scatter beta_white ln_state_income, mlabel(state_name) xlabel(9.6(.4)11.2) ms(circle) mc(black) mlabc(black) msize(medsmall) )
(line beta_hat ln_state_income) 

(scatter beta_black ln_state_income, mlabel(state_name) xlabel(9.6(.4)11.2) ms(triangle) mc(black) mlabc(black) msize(small))

(scatter beta_hispanic ln_state_income, mlabel(state_name) xlabel(9.6(.4)11.2) ms(diamond_hollow) mc(navy) mlabc(navy) msize(small)),

xti(Log of Mean Income of Race-State Cell )
yti("Conditional Log Difference in Visible Spending " "Relative to White Alabamans") 
legend(order(1 3 4) label(1 "White") label(3 "Black") label(4 "Hispanic") rows(1))
name(graph_main, replace) 
;