ggplot(iris, aes(Sepal.Length, Petal.Width, shape = Species, colour = Species)) + geom_point() + theme(legend.position = c(0.8, 0.2))