如何解决如何绘制corr.test输出?
我有两个具有相同行数和不同列数的数据框。我使用以下方法从corr.test
包中执行了psych
:
Correlations <- corr.test(final_x,final_y,use = "pairwise",alpha=0.05,method = "spearman")
现在,在运行corr.test
之后,我确实有了输出(例如,相关性)。我可以分别保存Correlation$p
或Correlation$r
并制作一个热图。
但是我的问题是我想对Correlation
本身做一个对角图,在该图的右上方有Correlation$p
,在图的左下角是Correlations$r
。 / p>
我尝试了这个,但是没有帮助:
corPlot(Correlations,numbers=TRUE,colors=TRUE,n=51,main=NULL,zlim=c(-1,1),show.legend=TRUE,labels=NULL,n.legend=10,keep.par=TRUE,select=NULL,pval=NULL,cuts=c(.001,.01),scale=TRUE,cex,MAR,upper=TRUE,diag=TRUE,symmetric=TRUE,stars=FALSE,adjust="holm",xaxis=1,xlas=0,ylas=2,gr=NULL,alpha=.75,min.length=NULL)
能给我一些帮助将是很棒的事情。
谢谢
解决方法
此示例可能会有所帮助:
mcor <- cor(mtcars) # correlation matrix
mcor
mydata=mtcars
library(corrplot)
corrplot(mcor,type="upper",order="hclust",tl.col="black",tl.srt=45) # print correlation
要打印散点图:
library("ggpubr")
data=iris
str(data)
ggscatter(data,x = "Sepal.Length",y = "Petal.Length",add = "reg.line",conf.int = TRUE,cor.coef = TRUE,cor.method = "pearson",xlab = "xlab",ylab = "ylab")
用于绘图;
library("ggpubr")
library("Hmisc")
mydata=mtcars
mydata.rcorr = rcorr(as.matrix(mydata))
mydata.coeff = mydata.rcorr$r
mydata.p = mydata.rcorr$P
plot(mydata.coeff,mydata.p)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。