x<-c(7,15,23,12,44,56,32)
barplot(x,ylab="count",col="purple",main="VITAP SCHOOLWISE FACULTY STRENGTH",col.axis="red",col.lab="pink")

x<-c(210,450,250,100,50,90)
names(x)<-c("algo","ds","java","c","c++","python")
pie(x,labels = names(x),col="pink",main="ARTICES ON VITAP PORTAL",radius=1,col.main="blue")

#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="pink",main="ARTICES ON VITAP PORTAL",radius=1,col.main="blue")