library(corrplot)
setwd("")      
rt=read.table("",sep="\t",header=T,row.names=1,check.names=F)
rt=t(rt)
res1 <- cor.mtest(rt, conf.level = 0.95)

pdf("correlation.pdf",height=8,width=8)              
corrplot(corr=cor(rt),
         method = "circle",
         order = "hclust",
         tl.col="black",
         addCoef.col = "black",
         p.mat = res1$p,
         sig.level = 0.05,
         insig = "pch",
         number.cex = 0.7,
         type = "full",
         col=colorRampPalette(c("blue", "white", "red"))(50),
         )
dev.off()