# NOT RUN {
with(data = Airline,
barplot(complaints, names.arg = airline, col = "lightblue",
las = 2)
)
plot(complaints ~ ontime, data = Airline, pch = 19, col = "red",
xlab = "On time", ylab = "Complaints")
# }
Run the code above in your browser using DataLab