flygskam punto ceeseuve

Para todos aquellos a los que volar les da vergüenza. Para todos aquellos que han sido víctimas de Vueling o Ryanair. Para todos aquellos que saben que cualquier cosa del mundo se puede encontrar mejor y más barata en Lavapiés. Para todos aquellos que han ido a JFK para enterarse de que su vuelo salía de Newark. Para todos aquellos a los que les han cancelado un billete de vuelta porque se durmieron y perdieron la la ida. Para todos aquellos que consideran la manifestación culmen de la estupidez humana el lastimoso espectáculo de doscientos gilipollas saliendo de un avión.

Para todos aquellos, flygskam.

Que es un fichero que he construido haciendo

library(rvest)
library(plyr)

url <- "https://en.wikipedia.org/wiki/Fuel_economy_in_aircraft"

nodos <- read_html(url)
tablas <- html_table(nodos)[1:5]

tablas <- lapply(1:length(tablas), function(x)
    transform(tablas[[x]], Sector = x))
tablas <- lapply(tablas, function(x) {
    colnames(x) <- tolower(colnames(x))
    colnames(x) <- gsub(".efficiency.", ".", colnames(x))
    x
})

res <- rbind.fill(tablas)
res$fuel.burn <- NULL

res$maker <- gsub(" .*", "", res$model)
res$fuel.per.seat <- as.numeric(gsub(".L.*", "",
    res$fuel.per.seat))

write.csv(res, "flygskam.csv", row.names = FALSE)

y que podéis usar para practicar con ggplot2, lme4, mgcv y otros maravillosos paquetes de R.