data <- data.frame(x = rnorm(100), y = runif(100))
# Equal-width binning into 5 bins
bin_data(data, cols = 1:2, bins = 5)
# Equal-frequency binning
bin_data(data, cols = "x", method = "equal_freq", bins = 4)
# Custom breaks
bin_data(data, cols = "x", method = "custom", breaks = c(-Inf, 0, Inf), labels = c("neg", "pos"))
Run the code above in your browser using DataLab