Mypub2

data=read.csv(“/Volumes/Apple/Programming/R_DataFiles/RD/Agri_Area.csv”) data barplot(data\(Alappuzha,names=data\)Crop,col=sample(color,length(data$Kerala)))

randomcolor=grDevices::colors()[grep(‘gr(ale)y’,grDevices::colors(),invert = T)] barplot(data\(Kollam,names=data\)Crop,col = sample(randomcolor,length(data$Malappuram)), ylab=“Area in Hectares”,xlab=“Crop name”,col.lab=‘darkgreen’,cex.lab=0.9, lwd=3,col.axis=4,cex.axis = 0.8,font.lab=2,family=“Gill Sans”, main = “AREA UNDER CROPS IN 2017-18”,cex.main=1.1,col.main=10,font.main=4, ylim=c(0,60000))