colsum rowsum填充矩阵

Question

我试图为矩阵中的每个单元格条目编写最小的值，无论是它的行和值还是同维新矩阵中的colsum值。

例如：

假设我有矩阵c，如下所示：

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

它的龙和钶钽铁矿石是：

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

基于这一信息，新的矩阵应该如下所示：

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

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

Answer 1

这可以看作是行和列和的外部乘积，其中函数取最小值：

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

Answer 2

x[] <- pmin(rep(colSums(x), each = nrow(x)), rep(rowSums(x), times = ncol(x)))
x
#      [,1] [,2] [,3]
# [1,]    3    7    9
# [2,]    3    7   11