Stata codes are:
#delimit ;
twoway
(line below5 year, lwidth(vthick) lcolor(red))
(line above65 year, lwidth(vthick) lcolor(blue))
,
subtitle("{bf:Young Children and Older People as a Percentage}" "{bf:of Global Population: 1950-2050}", color(white))
ylab(0 "0%" 5 "5%" 10 "10%" 15 "15%" 20 "20%", grid gmin gmax angle(0) labcolor(white) noticks)
xlab(1950(10)2050, labcolor(white) noticks)
xtitle("")
xsize(6)
legend(off)
graphregion(fcolor(ebblue))
plotregion(fcolor(white))
text(15.5 1965 "{bf:Age <5}")
text(4 1965 "{bf:Age 65+}")
note(" " "Source: United Nations. {it:World Population Prospects 2019}." "Available at: https://population.un.org/wpp/", size(small) color(white))
;
#delimit cr