NYCFlights13

NYC Flights Homework

Load the libraries and view the “flights” dataset

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✔ ggplot2 3.3.6     ✔ purrr   0.3.4
## ✔ tibble  3.1.7     ✔ dplyr   1.0.9
## ✔ tidyr   1.2.0     ✔ stringr 1.4.0
## ✔ readr   2.1.2     ✔ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

library(nycflights13)

flights <- flights

Chart for distance by carrier grouped in season

options(scipen = 999)
ggplot(data=flights, aes(x=carrier, y=distance , fill = carrier)) +
  geom_bar(stat="identity")+
   theme_minimal()

#Summary analysis Each season carrier UA, which I now understand is United Airlines, has the highest distance.We can see that people tend to travel more in summer than any other season and fall being the least. Given summer is typically vacation/travel time for a large group of people, it stands to reason the high distance number. Also, the Delta Air Line(DC) and Jet Blue(B6)which I just learned the abbreviation, follows for the highest distance travel.I am assuming people use these flight to travel around the in specifically in the summer time. Where YV(Mesa Airline) has the lowest distance travel.