NIH Intern：如何获得没有系数差异的相关图（具有“ chart.Correlation”功能）

Question

我已经使用“ chart.Correlation”功能成功绘制了相关图。

但是，我需要能够制作出具有正确系数的相关图，因为具有“ chart.Correlation”功能的那些系数会膨胀，换句话说，就是比预期的要高。

如果我可以验证这些系数为真，将不胜感激。

我已经尝试对数据使用“ corrplot”功能来检查两个变量之间的关系。

进行的研究：我目前正在通过对作为夏季实习生的NIH的先天性代谢错误影响的个体的调查结果进行分析来进行研究。

下面包含两个这样的绘图图像的链接：

https://imgur.com/Q1NQBE9

###Correlations

data_final[,c(131:141)]<-sapply(data_final[,c(131:141)],as.numeric)
surv_cor1<-cor(data_final[,c(131:141)],use="pairwise.complete.obs",
          method = "spearman")

corrplot(surv_cor1, method="color", order="hclust", 
     addCoef.col = "black", # Add coefficient of correlation
     tl.col="black" ,tl.srt=45)

library(PerformanceAnalytics)

chart.Correlation(surv_cor1, histogram=TRUE, method = 'spearman', 
              type = "upper",  tl.col="black" ,tl.srt=45)