library(ggplot2)
diamonds %>%
sample_n(100) %>%
ggplot(aes(x = depth, y = price, color = cut, size = clarity)) +
geom_point()