use "${inter}/sft_IVS_2",clear
//Figure 1:
cap drop sft_final
gen sft_final = 0  if CountryName=="Burkina Faso " | CountryName=="Ghana "|  CountryName=="Haiti " | CountryName=="Hong Kong S.A.R."| CountryName=="Macau SAR "| CountryName==" Macedonia "| CountryName=="Nicaragua "| CountryName=="Puerto Rico "| CountryName=="Rwanda "| CountryName=="Taiwan"| CountryName=="Tajikistan "| CountryName=="Uganda "| CountryName=="Yemen "| CountryName=="Zambia "| CountryName=="Zimbabwe "
replace sft_final=1 if sft_final==. //country included in our final sample
seperate sft_pca, by(sft_final)
sort sft_pca
graph hbar (asis) sft_pca0 sft_pca1 if sft_pca<0, bar(2, color("0 108 162")) bar(1, color("172 205 220")) nofill  over (CountryName, sort(sft_pca)  lab(angle(0) labsize(small) )) graphregion(color(white))  ytitle("") ylabel(0(-0.2)-1, angle(0) labsize(small) nogrid)  blabel(bar, size(vsmall) format(%3.2f)) xalt legend(off) scheme(s1mono) scale(0.65)
graph save "${output}/fig1_1",replace
graph hbar (asis) sft_pca0 sft_pca1 if sft_pca>=0, bar(2, color("0 108 162")) bar(1, color("172 205 220")) nofill  over (CountryName, sort(sft_pca)  lab(angle(0) labsize(small) )) graphregion(color(white))  ytitle("") ylabel(0(0.2)1, angle(0) labsize(small) nogrid)  blabel(bar, size(vsmall) format(%3.2f)) legend(off) scheme(s1mono) scale(0.6)
graph save "${output}/fig1_2",replace

graph combine "${output}/fig1_1.gph" "${output}/fig1_2.gph", ysize(8) scheme(s1mono)  

//Figure S5
sort sft_sum
seperate sft_sum, by(sft_final)
graph hbar (asis) sft_sum0 sft_sum1 if sft_sum<7.2,bar(2, color("0 108 162")) bar(1, color("172 205 220"))  nofill  over (CountryName,sort(sft_sum)  lab(angle(0) labsize(small) ))  graphregion(color(white))   ytitle("") blabel(bar,size(vsmall) format(%3.2f))  exclude0 ysc(r(5.5(0.5)7.5)) ylabel(5.5(0.5)7.5, angle(0) labsize(small) nogrid) legend(off) scheme(s1mono) scale(0.6)
graph save "${output}/figS5_1",replace
graph hbar (asis) sft_sum0 sft_sum1 if sft_sum>=7.2,bar(2, color("0 108 162")) bar(1, color("172 205 220"))  nofill  over (CountryName, sort(sft_sum)  lab(angle(0) labsize(small) ))  graphregion(color(white))   ytitle("") blabel(bar,size(vsmall) format(%3.2f))  exclude0 ysc(r(7(0.5)8)) ylabel(7(0.5)8, angle(0) labsize(small) nogrid) legend(off) scheme(s1mono) scale(0.6)
graph save "${output}/figS5_2",replace
graph combine "${output}/figS5_1.gph" "${output}/figS5_2.gph", ysize(7.5) scale(1.1) scheme(s1mono)