r - colsum rowsum 填充矩阵

Question

我正在尝试为矩阵中的每个单元格条目写入最小的值，无论是其行和值还是相同维度的新矩阵中的列和值。

例如:

假设我的矩阵 c 看起来像这样:

x <- matrix(seq(1:6),2)
x
      [,1] [,2] [,3]
[1,]    1    3    5
[2,]    2    4    6

它的rowsum和colsum是:

rowSums(x)
[1]  9 12
colSums(x)
[1]  3  7 11

因此基于该信息，新矩阵应如下所示:

      [,1] [,2] [,3]
[1,]    3    7    9
[2,]    3    7    11

我一直在考虑使用 apply，但我不知道如何编写 if 语句来为每个单元格条目写入 rowsum 或 colsum 中的最小值。有什么想法吗？

Answer 1

这可以被认为是行和列和的外积，其中函数取最小值:

outer(rowSums(x), colSums(x), FUN=pmin)
##      [,1] [,2] [,3]
## [1,]    3    7    9
## [2,]    3    7   11