生成单元格计数随机但行总和始终相同的数据

我所处的情况是，我需要创建一堆假数据集，其中两个变量的总和与我的真实数据中的相同，但每个变量的计数是随机的。这是设置：

>df
    X.1  X.2
1   145   30
2    55   73   

第一行总计为 175，第二行总计为 128。我正在寻找一种生成数据帧（或一堆数据帧）的方法，如下所示：

>df.2
    X.1  X.2
1   100   75
2    90   38

在 df.2 中，单元格计数已更改，但行仍然汇总到同一个表中。实际数据有数百行，但只有两个变量（如果有帮助的话）。我试图弄清楚如何做到这一点sample()但没有任何运气。有什么建议么？

Thanks!

也许您正在寻找r2dtable?

> r2dtable(2, c(175,128), c(190, 113))
[[1]]
     [,1] [,2]
[1,]  108   67
[2,]   82   46

[[2]]
     [,1] [,2]
[1,]  114   61
[2,]   76   52

另外，这是 @mnel 的答案的一个版本，使用rmultinom做n复制然后合并结果。如果你只需要几次重复，这并不重要，但因为rmultinom我能做到，我想我会看看如何做到。

n <- 10
e <- cbind(X1  = c(100,90,30),X2 = c(75,28,120))
aperm(array(sapply(1:nrow(e), function(i) 
        rmultinom(n, rowSums(e)[i], (e/rowSums(e))[i,])),
      dim=c(ncol(e),n,nrow(e))), c(3,1,2))