是否有一个R函数用于根据数字的大小进行舍入？

我希望一组数字的四舍五入随着数字变大而自动改变。我正在制作条形图标签。以下是当前显示的内容：

<39 
39 to 11564 
11564 to 23090 
23090 to 50893 
50893 to 89034 
89034 to 138900 
138900 to 183562

---

您通常可以控制切割和/或边界，听起来像是
signif
功能可能会派上用场。
signif（c（39115642309050893989034138900183562），3）
谢谢！这很好。只是清理了数字表示。这个问题其实不需要太多——我认为没有编辑就很清楚了。只是想把它移出队列。
<39 .         ( when 2 or 3 digits long, do not round) 
39 to 11600    ( when 5 digits long, round to 3 places) 
11600 to 23000  
23000 to 50900
50900 to 89000
89000 to 139000 ( when 6 digits long, round to 4 places)
139000 to 184000