datavis.R

mydata <-read.csv("C:/Users/user.DESKTOP-AK91LQO/Desktop/Divyakanth/airquality.csv")
barplot(airquality$Ozone,
        main= 'Ozone Concentration in air',
        xlab = 'ozone levels', horiz = TRUE)

barplot(airquality$Ozone, main='Ozone Concentration in air',
        xlab ='ozone levels', col='blue',horiz= TRUE)
hist(airquality$Temp, main ="La Guardia Airport's\ Maximum Temperature(Daily)",
     xlab = "Temperature(Farnheit)",
     xlim = c(50,125), col="yellow",
     freq = TRUE)

boxplot(airquality$Wind, main = "Average wind speed\ at La Guardia Airport",
        xlab = "Miles per hour", ylab = "wind",
        col = "orange", border = "brown",
        horizontal = TRUE, notch = TRUE)

boxplot(airquality[,0:4],
        main = "Box Plots for Air Quality Parameters")

plot(airquality$Ozone, airquality$Month,
     main = "Scatterplot Example",
     xlab= "Ozone Concentration in parts of per billion",
     ylab = "Month of observation", pch = 19)

set.seed(110)
data<-matrix(rnorm(50,0,5), nrow = 5, ncol = 5)

colnames(data)<- paste0("col",1:5)
rownames(data)<- paste0("row", 1:5)

heatmap(data)


cone <- function(x,y){
  sqrt(x^2+y^2)
}

x<-y<-seq(-1,1,length=30)
z<-outer(x,y,cone)

persp(x,y,z,
      main="Perspective of Plot of a Cone",
      zlab="Height",
      theta = 30, phi = 15,
      col = "orange", shade = 0.4)