我有一个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。如何计算加权百分比贡献？