r中的cut函数结果一致

Question

在R中使用剪切功能：

as.numeric(cut( 1:6,4))
## [1] 1 1 2 3 4 4

有没有办法让它先将最大的块切成小块，这样

as.numeric(cut( 1:6,4))

会返回

## [1] 1 1 2 2 3 4

代替？并且，

table(as.numeric(cut( 1:7,4)))

会返回

## [1] 2 2 2 1

代替

## [1] 2 2 1 2

等...