clear
clear matrix 
set mem 1000m
set more off
clear
use "do files - REPLICATION/Maindata"
replace restrictions_all_racial_max = 6.5 - restrictions_all_racial_max
cap drop _merge
cap catenate region_year region_broad year
merge m:1 region_year using minmax
*Drop irrelevant observations, see article text
drop if drop_observations==1

*Drop observations for Georgia, Maine
drop if colony=="GA"
drop if colony=="ME"

graph drop _all
twoway (lowess perc_black 					yearcleanup 	if region_broad=="South", lwidth(medium) lcolor(black)) (scatter perc_black_max		perc_black_min 	yearcleanup if region_broad=="South", mcolor(black black) msymbol(Oh triangle_hollow) 	msize(small small)), name (Labour) 	yscale(r(0 0.8)) ylabel(0(.1)0.8) ytitle(Labour) title("Labour", color(black)) legend( col(3)lab(1 "lowess") lab(2 "max") lab(3 "min") region(fcolor(gs15)) size (medsmall) ) graphregion(color(white)) scheme(s1mono)
twoway (lowess restrictions_all_racial_max 	yearcleanup 	if region_broad=="South", lwidth(medium) lcolor(black)) (scatter restr_max 			restr_min 		yearcleanup if region_broad=="South", mcolor(black black) msymbol(Oh triangle_hollow) 	msize(small small)), name (Suffrage) yscale (r(0 6)) ylabel(0(1)6) ytitle (Suffrage) title("Suffrage", color(black)) legend( col(3)lab(1 "lowess") lab(2 "max") lab(3 "min") region(fcolor(gs15)) size (medsmall) ) graphregion(color(white)) scheme(s1mono)
graph combine Suffrage Labour, xsize(7) ysize(4) iscale(0.8) graphregion(color(white))
graph export "$figure_folder/Suffrage_Labour_South.pdf", replace  

twoway (lowess perc_black 					yearcleanup	 	if region_broad=="North", lwidth(medium) lcolor(black)) (scatter perc_black_max 	perc_black_min	yearcleanup if region_broad=="North", mcolor(black black) msymbol(Oh triangle_hollow) 	msize(small small)), name (Labour2) yscale(r(0 0.8)) ylabel(0(.1)0.8) ytitle(Labour) title("Labour", color(black)) legend( col(3)lab(1 "lowess") lab(2 "max") lab(3 "min") region(fcolor(gs15)) size (medsmall) ) graphregion(color(white)) scheme(s1mono)
twoway (lowess restrictions_all_racial_max 	yearcleanup		if region_broad=="North", lwidth(medium) lcolor(black)) (scatter restr_max 			restr_min 		yearcleanup if region_broad=="North", mcolor(black black) msymbol(Oh triangle_hollow)	msize(small small)), name (Suffrage2) yscale (r(0 6)) ylabel(0(1)6) ytitle (Suffrage) title("Suffrage", color(black)) legend( col(3)lab(1 "lowess") lab(2 "max") lab(3 "min") region(fcolor(gs15)) size (medsmall) ) graphregion(color(white)) scheme(s1mono)
graph combine Suffrage2 Labour2, xsize(7) ysize(4) iscale(0.8) graphregion(color(white))
graph export "$figure_folder/Suffrage_Labour_North.pdf", replace  		
drop if _merge==2

label variable perc_landless "Inequality (% white landless)"
label variable perc_black "Labour (% black)"
drop if restrictions_all_racial_max==0

gen south = lowersouth + uppersouth
preserve

keep if south==1
twoway (scatter restrictions_all_racial_max yearcleanup, yaxis(2) msymbol(O) msize( vsmall ) mcolor(black)) (line perc_landless yearcleanup , yaxis(1) lcolor(black) lwidth(medium)), yscale(range(0, .5) axis(1)) yscale(range(0 6) axis(2) ) by(statecleanup, graphregion(color(white)) r1title("Inequality") note("")) ytitle(Suffrage) graphregion(color(white)) scheme(s1mono)
graph export "$figure_folder/South_suffrage_lless.pdf", replace  		

twoway (scatter restrictions_all_racial_max yearcleanup, yaxis(2) msymbol(O) msize( vsmall ) mcolor(black)) (line perc_black  yearcleanup , yaxis(1) lcolor(black) lwidth(medium)), yscale(range(0, .5) axis(1)) yscale(range(0 6) axis(2) ) by(statecleanup, graphregion(color(white)) r1title("Labour") note(""))			ytitle(Suffrage)   graphregion(color(white)) scheme(s1mono)
graph export "$figure_folder/South_suffrage_black.pdf", replace