r Remplacer l'espace par

data$species <- sub(" ", "_", data$species)
Disturbed Dingo