A. Plot:
barplot(airqualitySOzone, 
main = 'Ozone Concenteration in air', 
xlab= 'ozone levels', horiz = TRUE)

B.Histogram:
data(airquality)
hist(airquality$Temp, main ="La Guardia Airport's\ 
Maximum Temperature(Daily)", 
xlab="Temperature (Fahrenheit)", 
xlim = c(50, 125), col ="yellow", 
freq = TRUE)

C.Linechart:
v <- c(17, 25, 38, 23, 41)
plot(v, type = "o")

D. piechart:
geeks<- c(23, 56, 20, 63) labels <- c("Mumbai", "Pune", "Chennai", "Bangalore")
pie(geeks, labels)

E.BoxPlot:
data(mtcars)
boxplot(disp gear, data = mtcars,
main = "Displacement by Gear",
xlab = "Gear",
ylab = "Displacement")

F.scatterplot:
input <- mtcars[, c('wt', 'mpg')]
plot(x = inputSwt, y = inputSmpg,
xlab = "Weight",
ylab = "Milage",
xlim = c(1.5, 4),
ylim = c(10, 25),
)
main = "Weight vs Milage"