## fishspp
## ospreysex Bass Shad Sunfish
## Female 21 138 72
## Male 14 189 59
Figure size is approximately 6.7 \(\times\) 6.7 inches.
# embed a barplot; assumes object f1 & f2 from above
freq.r <- range(0, signif(max(f1$count), 1) + 10) # use raw data for ylim= range
bplot1 <- barplot(f2, ylim = freq.r, xlab = "Fish Species",
ylab = "Capture Frequency (n)", space = c(0, 0.5), col = c("black", "grey"), beside = T)
abline(h = 0) # add line to bottom of plot
# add legend
legend("topleft", c("Female", "Male"), fill = c("black", "grey"), bty = "n", cex = 1.25)
title(main = "Fish Species Capture Frequency by Osprey Sex")
text(x = bplot1, y = c(f2[1:6]), labels = c(f2[1:6]), pos = 3) # adds f2 counts above