library(tidyverse)
getwd()

ggplot(diamonds, aes(x = carat, y = price)) + 
  geom_hex()
ggsave("diamonds.png")
dir.create("./data")
write_csv(diamonds, "data/diamonds.csv")