Use the R built in dataset 0 range and plot the attributes age and circunferenceUse the R built in dataset cars create a histogram of the attribute speedhist(cars$speed)hist(cars$speed, breaks=10)hist(cars$speed, breaks=10, xlab="Car Speed", main="Plot of Car Speed", col="green")plot(cars$speed,cars$distance,xlab="speed",ylab="distance")bash testscript.shcreate a mrfrow with 2,2 and generate 4 graphs by using the following parametersand viewgeberate a barchart for the column treepar(mfrow = c(2,2))plot(mtcars$mpg, mtcars$cyl)plot(mtcars$mpg, mtcars$hp)plot(mtcars$mpg, mtcars$wt)plot(mtcars$mpg, mtcars$vs)barplot(Orange$Tree,xlab = "Tree Types", ylab = "count", main ="Tree", col="red")tab0 <- table(Orange$Tree)barplot(tab0,names.arg=rownames(tab0))Counts Table....counts <- table(mtcars$vs, mtcars$carb)barplot(counts, main="Car Distribution by Count of V-shaped engine and Carb", xlab="Number of Carb",ylab="Count of cars", col=c("Yellow","red"), legend = c("Not vs","vs"))counts <- table(mtcars$vs, mtcars$carb)