使用for-loop選擇df中的列之間的相關性

Question

我有一個包含8列的數據框（df）。我想用一個for循環來計算選擇的列如下方式Pearson相關：

cor1=cor(df[,1], df[,2]) 
cor2=cor(df[,3], df[,4]) 

等。做這個的最好方式是什麼？

Answer 1

最簡單的就是計算相關矩陣，那麼你可以索引，如果你想：

df <- data.frame(rnorm(10),rnorm(10),rnorm(10)) 
corMat <- cor(df) 

例如，變量1和2之間的相關性：

corMat[1,2] 

還是你真的需要在單獨的對象中有特定的相關性？

編輯

這裏是你想要的for循環例如：

df <- data.frame(rnorm(10),rnorm(10),rnorm(10),rnorm(10)) 

for (i in seq(1,ncol(df),by=2)) 
{ 
    assign(paste("cor",i/2+0.5,sep=""),cor(df[,i],df[,i+1])) 
} 

雖然這是非常低效的。

Answer 2

可以使用apply與廣義函數：

df<-data.frame(a=rnorm(10),b=rnorm(10),c1=rnorm(10),d=rnorm(10)) 
f<- function(x) { 
    cc=x[1] #column index 
    if (cc<ncol(df)){ 
    cor(x[-1],df[,cc+1]) #ignore 1st element [-1] 
    } 
} 

apply(rbind(1:dim(df)[2], 2, f) #apply over columns after adding a column id numbers at the top row 

可能是有一個R函數來獲得列/行ID內適用的功能？在這種情況下，我們不需要修改列標識符。