将一组整数拆分为两个近似相同太阳的子群

我有一组整数,如下 R data.frame :

set.seed(1)
df <- data.frame(id = paste0("id",1:100), length = as.integer(runif(100,10000,1000000)), stringsAsFactors = F)

所以每个元素都有一个 id 和一个 length .

我想把df一分为二 数据帧 s的和近似相等 长 .

任何关于 R 功能来实现这一点?

我想 Hmisc s cut2 可能会这样做,但我不认为这是它的预期用途:

library(Hmisc) # cut2
ll <- split(df, cut2(df$length, g=2))
> sum(ll[[1]]$length)
[1] 14702139
> sum(ll[[2]]$length)
[1] 37564671