我正在编写一个函数来绘制数据。我想为 y 轴指定一个很好的整数max大于数据集的最大值。
具体来说，我想要一个函数foo执行以下操作：
foo(4) == 5
foo(6.1) == 10 #maybe 7 would be better
foo(30.1) == 40
foo(100.1) == 110
我已经做到了
foo <- function(x) ceiling(max(x)/10)*10
用于舍入到最接近的 10，但这不适用于任意舍入间隔。
在 R 中是否有更好的方法来做到这一点？
The plyr库有一个函数round_any这对于进行各种舍入来说非常通用。例如
library(plyr)
round_any(132.1, 10) # returns 130
round_any(132.1, 10, f = ceiling) # returns 140
round_any(132.1, 5, f = ceiling) # returns 135
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
