R : how to run a command between every pair in a list

Question

我有一个 n x m 矩阵，可以这样说:

df = 

1 0 2 1  
1 2 3 2  
3 3 1 0  
2 2 2 1  
1 2 3 1

我想在所有列上运行一个函数，例如 myfunct，它将对每一列求和，然后对每对列求和，自包含。

16 17 19 13  
17 18 20 14  
19 20 22 16  
13 14 16 10

有没有一种简单的方法可以将 myfunct 应用于矩阵以得到相应的方阵？更一般地说，如果我有一个包含 N 个事物的列表，是否有一种简单的方法可以在该列表中的所有 i、j 对之间运行一个双变量函数，并输出为方矩阵？

Answer 1

这是一个快速函数:

myfun <- function(df){ 
  z <- colSums(df)
  matrix(rowSums(expand.grid(z, z)), ncol = ncol(df))
}

它首先将 colSums 作为 z。然后我们使用 expand.grid 将 z 的所有组合取到 z 并取 rowSums。输出被强制转换为具有正确列数的矩阵。

myfun(df)
     [,1] [,2] [,3] [,4]
[1,]   16   17   19   13
[2,]   17   18   20   14
[3,]   19   20   22   16
[4,]   13   14   16   10