library(ggplot2)

str(iris)
ggplot(iris) + aes(x = Sepal.Length, y = Sepal.Width, colour = Species) +
  geom_point() +
  geom_smooth(method = "lm", se = FALSE)