library(ggplot2)
library(plyr)

graph= ggplot(finalavg, aes(quotient)) +
  geom_histogram(aes(y=..density..), binwidth = 0.15, fill="#db6d00") +
  geom_density() + theme_bw() + ylab("Density") +
  xlab("Quotient") +
  scale_y_continuous(sec.axis = sec_axis(~.*20, name="Count")) 
windows()
graph

library(agricolae)
table <- graph.freq(finalavg$quotient)
print(table.freq(table), row.names= FALSE)