use "ESS8e01.dta", clear
kountry cntry, from(iso2c) marker
rename NAMES_STD country
recode lrscale (77 88 99 = .)
histogram lrscale, by(country, note("")) ///
percent discrete ///
xlabel(0 (2) 10, val) ///
ylabel(0 (10) 50) ///
xtitle("Placement on left-right scale") ///
name(figure1, replace)
