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
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~.),
y
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.
