Stolen from here

seq_range(x, n, by, trim = NULL, expand = NULL, pretty = FALSE)

## Arguments

x A numeric vector Specify the output sequence either by supplying the length of the sequence with n, or the spacing between value with by. Specifying both is an error. I recommend that you name these arguments in order to make it clear to the reader. Optionally, trim values off the tails. trim / 2 * length(x) values are removed from each tail. Optionally, expand the range by expand * (1 + range(x) (computed after trimming). If TRUE, will generate a pretty sequence. If n is supplied, this will use pretty() instead of seq(). If by is supplied, it will round the first value to a multiple of by.

## Examples

x <- rcauchy(100)
seq_range(x, n = 10)
#>  [1] -74.44069 -45.25380 -16.06691  13.11998  42.30687  71.49376 100.68065
#>  [8] 129.86754 159.05444 188.24133seq_range(x, n = 10, trim = 0.1)
#>  [1] -3.535004 -2.122519 -0.710034  0.702451  2.114936  3.527421  4.939906
#>  [8]  6.352391  7.764876  9.177361seq_range(x, by = 1, trim = 0.1)
#>  [1] -3.5350041 -2.5350041 -1.5350041 -0.5350041  0.4649959  1.4649959
#>  [7]  2.4649959  3.4649959  4.4649959  5.4649959  6.4649959  7.4649959
#> [13]  8.4649959
# Make pretty sequences
y <- runif (100)
seq_range(y, n = 10)
#>  [1] 0.003755821 0.113471552 0.223187284 0.332903015 0.442618746 0.552334478
#>  [7] 0.662050209 0.771765940 0.881481672 0.991197403seq_range(y, n = 10, pretty = TRUE)
#>  [1] 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0seq_range(y, n = 10, expand = 0.5, pretty = TRUE)
#>  [1] -0.4 -0.2  0.0  0.2  0.4  0.6  0.8  1.0  1.2  1.4
seq_range(y, by = 0.1)
#>  [1] 0.003755821 0.103755821 0.203755821 0.303755821 0.403755821 0.503755821
#>  [7] 0.603755821 0.703755821 0.803755821 0.903755821seq_range(y, by = 0.1, pretty = TRUE)
#>  [1] 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0