Group', 'IHC', 'CIBERSORT')
tmpdata$log10IHC <- log10(tmpdata$IHC + 1)
tmpdata 删除缺失值...cor.test(tmpdata$IHC, tmpdata$CIBERSORT, method = 'spearman')
str(spearman)
pval p.value...<- round(coef, 3)
coef
# 设置标签,paste连接字符,collapse设置分隔符
text P-value..., color线条颜色, fill填充颜色, size填充大小,stroke线条粗细
geom_smooth(method = 'lm', se = FALSE, col = 'grey70')...= 7) + # 黑白主题:白色背景,灰色网格线;base_size控制字体大小
theme(axis.text = element_text(colour = 'black'), # 轴刻度值