really.messy.long.sep <- separate(really.messy.long, taxa, into = c("species", "time"), sep = "\\.")