#Cameratrap 4 horizontal histograms

image<-c("poacher", "domestic_dog", "ranger", "villager", "tourist", "barking_deer", "wild_pig", "macaque", "porcupine", "sambar_deer", "gaur", "elephant", "serow", "pangolin", "Indian_civet", "black_bear", "sun_bear", "mongoose","dhole", "clouded_leopard", "golden_cat","binturong")
number_of_images<-c(25,17,16,7,5,60,60,37,30,28,13,9,3,2,37,21,16,11,8,8,5,2)
par(mfrow=c(2,2))
barplot(number_of_images,col="black", names=image, horiz=TRUE)
par(mar=c(5.1,9.1,4.1,2.1))
barplot(number_of_images,col="black", names=image, horiz=TRUE,las=2)
number_of_images<-rev(number_of_images)
image<-rev(image) 
barplot(number_of_images,col="black", names=image, horiz=TRUE,las=2, xlab="Number of camera trap photos",ylab="'Animal' photographed") # note that the horizontal axis is still the x axis
barplot(number_of_images,col="black", names=image, horiz=TRUE,las=2, xlab="Number of camera trap photos",ylab="") # note that the horizontal axis is still the x axis
#text(xpd=NA,-47,12, "'Animal' photographed",srt=90)
title(ylab="'Animal' photographed",line=7,xpd=NA)