x<-c(10,13,17,19)
barplot(x,ylab ="count" , col = "yellow" , main = "vit ap schoolwise faculity strength",col.axis = "red",col.lab = "red")

x<-c(120,140,570,290,80,90)
names(x)<-c("Algo","Ds","Java","c","c++","Python")
pie(x,labels = names(x),col = "yellow",main = "Aritcals on vit ap portal",radius =-1,col.lab="red")

#install.packages("plotrix")
library(plotrix)
x<-c(120,140,570,290,80,90)
names(x)<-c("Algo","Ds","Java","c","c++","Python")
pie3D(x,labels = names(x),col = "yellow",main = "Aritcals on vit ap portal",radius =1,col.lab="red")