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