计算R中数据框中的成对的列之间的相关性

问题描述

我有以下数据框:

set.seed(1)
y <- data.frame(a1 = rnorm(5) , b1 = rnorm(5), c1 = rnorm(5),  a2 = rnorm(5), b2 = rnorm(5), c2 = rnorm(5))

我想获得两对列的相关性:cor(a1，a2)，cor(b1，b2)，cor(c1，c2)

I would like to obtain the correlations of the pairs of columns:cor(a1,a2), cor(b1,b2), cor(c1,c2)

我尝试了以下操作，但NA显示为输出:

I tried the following but NA's appear as output:

apply(y,2,function(x) cor(x[1],x[3]))

我希望得到的结果等于

cor(y[,1],y[,4])
cor(y[,2],y[,5])
cor(y[,3],y[,6])

在我的实际数据框中，我还有更多对列.

In my actual data frame, I have many more pairs of columns.

有什么想法吗?

感谢您的支持.

推荐答案

num.vars <- length(y)
var1 <- head(names(y), num.vars / 2)
var2 <- tail(names(y), num.vars / 2)
mapply(cor, y[var1], y[var2])
#         a1         b1         c1
#  0.2491625 -0.5313192  0.5594564

这篇关于计算R中数据框中的成对的列之间的相关性的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！