如何指示此变量与另一个变量具有最大相关性

Question

     x1=c(55,60,75,80)
     x2=c(30,20,15,23)
     x3=c(42,33,26,68)
     X=data.frame(x1,x2,x3)
    c=cor(X)
    c
    ##         x1         x2        x3
    ## x1  1.0000000 -0.5581804 0.4153564
    ## x2 -0.5581804  1.0000000 0.4512658
    ## x3  0.4153564  0.4512658 1.0000000

从上面的相关矩阵看来，x1与x3的相关性较高，x2与x3的相关性较高，x3与x2的相关性较高。

我创建此代码以查找每个变量的最大相关性，如下所示：

diag(c)<-0
for (i in 1:ncol(X)){

m[i]= max(c[,i])
 }
m
## [1] 0.4153564 0.4512658 0.4512658

但是如何指示变量而不是更高的值，如下所示：

x3 x3 x2

Answer 1

我们可以使用mget

获取对象的值

v1 <- row.names(c)[apply(c, 2, which.max)]
mget(v1)
#$x3
#[1] 42 33 26 68

#$x3
#[1] 42 33 26 68

#$x2
#[1] 30 20 15 23