ants<-c("Oecophylla smaragdina", "Pheidole spp.", "Monomorium destructor", "Paratechina longicornis", "Odontoponera denticulata", "Tapinoma melanocephalum", "Monomorium pharoensis")
unburnt<-c(2957,2020,556, 445, 418, 401, 308)
burnt<- c( 696, 1425, 445, 1450, 1256, 269, 476)
data<-cbind(unburnt,burnt)
barplot(data, ylab="Numbers of individuals", xlab="Dipterocarp forest condition")

par(mfrow=c(2,2))
bardensity <- c(0,10,15,20,40,30,100)
barangle <- c(45,135,0,90,45,130,90)
barplot(data, ylab="Numbers of individuals", xlab="Dipterocarp forest condition", density=bardensity, angle=barangle, lwd=2, col="black") 
barplot(data, ylab="Numbers of individuals", xlab="Dipterocarp forest condition", sub="effects on ant abundance", col=c("black", "red", "blue", "green", "yellow", "grey50", "white")) #here we added a subtitle to the x axis using the sub argument


plot.new()
barplot(data, ylim=c(0,9500),ylab="Numbers of individuals", xlab="Dipterocarp forest condition", col=c("black","red","blue","green","yellow","grey50","white"))
#legend ("top", ants,  fill=c ("black", "red", "blue", "green", "yellow", "grey50", "white"), cex=0.7)
legend ("top", ants,  fill=c ("black", "red", "blue", "green", "yellow", "grey50", "white"), cex=0.7, text.font=3)

plot.new()
barplot(data, ylab="Numbers of individuals", xlab="Dipterocarp forest condition", xlim=c(0,4.2), col= c("black", "red", "blue", "green", "yellow", "grey50", "white"))
legend ("right", ants,  fill=c ("black", "red", "blue", "green", "yellow", "grey50", "white"), cex=0.7, text.font=3)