This is a test.

Check out this lovely plot…

library(ggplot2)

ggplot(mpg, aes(displ, hwy, colour = class)) + 
  geom_point()

More to come!