Sobre una poco conocida y para nada menguante "brecha de género"

Con datos del INE sobre mortalidad he construido el gráfico

que muestra las tasas de mortalidad relativas (la de hombres entre la de mujeres) desde 1975 para cada edad. Como no se aprecia debidamente el efecto que da pie a esta entrada, reorganizo los ejes (y promedio, ¡glups!, las tasas de mortalidad por grupos quinquenales de edad):

Se observa una manifiesta tendencia creciente, uno de esos gender gaps, brechas de género o como quiera que se llamen a estas cosa en neolengua que, lejos de menguar, crece y crece.

El fenómeno no es solo español: consúltese este estudio sueco, de mucha mayor profundidad histórica o este otro sobre el mismo fenómeno en EE.UU. (que estudia ya no las tasas relativas sino las absolutas).

El código, salvo la descarga de los datos del INE (a ver si la próxima vez uso la API JSON, que para eso está), aquí:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
library(pxR)
library(ggplot2)
library(reshape2)
library(plyr)

raw <- read.px("14817.px")
datos <- as.data.frame(raw)

datos$Periodo <- as.numeric(
    as.character(datos$Periodo))

datos$Totales.Territoriales <- NULL

datos <- datos[datos$Edad != "Total edades",]
datos$Edad <- as.character(datos$Edad)
datos$Edad[datos$Edad == "De 90 y más años"] <- "90 años"
datos$Edad <- as.numeric(gsub(" .*$", "", datos$Edad))

datos <- dcast(datos,
  Periodo + Edad ~ Sexo, value.var = "value")
datos$ratio <- datos$Hombres / datos$Mujeres

ggplot(datos, aes(x = Edad, y = ratio)) +
  geom_line() + facet_wrap(~Periodo) +
  ggtitle("Ratio de tasas de mortalidad (hombres/mujeres)") +
  xlab("edad") +
  ylab("ratio de tasas de mortalidad (hombres / mujeres)")

datos.agrupados <- datos
datos.agrupados$edad <- 5 * round(datos.agrupados$Edad / 5)

# estoy promediando tasas: ¡mil perdones!
datos.agrupados <- ddply(datos.agrupados,
  .(Periodo, edad),
  summarise, ratio = mean(ratio))

ggplot(datos.agrupados, aes(x = Periodo, y = ratio)) +
  geom_line() + facet_wrap(~edad) +
  ggtitle("Evolución del ratio (hombres/mujeres) de la tasa de mortalidad\npor grupos de edad") +
  xlab("año") +
  ylab("ratio de tasas de mortalidad (hombres / mujeres)")