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",sub="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"))

####

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)

###
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)


####
legend(0,8100,pch=c(15,16),col=c("blue","brown"),legend=expression(italic ("A. scientific name"),("other ants")),xpd=NA)