# hornbill foraging code

r1<-c(23, 5, 9, 0)
r2<-c(7, 0, 3, 0)
r3<-c(0, 0, 12, 21)
r4<-c(165, 276, 170, 122)
r5<-c(0, 0, 7, 12)
bird.names<-c("OH", "WH", "PH", "BH")
hornbill.forage<-rbind(r1,r2,r3,r4,r5)
hornbill.forage

colnames(hornbill.forage)<-bird.names
hornbill.forage

rownames(hornbill.forage)<-c("cracking","probing","hawking","plucking","snatching")
hornbill.forage

hornbill.forage<-t(hornbill.forage)
hornbill.forage
barplot(hornbill.forage, beside=TRUE)

barplot(hornbill.forage, beside=TRUE, legend.text=bird.names, args.legend= list(x="topleft", bty="n"))