R中按行计算的加权贡献百分比

我有一个2列的矩阵。我使用以下公式计算了每一行中每一列对总体的贡献百分比：

B = matrix (c(2,4,3,1,5,7,5,3,8,3,7,3),nrow=6,ncol=2) 
sweep(B, 1, rowSums(B), FUN="/")

结果如下：

          [,1]      [,2]
[1,] 0.2857143 0.7142857
[2,] 0.5714286 0.4285714
[3,] 0.2727273 0.7272727
[4,] 0.2500000 0.7500000
[5,] 0.4166667 0.5833333
[6,] 0.7000000 0.3000000

---

但是，我需要为每一行添加权重，即第1行为1，第2行为3。请问我如何计算加权百分比贡献？

我需要为每行添加权重

什么权重？您只提到第1行和第2行。预期的输出是什么？我加了“1和3”，也就是说，如果我有10和4，并且想要加上这些权重，那么它将是（（10*1）+（4*3））/4，也就是4。我要添加的权重第一行为“1”，第二行为“2”。不清楚，请提供预期输出。