计算并将输出放在下三角矩阵

Question

我的数据集看起来像这样：

A:B  A:C  A:D   B:C   B:D   C:D
 2    5   12     21    12     2
 4    6   25      2     1     5
10   21   89      3     3     8

我想计算每列的平均值，并将输出放在下三角矩阵中，例如：

    A     B     C     D
A  NA
B  5.33   NA
C  11     8.6   NA
D  42     4.3   15    NA

我正在尝试以下代码，但我还没有。

result.matrix <- matrix(nrow = 4, ncol = 4)
for (i in 1:length(test)) {
  for(j in 1:length(test)) {
    result.matrix[i,j] <- cor(mean(as.numeric(test[,i])), mean(as.numeric(test[,j])), use = "na.or.complete") }}

任何帮助将不胜感激！

Answer 1

通过@ user20650回答

m[lower.tri(m)] <- colMeans(d), where m is matrix of zeros of correct dimensions