r - 在R中的每两列中使用函数

Question

现在我有一个看起来像这样的数据集:

> data
             a       b        c         d
[1,] 0.5943590 2.195610 0.5332164 1.3004142
[2,] 0.7635876 1.917823 0.9714945 1.3251010
[3,] 0.9942722 2.350122 1.2048159 1.1675700
[4,] 0.3736785 1.876318 0.9109197 0.8520509

然后我想对每两列使用一个函数，例如，

F2<- function(x,y) (sum((x - y) ^ 2)) #define function
F2(data$a, data$b) #use function for first two columns
F2(data$a, data$c) #use function for first and third columns
F2(data$b, data$c) #use function for second and third columns
..................

如何使用 apply family 来做到这一点？非常感谢任何帮助。

Answer 1

这是 combn 的工作:

#some data
set.seed(42)
m <- matrix(rnorm(16),4)

F2<- function(x,y) (sum((x - y) ^ 2))

res <- matrix(NA, ncol(m), ncol(m))

res[lower.tri(res)] <- combn(ncol(m), 2, 
                             FUN=function(ind) F2(m[,ind[1]], m[,ind[2]]))

print(res)

#          [,1]     [,2]     [,3] [,4]
# [1,]       NA       NA       NA   NA
# [2,] 2.992875       NA       NA   NA
# [3,] 4.293073 8.320698       NA   NA
# [4,] 7.944818 6.484424 16.44946   NA

#for nicer printing
as.dist(res)

#           1         2         3
# 2  2.992875                    
# 3  4.293073  8.320698          
# 4  7.944818  6.484424 16.449463

当然，对于这个特定的函数，你最好使用 dist，它针对这种距离计算进行了优化:

dist(t(m))^2

#           1         2         3
# 2  2.992875                    
# 3  4.293073  8.320698          
# 4  7.944818  6.484424 16.449463