我使用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))
情节看起来像这样。
我唯一想要改变的是,微不足道的价值观有&#34; NS&#34;在他们或完全空白(所以没有显示0)。其实我需要某种代码说:
if insig=TRUE, lab=FALSE
答案 0 :(得分:2)
我使用新的ggcorrplot
选项(不重要关联的标签)创建了名为myggcorrplot
的{{1}}的修改版本。
下载文件here并将其作为lab.notsig
保存在您的工作目录中
然后,运行以下代码:
myggcorrplot.r