R 将行拆分为10个组，每个组的值总和相同

我有一个包含两列的数据，ID和Revenue。我想创建一个列，将数据分成10组，每组占总收入的10%。分位数法给了我10组相同数量的ID而不是收入

idrev[ , decile := cut(Revenue,
                    breaks = quantile(Revenue, probs = seq(0, 1, by = 1/10)),
                    labels = 1:10, right = FALSE)]

我得到以下类型的结果

    N   Revenue %Revenue
 100    $3,992  80%
 100    $518    10%
 100    $236    5%
 100    $126    3%
 100    $68 1%
 100    $35 1%
 100    $16 0%
 100    $6  0%
 100    $2  0%
 100    $1  0%
 1,000  $5,000  100%

而我在寻找这个结果

    N   Revenue %Revenue
 798    500 10%
 104    500 10%
 47     500 10%
 25     500 10%
 14     500 10%
 7  500 10%
 3  500 10%
 2  500 10%
 1  500 10%
 1  500 10%
 1,000  $5,000  100%

请在R中对此提出解决方案

添加代码以获取示例数据和统计信息

library(Hmisc);library(data.table)
set.seed(123)
idrev<-data.table(ID=1:1000, Revenue=sample(100,1000,replace=T))
idrev[,.(.N,sum(Revenue))] #Check total revenue
idrev[ , decile := cut2(Revenue,g=10)]
idrev[,.(.N,sum(Revenue)),by=decile][order(decile)]

库（Hmisc）；库（数据表）
种子集（123）
idrev这里有一个
数据表
唯一可以让您达到目的的方法：

idrev[order(Revenue), revDec := 10 * ceiling(10 * (cumsum(Revenue) / sum(Revenue)))]

这是按收入对行排序后的十分位数的直接计算

以下是按revDec对收入进行求和的结果：

idrev[, .(Revenue=sum(Revenue)), by="revDec"]
    revDec Revenue
 1:     10    5004
 2:     70    5070
 3:     20    5039
 4:     80    5025
 5:     90    4974
 6:     30    4974
 7:     40    5059
 8:     50    5026
 9:    100    5091
10:     60    4960

它们都接近5000个。
非常感谢这项工作！我不知道cumsum可以用这种方式使用。在
数据中使用基本R函数的能力。table
是这个软件包的一个重要功能。