精简代码以减少多个 replace() 函数

Question

为了优化我的代码，我正在寻找一种方法来组合许多连续的replace()函数。 我有一个介于 1 到 2500 之间的数字列表。每个数字都应该向上舍入到下一个更高的一百（5 -> 100、136 -> 200 等）类别。 有没有更优雅的解决方案？

目前它看起来像这样：

ls <- c(1,126,1399,857,94,543)

ls <- replace(ls, ls > 1 & ls < 100, 100)
ls <- replace(ls, ls > 100.1 & ls < 200, 200)
ls <- replace(ls, ls > 200.1 & ls < 300, 300)

等等...

Answer 1

使用ceiling四舍五入到最接近的较高 integer：

ceiling(ls / 100) * 100
#[1]  100  200 1400  900  100  600