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,

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.

Comenta

Your email address will not be published.

Puedes usar estas etiquetas y atributos de HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.