r - 向上舍入到下一个显着数字

问题描述

我正在研究绘图功能，需要定义放置轴标签的位置。在计算每个标签之间的增量时，我想避免使用 142、284 等处的标签，而希望它们位于 150、300 等处。

但是，这些数字并不总是在同一范围内。以下是我计划使用函数对它们进行四舍五入的方法：

在 0 和 1 之间：向上舍入到小数点后一位
1 到 10 之间：四舍五入到整数或 0.5
11 到 20 之间：四舍五入为整数
21 到 100 之间：四舍五入为 5 的倍数
101 到 200 之间：四舍五入为 10 的倍数
201 到 1000 之间：四舍五入为 50 的倍数
1001 到 2000 之间：四舍五入到 100 的倍数
2001 到 10000 之间：向上取整为 500 的倍数

我的问题在于数字 2。如何四舍五入到 0.5 的倍数？此外，是否有可用于此类标签问题的替代标准函数？

标签： rrounding

我建议使用dplyr'scase_when来制定一套这样的规则。

library(dplyr)
my_format <- function(x) {
  case_when(
    between(x, 0,     1)     ~ ceiling(x / .1 ) * .1,
    between(x, 1,     10)    ~ ceiling(x / .5 ) * .5,
    between(x, 11,    20)    ~ ceiling(x / 1  ) * 1,
    between(x, 21,    100)   ~ ceiling(x / 5  ) * 5,
    between(x, 101,   200)   ~ ceiling(x / 10 ) * 10,
    between(x, 201,   1000)  ~ ceiling(x / 50 ) * 50,
    between(x, 1001,  2000)  ~ ceiling(x / 100) * 100,
    between(x, 2001,  10000) ~ ceiling(x / 500) * 500
  )
}

my_format(0.44)
#> [1] 0.5
my_format(4.1)
#> [1] 4.5
my_format(4.51)
#> [1] 5
my_format(11.1)
#> [1] 12
my_format(22.5)
#> [1] 25
my_format(121.1)
#> [1] 130
my_format(201.1)
#> [1] 250
my_format(1002.3)
#> [1] 1100
my_format(2001.1)
#> [1] 2500

r - 向上舍入到下一个显着数字

问题描述

解决方案

推荐阅读