是否有一个函数将 x 映射到给定值的最接近倍数，其编码比我的“分类”更清晰？

如何解决是否有一个函数将 x 映射到给定值的最接近倍数，其编码比我的“分类”更清晰？

我的函数是建立在非常基本的元素之上的，不知道有没有更通用更直接的解决方案。

# function mapping x to the nearest multiple of a given value 
#          with lower_limit included (or excluded if right = TRUE)
classify <- function(x,class_width,right = FALSE) 
  if (right) 
    ceiling(ceiling(x-class_width/2)/class_width)*class_width else
      floor(floor(  x+class_width/2)/class_width)*class_width

cw <- 3
z <- c(c(-.5,.5)+cw/2)
z <- c(z,z + cw)
z <- sort(c(-z,z))
cbind(z,cls_left = classify(z,cw),cls_right = classify(z,cw,T))
#>          z cls_left cls_right
#>  [1,] -5.0       -6        -6
#>  [2,] -4.5       -3        -6
#>  [3,] -4.0       -3        -3
#>  [4,] -2.0       -3        -3
#>  [5,] -1.5        0        -3
#>  [6,] -1.0        0         0
#>  [7,]  1.0        0         0
#>  [8,]  1.5        3         0
#>  [9,]  2.0        3         3
#> [10,]  4.0        3         3
#> [11,]  4.5        6         3
#> [12,]  5.0        6         6

^{由 reprex package (v2.0.0) 于 2021 年 6 月 6 日创建}