r - ggcorrplot : insignificant values

Question

我使用 ggcorrplot 创建了一个corrplot，代码如下:

library(ggcorrplot)

corCN <- subset(csfBL, BL_Diaggroups==1, 
                select=c("log_ab38", "log_ab40", "log_ab42", "ABratio", "log_YKL", "logNgcomplete", "log_NFL"))

colnames(corCN) <- c("Aß 1-38","Aß 1-40", "Aß 1-42", "Aß 42/40", "YKL-40", "Ng", "NFL")

corrCN <- cor(corCN, method=c("spearman"), use="complete.obs")
p.matCN <- cor_pmat(corCN, method=c("spearman"), use="complete.obs")

CNcorrplot <- ggcorrplot(corrCN, type="lower", lab=TRUE, ggtheme = ggplot2::theme_classic,
                          p.mat=p.matCN, insig ="blank")

CNcorrplot2 <- CNcorrplot + ggtitle("CN") + theme(plot.title = element_text(hjust = 0.5)) 

剧情是这样的。

我唯一想改变的是微不足道的值中有“NS”或者完全空白(所以没有显示 0)。实际上我需要某种代码:

if insig=TRUE, lab=FALSE

Answer 1

我创建了一个名为 myggcorrplot 的 ggcorrplot 修改版本，带有新的 lab.notsig 选项(相关性不显着的标签)。< br/>下载文件here并将其作为 myggcorrplot.r 保存在您的工作目录中。
然后，运行以下代码:

library(ggcorrplot)  
library(mvtnorm)
# A toy dataset
set.seed(1)
n <- 100
p <- 7
A <- matrix(runif(p^2)*2-1, ncol=p) 
Sigma <- cov2cor(t(A) %*% A)
corCN <- data.frame(rmvnorm(n, mean=rep(0,p), sigma=Sigma))
colnames(corCN) <- c("Aß 1-38","Aß 1-40", "Aß 1-42", "Aß 42/40", "YKL-40", "Ng", "NFL")

corrCN <- cor(corCN, method=c("spearman"), use="complete.obs")
p.matCN <- cor_pmat(corCN, method=c("spearman"), use="complete.obs")

# Load the myggcorrplot function
source("myggcorrplot.r")
# Set in the lab.notsig option the label for not significant correlations
CNcorrplot <- myggcorrplot(corrCN, type="lower", lab=TRUE, 
              ggtheme = ggplot2::theme_classic,
              p.mat=p.matCN, insig ="blank", lab.notsig="NS")

CNcorrplot2 <- CNcorrplot + ggtitle("CN") + 
                   theme(plot.title = element_text(hjust = 0.5)) 
CNcorrplot2