Surely it is; consider something along the lines of this code (I am using only the first 4 rows of your seals dataset, as copying from pdf is a chore):
library(tidyverse)
seals <- data.frame(species = c("Harbour", "Harbour", "Harbour", "Harbour"),
ScarHuman = c(2, 2, 2, 3))
seals <- seals %>%
filter(species == "Harbour")
ggplot(seals, aes(x = ScarHuman)) +
geom_bar(fill = "firebrick") # the fill color is just for the looks