如何优化R语言代码：合并replace()函数实现百位向上取整

你可以利用R的ceiling()函数实现需求，无需写大量重复的replace()语句，代码更简洁优雅。

情况1：保留数值1，其余向上取整到下一个百位 #

ls <- c(1,126,1399,857,94,543)
ls <- ifelse(ls == 1, 1, ceiling(ls/100)*100)

运行结果：[1] 1 200 1400 900 100 600，完全匹配你原代码的处理逻辑（1保留，94→100，126→200等）。

情况2：所有数值（包括1）都向上取整到下一个百位 #

直接用ceiling()即可，无需条件判断：

ls <- c(1,126,1399,857,94,543)
ls <- ceiling(ls/100)*100

运行结果：[1] 100 200 1400 900 100 600

优化优势 #

• 避免大量重复的replace()调用，代码行数从几十行压缩到1-2行
• 逻辑清晰，通过数学运算直接实现取整规则，易于维护修改（比如要取整到十位，只需把100改成10）
• 自动覆盖1-2500的所有数值，无需手动添加每个区间的判断

另外，你原代码里的ls > 100.1这类阈值没必要，输入都是整数，用ls > 100逻辑更严谨。

内容的提问来源于stack exchange，提问作者Calosoma