Using cut to create breaks that start at 0

how can i use the `cut()` function to create breaks that start at 0?

``````x <- seq(0, 102, length.out = 15)
cut(x, breaks = 10)
``````
`````` [1] (-0.102,10.2] (-0.102,10.2] (10.2,20.4]   (20.4,30.6]   (20.4,30.6]   (30.6,40.8]   (40.8,51]     (40.8,51]     (51,61.2]     (61.2,71.4]   (71.4,81.6]   (71.4,81.6]
[13] (81.6,91.8]   (91.8,102]    (91.8,102]
Levels: (-0.102,10.2] (10.2,20.4] (20.4,30.6] (30.6,40.8] (40.8,51] (51,61.2] (61.2,71.4] (71.4,81.6] (81.6,91.8] (91.8,102]
``````

>Solution :

Base function `pretty` outputs pretty numbers. From the documentation, my emphasis.

Compute a sequence of about n+1 equally spaced â€˜roundâ€™ values which cover the range of the values in x. The values are chosen so that they are 1, 2 or 5 times a power of 10.

``````x <- seq(0, 102, length.out = 15)
cut(x, breaks = pretty(x, n = 10), include.lowest = TRUE)
#>  [1] [0,10]    [0,10]    (10,20]   (20,30]   (20,30]   (30,40]   (40,50]
#>  [8] (50,60]   (50,60]   (60,70]   (70,80]   (80,90]   (80,90]   (90,100]
#> [15] (100,110]
#> 11 Levels: [0,10] (10,20] (20,30] (30,40] (40,50] (50,60] (60,70] ... (100,110]
``````

Created on 2022-06-13 by the reprex package (v2.0.1)