Encuesta de Estructura Salarial y R: propedéutica

La nota de prensa que acompaña a los resultados definitivos de la EES de 2014 reza:

El salario bruto medio anual fue de 22.858,17 euros por trabajador en el año 2014, un 0,7% superior al del año anterior.

Para poder replicar esa cifra y poder comparar manzanas con manzanas hay que preprocesar los datos crudos de la EES así:

library(MicroDatosEs)
dat <- ees2010("md_EES_2014.txt")

# Días año
dat$DIASRELABA <- dat$DRELABAM * 30.42 + dat$DRELABAD
dat$DIASRELABA[dat$DIASRELABA > 365]<- 365
dat$DIASANO <- dat$DIASRELABA - dat$DSIESPA2 - dat$DSIESPA4

# Salario bruto anual
dat$SALANUAL = (365/dat$DIASANO)*(dat$SALBRUTO + dat$VESP)

Ahora sí que se puede definir, por ejemplo,

salario.medio.anual <- function(x){
    sum(x$SALANUAL * x$FACTOTAL) / sum(x$FACTOTAL)
}

y calcular

salario.medio.anual(dat)
#[1] 22858.16

en cuasiasombrosa consonancia con la cifra oficial, e incluso

salario.medio.anual(dat[dat$SEXO == "Hombre",])
#[1] 25727.05
salario.medio.anual(dat[dat$SEXO == "Mujer",])
#[1] 19745.01

si uno osa aventurarse en los procelosísismos corolarios de

El salario medio anual de las mujeres fue de 19.744,82 euros, con un crecimiento del 1,2% respecto a 2013. El de los hombres fue de 25.727,24 euros, con un aumento del 0,2.

Coda: Casi se me olvida comentar que he probado sin éxito el diletantísimo código en R con el que ahora acompaña el INE a los microdatos de la EES. MicroDatosEs funciona mejor (y, al menos, funciona). Y me reservo la opinión sobre quienes reinventan la rueda a mi costa.