9 Demogrpahic information of sampled individuals

source("Functions/setup.R")

9.1 Sampled SVL distribution

snakes %>%
    filter(Species %in% c("Hydrophis schistosus", "Hydrophis curtus")) %>%
    ggplot(aes(Snout.to.Vent..cm.)) + geom_histogram(binwidth = 10, col = "black") + labs(x = "Snout to vent length (cm)", y = "Count") + facet_wrap(~Species) + theme(strip.text = element_text(face = "italic"))

9.2 Sampled sex ratio

snakes %>%
    filter(Species %in% c("Hydrophis schistosus", "Hydrophis curtus"), Sex != "") %>%
    ggplot(aes(x = Species, fill = Sex)) + geom_bar(width = 0.25, position = position_dodge(), col = "black") + labs(y = "Count") + theme(axis.text.x = element_text(face = "italic"))