x<-c(7,15,23,12,44,56,32)

#plotting vector
barplot(x,
        ylab="count" , col="orange" , main = "VIT-AP Schoolwise Faculty strength",
        col.axis ="darkgreen",
       col.lab = "darkgreen")

x<- c(210,450,250,100,50,90)

names(x) <- c("Algo" ,"DS","Java","C","C++","Python")

pie(x,labels = names(x),col = "white",
    main = "Articles on VIT-AP Portal" , radius = -1,
    col.main="darkgreen")

#install.packages("plotrix")
library("plotrix")
x<- c(210,450,250,100,50,90)

names(x) <- c("Algo" ,"DS","Java","C","C++","Python")

pie3D(x,labels = names(x),col = "green",
    main = "Articles on VIT-AP Portal" , radius = 1,
    col.main="darkgreen")