共享名称的列之间的相关性

首先,您需要“旋转”数据帧。。。

DF$Code <- as.factor(DF$Code)

您将获得与不同代码数量相同的级别(希望不要太多)。然后只需选择代码相同的行,如:

DF[which(DF$Code=="A12"),] 
DF[which(DF$Code=="B32") ,]

因为你有数百种不同的代码,你必须对你的脚本做进一步的修改。。。

table(DF$Code)

Dx <- as.data.frame(table(DF$Code))
Repeated_codes <- Dx$Var1[which(Dx$Freq)>1]

我假设每个代码在原始数据中只出现一次或两次。

创建一个空数据帧来“放置”循环的结果:

final_df <- data.frame(Site_X=character(),
Site_Y=character(),
Correlation=integer(),
Name_X=character(),
Name_Y=character(),
stringsAsFactors=FALSE)

然后,您可以使用:

for (i in c(1:length(Repeated_codes))){
Code_x <- Repeated_codes[i]
DFi <- DF[which(DF$Code == Code_x),]
cor_i <- cor(DFi$X1, DFi$X2) 
final_df[i,"Site_X"] <- DFi[1,"Site"]
final_df[i,"Site_Y"] <- DFi[2,"Site"]
final_df[i,"Correlation"] <- round(as.numeric(cor_i$estimate)
final_df[i,"Name_X"] <- DFi[1,"Code"]
final_df[i,"Name_Y"] <- DFi[2,"Code"]
}