Topic01 Q6.do

use "Data.dta"
replace Est_Pop = -Est_Pop
replace Est_Deaths = -Est_Deaths
replace Est_Deaths = Est_Deaths / 1000
replace SSA_Deaths = SSA_Deaths / 1000
gen zero = 0


#delimit ;
twoway bar Est_Pop Age_Group, horizontal bfc(gs7) blc(gs7) || bar SSA_Pop Age_Group, horizontal bfc(gs11) blc(gs11) || scatter Age_Group zero, mlabel(Age_Group) mlabcolor(black) msymbol(none)

title("Established Economies vs Sub-Saharan Africa Populations")

note("Source is...", span)

xtitle("Population in Millions") ytitle("Age Group")
ytitle("") yscale(noline) ylabel(none)
xlabel(-100 "100" -80 "80" -60 "60" -40 "40" -20 "20" 20(20)100) mlabposition(0)
legend(off) text(21 -80 "Established Market Economies") text(21 80 "Sub-Saharan Africa");
#delimit cr