Evolución histórica de la deuda del ayuntamiento de Madrid

Una de las cosas de las que me acuerdo de cuando leía es un parrafito de Mi idolatrado hijo Sisí en el que Delibes ponía en la boca no sé si de alguno de sus protagonistas o del narrador en el que se daba cuenta de la anormalidad histórica que supuso el tiempo de la II República: de repente, la gente hacía cosas que nunca había hecho y que nunca había vuelto a hacer: hablar a todas horas y con todo el mundo de política. La política entraba en los círculos de amigos, en la sobremesa de las familias, etc.

Sea para lo bueno o para lo malo, vivimos tiempos que en eso se parecen a aquellos. Y como ha salido publicado esto y alguien me lo va a sacar a colación pronto, me curo en salud y acumulo una url con la que contestar, i.e., la que apunta a esta página.

He bajado datos del Banco de España, he extraído penosamente la información relativa a la deuda de Madrid y con

library(ggplot2)
library(plyr)

rect <- data.frame(xmin=as.Date("2015-05-24"),
                    xmax=max(deuda.madrid$fecha),
                    ymin=-Inf, ymax=Inf)

ggplot(deuda.madrid, aes(x = fecha, y = deuda / 1e3)) + geom_line() +
  geom_rect(data=rect,
            aes(xmin=xmin, xmax=xmax,
                ymin=ymin, ymax=ymax),
            color="grey20",
            alpha=0.3,
            inherit.aes = FALSE) +
  ylab("deuda en millones de euros")

he construido

deuda_bruta_madrid

y con

incr.deuda.madrid <- data.frame(fecha = deuda.madrid$fecha[-1], deuda = diff(deuda.madrid$deuda) / 1000)
incr.deuda.madrid$mes <- months(incr.deuda.madrid$fecha)

ggplot(incr.deuda.madrid, aes(x = fecha, y = deuda)) + geom_line(alpha = 0.6) +
  geom_smooth() +
  geom_rect(data=rect, aes(xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax),
            color="grey20",
            alpha=0.3,
            inherit.aes = FALSE)

ggplot(incr.deuda.madrid, aes(x = fecha, y = deuda)) + geom_line(alpha = 0.6) +
  #geom_smooth() +
  geom_rect(data=rect, aes(xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax),
            color="grey20",
            alpha=0.3,
            inherit.aes = FALSE) +
  facet_grid(mes~.)

,

deuda_ayto_madrid_incr

y

deuda_ayto_madrid_incr_trim

Afortunadamente, no tengo que editorializar porque no sabría qué decir. Solo, si acaso, lo que no decir si uno quiere creerse sano de apofenia: que ha habido grandes y sustanciales cambios dentro del cuadrante gris.