// Open cumulated Allbus 1980-2014
use ost_west v152 year using ZA4584_v1-0-0.dta, clear
// West Germany only
keep if ost_west == 1
// Subjective SES
recode v152 (0 = .) (97 98 99 = .), gen(topbot)
label var topbot "Subjective SES"
// Drop years with missing data
drop if inlist(year, 1984, 1994, 1996, 1998)
// Drop early years
drop if year < 1998
label drop year // Drop label
// Generate average subjective SES per year
bysort year: egen avg = mean(topbot)
// Figure
tabplot topbot year, yasis xasis horizontal percent barw(1) bfcolor(none) //
xtitle("") subtitle("") note("") //
addplot(connect avg year, sort msymbol(O) mcolor(black) msize(large))
