Shellfishgene

library(hypoimg)
library(cowplot)

l_t <- c("Hola", "Peaks!", "I think we're not so different after all!", "No no! I don't mean that. We look different,\nbut we're not so different genetically!", "So, you see me differently now?\nAfter all, maybe we could try again...")
r_t <- c("Hola!", "Whatcha looking at?","Ok...what do they mean?", "This again! It was a single spawning,\nand I was drunk on snapping shrimp cocktail,\nand...", "Oh, yeah. Looking at it closely, we look\ndifferently and we see differently, too!", "NO!\nWe have to keep speciation going!")

dat <- tibble( x = c(runif(125, min = 0, max = 3.75), runif(50, max = 0.5) + 3.75, runif(125, min = 4.25, max = 8)), y = c(rnorm(n = 125, mean = 0.02, sd = 0.2), rnorm(n=50, mean = 0.75, sd = 1), rnorm(n = 125, mean = 0.02, sd = 0.2)))

base <- ggplot(dat, aes(x = x, y = y))+
  scale_x_continuous(limits = c(0, 8))+