graph.base <- graph.base +
    aes(colour = Species, shape = Species)
graph.base