r - 如何将矩阵中的每个值除以对应列的最大值

Question

例如

m <- matrix(c(1:9),3,3)

每列的最大值是...

n <- matrix(c(3,6,9),1,3)

然后我怎样才能执行操作，以便输出是一个 3 x 3 矩阵，其值: 第一列中的 0.33,0.66,1(因为第一列除以 3) 0.66,0.83,6 在第二列(第二列除以6)0.77，0.88，第三列9(第三列除以9)。

Answer 1

我们可以通过'm'的col复制'n'

m/n[col(m)]
#         [,1]      [,2]      [,3]
#[1,] 0.3333333 0.6666667 0.7777778
#[2,] 0.6666667 0.8333333 0.8888889
#[3,] 1.0000000 1.0000000 1.0000000