library(tidyverse)
## -- Attaching core tidyverse packages ------------------------ tidyverse 2.0.0 --
## v dplyr     1.1.4     v readr     2.1.6
## v forcats   1.0.1     v stringr   1.6.0
## v ggplot2   4.0.1     v tibble    3.3.1
## v lubridate 1.9.4     v tidyr     1.3.2
## v purrr     1.2.1     
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
## i Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(nycflights13)
suv_data <- filter(mpg, class == "suv")


ggplot(suv_data) + 
  
  geom_boxplot(aes(x = reorder(manufacturer, hwy), y = hwy)) +
  
  labs(title = "SUV Fuel Economy", 
       x = "Manufacturer", 
       y = "Highway MPG") + 
  
  theme(plot.title = element_text(hjust = 0.5, size = rel(1.5), margin = margin(15,15,15,15)), 
        axis.title = element_text(size = rel(1.4)), 
        axis.title.x = element_text(margin = margin(10,5,5,5)), 
        axis.title.y = element_text(margin = margin(5,10,5,5)), 
        axis.text = element_text(size = rel(0.8)),
        axis.text.x = element_text( hjust = 1))

subaru

s<-filter(mpg, between(year, 1999, 2008)&class == "suv")

ggplot(data=s)+
  geom_col(aes(x = reorder(year,hwy), y = hwy))+
facet_wrap( ~ manufacturer)

jeep

library(dplyr)
library(ggplot2)
long_delay <- filter(flights, dep_delay >= 120 | arr_delay >= 120)



ggplot(long_delay) + 
  geom_bar(aes(factor(month), y = after_stat(count/sum(count)))) + 
  labs(title = "Long Delay Flights by Month", 
       x = "Month", 
       y = "Relative Frequency") + 
  theme(plot.title = element_text(hjust = 0.5, size = rel(1.5), margin = margin(15,15,15,15)),
        axis.title = element_text(size = rel(1.4)),
        axis.text = element_text(size = rel(1.3)))

summer more delay