unzipfile ZA4582_v1-0-0.dta.zip
use ZA4582_v1-0-0.dta, clear
recode v151 (9 = .a "No response") ///
(8 = .b "Don't know") ///
(7 = .c "Refused") ///
(6 = .d "None of the strata") ///
(5 = 5 "Upper class") ///
(4 = 4 "Upper middle class") ///
(3 = 3 "Middle class") ///
(2 = 2 "Working class") ///
(1 = 1 "Lower class") ///
, gen(subjclass)
qui tab subjclass, gen(subjective)
// Western Germany only
generate east = (ost_west == 2)
drop if east
// Collapse data by year
collapse subjective*, by(year)
generate lower = subjective1 * 100
generate working = lower + (subjective2 * 100)
generate middle = working + (subjective3 * 100)
generate uppermiddle = middle + (subjective4 * 100)
generate upper = uppermiddle + (subjective5 * 100)
twoway (area upper year) ///
(area uppermiddle year) ///
(area middle year) ///
(area working year) ///
(area lower year) ///
, xlabel(1980 (5) 2010 2014) xmtick(1980 (1) 2014) ///
ylabel(0 (10) 100) ymtick(0 (5) 100) ///
xtitle("") ytitle(%) ///
legend(order(1 "Upper class" ///
2 "Upper middle class" ///
3 "Middle class" ///
4 "Working class" ///
5 "Lower class") ///
title("Subjective social class", size(*.8)) pos(2)) ///
note(" " "{it:Source:} German General Social Survey (Allbus), doi: 10.4232/1.12439. {it:Note:} Western Germany only.", span)
