Huelga el título hoy

dat <- read.table("http://www.datanalytics.com/uploads/jornadas_huelga.csv", header = T)
huelgas <- as.numeric( dat )
huelgas <- ts( huelgas, start = 1990, frequency = 12 )
plot( huelgas / 1000, xlab = "mes", ylab="", main = "Jornadas de huelga por mes en España (en miles)" )