r中均值与个体均值之间的相关性

Question

我从同一原始数据集中获得了两个数据集：第一个是Grand_Mean，这是所有参与者中每种损伤类型的平均TechnicalQuality得分：

impairment <- c ("H0", "H1", "H2", "H3",  "H4")
TechnicalQuality <- c(4.216667, 3.475000, 3.375000, 3.100000, 2.250000)
Grand_Mean <-data.frame( impairment = impairment,
                 TechnicalQuality = TechnicalQuality)

第二个是P_TQ_Mean，它具有每位参与者每项损伤的平均TechnicalQuality得分：（这里我仅附加了2位参与者作为样本）

P_impairment<-c ("H0", "H1", "H2", "H3",  "H4", "H0", "H1", "H2", "H3",  "H4")
Participant<-c("A01", "A01", "A01", "A01", "A01", "A02", "A02", "A02","A02","A02")
P_TechnicalQuality<-c(4.222222, 2.250000, 2.750000, 1.666667, 1.500000, 4.111111, 2.500000, 2.000000, 2.000000, 2.000000)
P_TQ_Mean<-data.frame(Participant= Participant, P_impairment= P_impairment, P_TechnicalQuality= P_TechnicalQuality)

我需要计算Grand_Mean的TechinicalQuality得分和P_TQ_Mean的P_TechnicalQuality得分之间的相关性，以查看样本人口与每个个体之间的相关性，以便我可以根据结果确定哪个异常值。

有什么好方法可以创建一个显示相关结果的新数据集，而不是一个个地手动进行？

非常感谢你！

Answer 1

这是一种方法：

# Create matrix of the scores (one column per participant)
mat <- matrix(P_TQ_Mean$P_TechnicalQuality, nrow = nrow(Grand_Mean))

# calculate correlation with scores in `GrandMean`
corrs <- cor(mat, Grand_Mean$TechnicalQuality)

# create a data frame with the results
data.frame(unique(P_TQ_Mean["Participant"]), cor = corrs)
#   Participant       cor
# 1         A01 0.8911985
# 6         A02 0.7955540