1. Gráfica de barras con el número de vuelos por aerolínea que han salido de NYC en el año 2013.

En la siguiente gráfica podemos observar todos los vuelos por aerolíneas realizados en el año 2013. Lo que podemos resaltar de ella es que la aerolínea con más vuelos es: United Airlines, seguida de ExpressJet, Delta y JetBlue.Por otro lado, las aerolíneas que menos realizaron vuelos fueron: Skywest, Hawaiian Airlines, y MesaAirlines.

gráfica_barras <- ggplot(flights, aes(x= carrier))+ geom_bar(aes(fill=carrier)) + labs(title = "Vuelos por aerolínea en NYC", subtitle="Año 2013")
gráfica_barras

  1. Tabla del número de vuelos por aerolínea

En la siguiente tabla, también podemos identificar los vuelos que realizó cada aerolínea, sin embargo, de esta manera los datos no resultan visualmente atractivos. Sin embargo, al acomodarlos en orden decendente también podemos llegar a las mismas conclusiones que las de la anteriro gráfica de manera sencilla.

vuelos_por_aerolínea <- flights%>%
  group_by(carrier)%>%
  summarize(count= n())%>%
  arrange(desc(count))
vuelos_por_aerolínea
## # A tibble: 16 x 2
##    carrier count
##    <chr>   <int>
##  1 UA      58665
##  2 B6      54635
##  3 EV      54173
##  4 DL      48110
##  5 AA      32729
##  6 MQ      26397
##  7 US      20536
##  8 9E      18460
##  9 WN      12275
## 10 VX       5162
## 11 FL       3260
## 12 AS        714
## 13 F9        685
## 14 YV        601
## 15 HA        342
## 16 OO         32
  1. Gráfica de barras que refleje el número de vuelos por aerolínea que han salido de NYC en el año 2013

Esta última tabla, es la que más nos ayuda a entender los resultados. Podemos observar que el tener un resultado mayor en elnúmero mayor de vuelos, depnde de los aeropuertos JFK y EWR, pues LGA representa muy poco porcentaje de estos.

De los 4 líderes. Las aerolíneas JetBlue y Delta realizaron un número alto de vuelos en el aeropuerto JFK. Mientras tanto, las aerolíneas United Airlines y ExpressJet realizaron muchos vuelos en el aeropuerto EWR y la única que realizó una suma importante en LGA fue Delta.

gráfica <- ggplot(flights, aes(x= carrier))+ geom_bar(aes(fill=origin)) + labs(title = "Vuelos por aerolínea en los aeropuertos LGA, JFK y EWR", subtitle="año 2013", color ="Aeropuerto")
gráfica

CONCLUSIONES: Al presentar datos, el hacerlos visuales facilita mucho su entendimiento. Así mismo, es importante asignarles un relleno de color premeditado, pues este puede ayudar a obtener más insights de los datos y poder construir reportes más completos.