R Assignment 2

data<-read.csv("airline_stats.csv")
View(data)
barplot(table(data$pct_atc_delay,data$airline), 
        xlab= "Airline" ,
        ylab= "Percentage of Air Control Traffic" ,
           col="Blue",
           main="Percentage_ATC_Delay against Airlines",
        col.main="green",
        sub = "Bar Plot Comparison",
        col.sub="red")

summary(data$pct_atc_delay, data$airline)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   0.000   2.147   3.900   5.090   6.630 100.000      28