R code – figure Socioeconomic position (fig-SeP)