use ahm2009_wide, clear
replace country_str = "EL" if country_str == "GR"
quietly tab contracttype, gen(contr)
ren contr1 perma
ren contr2 tempo
ren contr3 selfe
ren contr4 famil
collapse perma tempo selfe famil [iw=eu29weight], by(country_str)
replace perma = perma * 100
replace tempo = tempo * 100
replace selfe = selfe * 100
replace famil = famil * 100
egen order = rank(-perma), unique
labmask order, value(country_str)
graph hbar perma tempo selfe famil ///
, stack /// Stack bars on top of one another
over(order, label(labsize(*0.9))) /// // Reduce size of country abbreviations
ytitle("Percentage first contract") ///
legend(label(1 "Permanent") ///
label(2 "Temporary") ///
label(3 "Self-employed") ///
label(4 "Family worker") ///
col(2) pos(6)) ///
xsize(8.25) ysize(10) ///
note("{it:Source:} EU-LFS AHM 2009 (weighted)", span) ///
name(contract, replace)
