pk1

x<-c(7,15,23,12,44,56,32)
barplot(x,ylab = "count",col = "cyan",main = "VIT-AP SCHOOL WISE FACULTY",col.axis = "red",col.lab = "red")

x<-c(210,450,250,100,50,90)
names(x)<-c("ALGO","DS","JAVA","C","C++","PYTHON")
pie(x, labels = names(x),col = "green",main="ARTICLES ON VIT-AP PORTAL", radius = 1,col.main="black")

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 = "purple",main="ARTICLES ON VIT-AP PORTAL",col.main="black")