binning.R

library(data.table)
nBins <- 25
breaks <- seq(0, 1, length.out=nBins+1)
midpoints <- breaks[1:nBins] + (breaks[2:(nBins+1)] - breaks[1:nBins]) / 2
D <- data.table(x = runif(1e4))
D <- D[, xBinned := cut(x, breaks=breaks, labels=sprintf("%.2f", midpoints))]
D <- D[,
       .(.N,
         label=as.character(xBinned),
         min = min(x),
         median = median(x),
         mean = mean(x),
         midpoint = min(x) + (max(x) - min(x)) / 2,
         max = max(x)),
       xBinned]
setkey(D, xBinned)
D