The function formats the count distribution from the histogram function
get_counts(hist)
hist
histogram
x,y
x <- runif(1000) counts <- get_counts( hist(x, plot=FALSE))