library(readr)
df1 <- read_csv(file = "diamonds.csv")
View(df1)