library(dplyr, warn.conflicts = FALSE)
library(ggplot2)
keji_lakes_plottable %>%
filter(taxon == "Other", location == "Beaverskin Lake") %>%
ggplot(aes(rel_abund, depth)) +
geom_col_segsh() +
scale_x_abundance() +
scale_y_reverse()
Run the code above in your browser using DataLab