Если у кого-то есть такая же проблема, я нашел, как это сделать.
Я создал два фрейма данных для каждого набора переменных:
df1 <- dat[, names(dat)%in% c("EXTRA", "NEURO", "CONSC", "OPEN", "AGREE", "anxiety",
"avoidance", "socialt","solitaryt", "RMTQ", "RSE", "selfcontrol","riska", "stress", "socialdiversity", "networksize", "socialdiversity"
,"socialembedded", "rwa", "lonely", "SDO", "DASSD", "DASSA", "WEMWBS")]
df2 <- dat[,names(dat)%in% c("EXTRA", "NEURO", "CONSC", "OPEN", "AGREE", "anxiety",
"avoidance", "socialt", "solitaryt")]
Затем я преобразовал эти df в матрицу
A <- as.matrix(df1)
B <- as.matrix(df2)
Наконец, мы можем легко сопоставить эти кадры данных
Matrice <- cor(A, B, use = "pairwise.complete.obs")