clear
// Table from Vaupel and Loichinger 2006,
// "Redistributing Work in Aging Europe,"
// Science 312(5782):1911-1913.
// doi: 10.1126/science.1127487
// Table 1
input str2 country r2005 r2025 rchange h2005 h2025 hchange
DE 1.27 1.47 16 16.28 14.95 -8
DK 0.97 1.12 15 17.46 16.11 -8
FR 1.43 1.69 18 15.09 13.63 -10
IT 1.59 1.86 17 15.19 13.48 -11
NL 1.01 1.20 19 15.31 13.88 -9
UK 1.09 1.19 9 17.32 16.34 -6
US 1.09 0.99 -9 18.71 18.29 -2
end
drop rchange hchange // drop unnecessary columns
graph bar r2005 r2025, over(country) bargap(-30) ///
ytitle("Ratio nonworkers per worker") ///
legend(label(1 "2005") label(2 "2025") row(1)) ///
ylabel(,format(%6.1f)) /// Format axis labels
name(r, replace)
graph bar h2005 h2025, over(country) bargap(-30) ///
ytitle("Hours worked per week per capita") ///
legend(label(1 "2005") label(2 "2025")) ///
ylabel(,format(%6.1f)) ///
name(h, replace)
grc1leg r h, xcommon row(1) ///
note("{it: Source:} Vaupel and Loichinger 2006, p. 1912" ///
"{it: Note:} The values for 2025 assume change in the" ///
"population pyramid but no change in labor force " ///
"participation or effort" "by age and sex.", span)
