corrplot：如何找到系数数字下方的重要符号 (**)

如何解决corrplot：如何找到系数数字下方的重要符号 (**)

相关图有重要的符号和数字重叠。有谁知道如何找到数字下面的重要符号？

 cor <- Hmisc::rcorr(mtcars %>% as.matrix())
 corrplot::corrplot(cor$r,method="color",tl.cex = 1,tl.col = "black",number.cex = 0.8,p.mat = cor$P,sig.level = c(.001,.01,.05),insig = 'label_sig',pch = 10,pch.cex = 1,pch.col = "white",type = "lower",tl.srt = 45,addCoef.col = "black",addgrid.col = "white",cl.pos = "n",fn_left=135,fn_up = 20,cl.lim=c(-1,1))

解决方法

ggplot2 可能会提供更大的灵活性

library(ggplot2)

nm = rownames(cor$r)
m = t(combn(nm,2))
d = cbind(data.frame(m),R = cor$r[m],P = cor$P[m])
d$label = round(d$R,2)
d$label[d$P < 0.001] = paste0(d$label[d$P < 0.001],"\n**")
d$X1 = factor(d$X1,nm)
d$X2 = factor(d$X2,rev(nm))

graphics.off()
ggplot(d,aes(X1,X2,fill = R,label = label)) +
    geom_tile(color = "white") +
    scale_fill_viridis_c() +
    geom_text(color = ifelse(d$R > 0.35,"black","white")) +
    theme_bw() +
    coord_equal()