basic.plot <- basic.plot + aes(colour = Species, shape = Species)
basic.plot