library(ggplot2)
### Plot #1 ###

# Faceted scatter plot

ggplot(data = diamonds, aes(x=price, y=carat)) +
  geom_point(aes(col = clarity), size = 1) +
  facet_grid(~color) +
  ggtitle("Diamond Price x Carat") +
  xlab("Price") +
  ylab("Carat")