cut_format: Convert Numeric to Factor, with custom formatting
In kimisc: Kirill's Miscellaneous Functions

Description Usage Arguments See Also Examples

This is an enhanced version of base::cut() that allows a custom formatting to be applied to the values.

1
2
3

cut_format(x, breaks, include.lowest = FALSE, right = TRUE,
  ordered_result = FALSE, ..., format_fun = format, sep = ", ",
  paren = c("(", "[", ")", "]"))

`x`	a numeric vector which is to be converted to a factor by cutting.
`breaks`	`[numeric]` A vector of two or more unique cut points
`include.lowest`	logical, indicating if an ‘x[i]’ equal to the lowest (or highest, for `right = FALSE`) ‘breaks’ value should be included.
`right`	logical, indicating if the intervals should be closed on the right (and open on the left) or vice versa.
`ordered_result`	logical: should the result be an ordered factor?
`...`	Passed to `cut()`
`format_fun`	`[function(x): character]` A vectorized function that performs the desired formatting. Default: `base::format()`
`sep`	`[character(1)]` The separator between lower and upper end of the interval. Default: `", "`
`paren`	`[character(4)]` Opening and closing parentheses in two variants. Default: `c("(", "[", ")", "]")`

http://stackoverflow.com/q/14456371/946850

1 2	cut_format(runif(10), seq(0, 1, by = 0.25), format_fun = function(x) paste(x * 100, "%")) cut_format(runif(10), seq(0, 1, by = 0.25), paren = c("<", "{", ">", "}"))