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