甚至根据另一个变量削减

Question

我们如何削减1个变量，确保这些削减的另一个变量之和是偶数？

例如

我希望var2的总和在切割之间更均匀

代码：

library(data.table)
dt = data.table(var1=c(0.6,0.2,0.5,0.8,0.10,0.1,0.2,0.5,0.3,0.5),
                var2=c(20,400,350,50,100,490,1200,900,1850,70))
dt[,cuts:=cut(dt$var1,breaks=3)]
dt[,.(var2=sum(var2)),by=cuts]

韩国社交协会！

Answer 1

一种方法是创建一个向量，其var1值与其var2值成比例，然后使用该向量创建相等的二进制位，例如，

library(data.table)
library(Hmisc)

dt = data.table(var1=c(0.6,0.2,0.5,0.8,0.10,0.1,0.2,0.5,0.3,0.5),
                var2=c(20,400,350,50,100,490,1200,900,1850,70))

dt[,var3:=round(var2/min(var2))]

cc = rep(dt[,var1], dt[,var3])

labs = cut2(cc, g=3, onlycuts = TRUE)

dt[,cuts:=cut2(var1, cuts=labs)]

dt[,.(var2=sum(var2)),by=cuts]

#         cuts var2
# 1: [0.5,0.8] 1390
# 2: [0.1,0.3) 2190
# 3:       0.3 1850