计算R中矩阵中设置的Colnames和Rownames的平均值

Question

是否在其他地方问过，但我找不到答案。

我正在尝试使用Colmeans和Rowmeans来计算我创建的矩阵的平均值。平均值是我要使用矩阵填充矩阵的值，并使用向量

设置了行和列

目前我的代码看起来像这样：

A = matrix(ncol = (14), # number of columns in matrix
       nrow = (10), # number of rows in matrix
       colMeans(A, na.rm = FALSE, dims = colnames(A)),
       rowMeans(A, na.rm = FALSE, dims = rownames(A)),
       byrow = TRUE)
colnames(A) c("2","4","6","8","10","12","14","16","18","20","22","24","26","28")
rownames(A) <- c("10","20","30","40","50","60","70","80","90","100")
A

运行此操作将返回具有Na值的矩阵。

预期输出将是下面的矩阵，其中NA值被列和行号的平均值所取代。

例如，第一个十字路口等于6，为2 10/2

    2  4  6  8 10 12 14 16 18 20 22 24 26 28
10  NA NA NA NA NA NA NA NA NA NA NA NA NA NA
20  NA NA NA NA NA NA NA NA NA NA NA NA NA NA
30  NA NA NA NA NA NA NA NA NA NA NA NA NA NA
40  NA NA NA NA NA NA NA NA NA NA NA NA NA NA
50  NA NA NA NA NA NA NA NA NA NA NA NA NA NA
60  NA NA NA NA NA NA NA NA NA NA NA NA NA NA
70  NA NA NA NA NA NA NA NA NA NA NA NA NA NA
80  NA NA NA NA NA NA NA NA NA NA NA NA NA NA
90  NA NA NA NA NA NA NA NA NA NA NA NA NA NA
100 NA NA NA NA NA NA NA NA NA NA NA NA NA NA

Answer 1

这本质上是您使用outer函数所需的内容。请注意，t转置矩阵，因此您可以在上面指定的正确方法。它也可以是outer(B,A, fn)

A<-seq(2,28,2)
B<-seq(10,100,10)
fn<-function(A,B)(A+B)/2
t(outer(A,B, fn))

      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14]
 [1,]    6    7    8    9   10   11   12   13   14    15    16    17    18    19
 [2,]   11   12   13   14   15   16   17   18   19    20    21    22    23    24
 [3,]   16   17   18   19   20   21   22   23   24    25    26    27    28    29
 [4,]   21   22   23   24   25   26   27   28   29    30    31    32    33    34
 [5,]   26   27   28   29   30   31   32   33   34    35    36    37    38    39
 [6,]   31   32   33   34   35   36   37   38   39    40    41    42    43    44
 [7,]   36   37   38   39   40   41   42   43   44    45    46    47    48    49
 [8,]   41   42   43   44   45   46   47   48   49    50    51    52    53    54
 [9,]   46   47   48   49   50   51   52   53   54    55    56    57    58    59
[10,]   51   52   53   54   55   56   57   58   59    60    61    62    63    64