library(ggplot2)
#this plots a bar graph with the type of cut on the x-axis and the proportion of that cut within the dataset on the y-axis
ggplot(data = diamo