两组变量之间的相关性
Correlation between two set of variables
我想要两组变量之间的相关矩阵。在第一组中我有 9 个变量,在第二组中我有 24 个变量。第二组变量包括第一组的 9 个变量。
例如
这是我的两套。
dep <- c("anxiety", "avoidance", "NEURO", "EXTRA","AGREE", "OPEN", "CONSC", "socialt", "solitaryt")
indep <-c("anxiety", "EXTRA", "NEURO", "CONSC", "OPEN",
"avoidance", "AGREE", "RMTQ", "RSE", "selfcontrol", "socialt",
"solitaryt", "riska", "stress", "socialdiversity", "networksize", "socialdiversity",
"socialembedded", "rwa", "lonely", "SDO", "DASSD", "DASSA", "WEMWBS")
如果有人遇到同样的问题,我找到了解决方法。
我为每组变量创建了两个数据框:
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")
我想要两组变量之间的相关矩阵。在第一组中我有 9 个变量,在第二组中我有 24 个变量。第二组变量包括第一组的 9 个变量。
例如
这是我的两套。
dep <- c("anxiety", "avoidance", "NEURO", "EXTRA","AGREE", "OPEN", "CONSC", "socialt", "solitaryt")
indep <-c("anxiety", "EXTRA", "NEURO", "CONSC", "OPEN",
"avoidance", "AGREE", "RMTQ", "RSE", "selfcontrol", "socialt",
"solitaryt", "riska", "stress", "socialdiversity", "networksize", "socialdiversity",
"socialembedded", "rwa", "lonely", "SDO", "DASSD", "DASSA", "WEMWBS")
如果有人遇到同样的问题,我找到了解决方法。
我为每组变量创建了两个数据框:
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")