每个单元格中的值除以4个单元格的总和：

prop.table(m)

每个单元格的值除以行单元格的总和：

prop.table(m, 1)

每个单元格的值除以列单元格的总和：

prop.table(m, 2)

我想这能帮上忙

包括所有这些东西，如prop.table（m）、prop.table（m，1）、prop.table（m，2）

m <- matrix(1:4, 2)
> m
     [,1] [,2]
[1,]    1    3
[2,]    2    4
> prop.table(m)           #sum=1+2+3+4=10, 1/10=0.1, 2/10=0.2, 3/10=0.3,4/10=0.4
     [,1] [,2]
[1,]  0.1  0.3
[2,]  0.2  0.4
> prop.table(m,1)        
          [,1]      [,2]
[1,] 0.2500000 0.7500000  #row1: sum=1+3=4, m(0,0)=1/4=0.25, m(0,1)=3/4=0.75
[2,] 0.3333333 0.6666667  #row2: sum=2+4=6, m(1,0)=2/6=0.33, m(1,1)=4/6=0.66
> prop.table(m,2)        
          [,1]      [,2]
[1,] 0.3333333 0.4285714  #col1: sum=1+2=3, m(0,0)=1/3=0.33, m(1,0)=2/3=0.4285
[2,] 0.6666667 0.5714286  #col2: sum=3+4=7, m(0,1)=3/7=0.66, m(1,1)=4/7=0.57
>

当m是2D矩阵时：（m，1）是指行边缘表的分数（每行上的总和），（m，2）是指列边缘表的分数（每列上的总和）。简而言之，如果你不想关心边际这个词，只要“行和列总和的%”。
范例：
m具有额外的行和列边距

[,1] [,2] ***
    [1,]    1    4    5
    [2,]    2    5    7
    [3,]    3    6    9

    *** 6   15  



    > prop.table(m,1)

 `         [,1]      [,2]
    [1,] 0.2000000 0.8000000
    [2,] 0.2857143 0.7142857
    [3,] 0.3333333 0.6666667

    > prop.table(m,2)

          [,1]      [,2]
    [1,] 0.1666667 0.2666667
    [2,] 0.3333333 0.3333333
    [3,] 0.5000000 0.4000000