针对只有一个性状
## 整理cor—data (宽数据转化为长数据)
cor_data = moduleTraitCor %>% as.data.frame() %>%
rownames_to_column(var = "module") %>%
dplyr::select(module,cor = V1) %>%
left_join(moduleTraitPvalue %>% as.data.frame() %>%
rownames_to_column(var = "module") %>%
dplyr::select(module,pvalue = V1) ) %>%
mutate(datTrait = "sex") %>%
dplyr::select(module,datTrait,cor,pvalue)
# 添加相关性级别 "Strong Cor" "Weak Cor" “no Cor
cor_data = cor_data %>% mutate(levels = if_else(abs(cor) >= 0.5 & pvalue <= 0.05,
"Strong Cor",
if_else(
abs(cor) >= 0.3&abs(cor)< 0.5 & pvalue <= 0.05,