Ugliest Graph

Take the basic plot we've been working with:

ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point(aes(color = Species, shape = Species)) +
  geom_smooth(method = lm)

And make it as ugly as you can possibly make it. Think: garish colors, terrible shape choices, not so useful axis markings. You can't remove anything already written, though - everyone's plots still need to show all the same information.

We'll vote on who successfully made the ugliest plot at the start of Friday. Winner gets a bunch of on sale Easter candy.